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lo generate synthesized speech (20) is disclosed. The speech compression system (10) optimises the bandwidth consumed by the 
bitslream by balancing the desired average bit rale with the perceptual quality of the reconstructed speech. The speech compression 
system (10) comprises a lull-rate codec (22), a hall-rale codec (24), a quarter-rate codec (26) and an eighth-rale codec (28). The 
codes (22. 24. 26 and 28) are selectively activated based on a rale selection. In addition, the lull and hall-rale codecs (22 and 24) 
are selectively activated based on a type classification, luich codec (22. 24, 26 and 28) is selectively activated lo encode and decode 
the speech signal (18) al different bit rales emphasizing different aspects of the speech signal (18) lo enhance overall quality of the 
synthesized speech (20). 
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MULT I MODE SPEECH ENCODER 
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Yang Gao, Adil Benyassine, Jcs Thyssen, Eyal Shlomot, Huan-yu Su 

Copyright Notice Reference 
5 A portion of the disclosure of this patent document contains material that is subject to copyright 

protection. The copyright owner has no objection to the facsimile reproduction by anyone of the patent document 
or the patent disclosure, as it appears in the Patent and Trademark Office patent file or records, but otherwise 
reserves all copyright rights. 

10 Technical Field 

This invention relates to speech communication systems and, more particularly, to systems for digital 
speech coding. 

Background Art 

1 5 One prevalent mode of human communication is by the use of communication systems. Communication 

systems include both wireline and wireless radio based systems. Wireless communication systems are electrically 
connected with the wireline based systems and communicate with the mobile communication devices using radio 
frequency (RF) communication. Currently, the radio frequencies available for communication in cellular systems, 
for example, are in the cellular frequency range centered around 900 MHz and in the personal communication 

20 services (PCS) frequency range centered around 1900 MHz. Data and voice transmissions within the wireless 

system have a bandwidth that consumes a portion of the radio frequency. Due to increased traffic caused by the 
expanding popularity of wireless communication devices, such as cellular telephones, it is desirable to reduced 
bandwidth of transmissions within the wireless systems. 

Digital transmission in wireless radio communications is increasingly applied to both voice and data due 

25 to noise immunity, reliability, compactness of equipment and the ability to implement sophisticated signal 

processing functions using digital techniques. Digital transmission of speech signals involves the steps of: 
sampling an analog speech waveform with an analog-to-digital converter, speech compression (encoding), 
transmission, speech decompression (decoding), digital-to-analog conversion, and playback into an earpiece or a 
loudspeaker. The sampling of the analog speech waveform with the analog-to-digital converter creates a digital 

30 signal. However, the number of bits used in the digital signal to represent the analog speech waveform creates a 
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also can be called a pitch lag, and each long-term predictor gain parameter can also be called an adaptive 
codebook gain. The lag parameter defines an entry or a vector in the adaptive codebook. 

The CELP encoder performs an LPC analysis to determine the short-term predictor parameters. 

«. 

Following the LPC analysis, the long-term predictor parameters may be determined. In addition, determination of 
the fixed codebook entry and the fixed codebook gain that best represent the long-term residual occurs. The 
powerful concept of analysis-by-synthesis (ABS) is employed in CELP coding. In the ABS approach, the best 
contribution from the fixed codebook, the best fixed codeboqk gain, and the best long-term predictor parameters 
may be found by synthesizing them using an inverse prediction filter and applying a perceptual weighting 
measure. The short-term (LPC) prediction coefficients, the fixed-codebook gain, as well as the lag parameter and 
the long-term gain parameter may then be quantized. The quantization indices, as well as the fixed codebook 
indices, may be sent from the encoder to the decoder. 

The CELP decoder uses the fixed codebook indices to extract a vector from the fixed codebook. The 
vector may be multiplied by the fixed-codebook gain, to create a long-term excitation also known as a fixed 
codebook contribution. A long-term predictor contribution may be added to the long-term excitation to create a 
short-term excitation that commonly is referred to simply as an excitation. The long-term predictor contribution 
comprises the short-term excitation from the past multiplied by the long-term predictor gain. The addition of the 
long-term predictor contribution alternatively can be viewed as an adaptive codebook contribution or as a long- 
term (pitch) filtering. The short-term excitation may be passed through a short-term inverse prediction filter 
(LPC) that uses the short-term (LPC) prediction coefficients quantized by the encoder to generate synthesized 
speech. The synthesized speech may then be passed through a post-filter that reduces perceptual coding noise. 

These speech compression techniques have resulted in lowering the amount of bandwidth used to 
transmit a speech signal. However, further reduction in bandwidth is particular important in a communication 
system that has to allocate its resources to a large number of users. Accordingly, there is a need for systems and 
methods of speech coding that are capable of minimizing the average bit rate needed for speech representation, 
while providing high quality decompressed speech. 

Disclosure Of Invention 

This invention provides systems for encoding and decoding speech signals. The embodiments may use 
the CELP coding technique and prediction based coding as a framework to employ signal-processing functions 
using waveform matching and perceptual related techniques. These techniques allow the generation of 
synthesized speech that closely resembles the original speech by including perceptual features while maintaining a 
relatively low bit rate. One application of the embodiments is in wireless communication systems. In this 
application, the encoding of original speech, or the decoding to generate synthesized speech, may occur at mobile 
communication devices. In addition, encoding and decoding may occur within-wireline-based systems or within 
other wireless communication systems to provide interfaces to wireline-based systems. 

One embodiment of a speech compression system includes a full-rate codec, a half-rate codec, a quarter- 
rate codec and an eighth-rate codec each capable of encoding and decoding speech signals. The full-rate, half- 
rate, quarter-rate and eighth-rate codecs encode the speech signals at bit rates of 8.5 Kbps, 4 Kbps, 2 Kbps and 0.8 
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FIG. 6 is a table illustrating the bit allocation of one embodiment of the quarter-rate codec. 

FIG. 7 is a table illustrating the bit allocation of one embodiment of the eighth-rate codec. 

FIG. 8 is an expanded block diagram of one embodiment of the pre-processing module illustrated in Fig. 

2. 

5 FIG. 9 is an expanded block diagram of one embodiment of the initial frame-processing module 

illustrated in Fig. 2 for the full and half-rate codecs. 

FIG. 10 is an expanded block diagram of one embodiment of the first sub-frame processing module 
illustrated in Fig. 2 for the full and half-rate codecs. 

FIG. 11 is an expanded block diagram of one embodiment of the first frame processing module, the 
10 second sub-frame processing module and the second frame processing module illustrated in Fig. 2 for the full and 

half-rate codecs. 

FIG. 12 is an expanded block diagram of one embodiment of the decoding system illustrated in Fig. 3 for 
the full and half-rate codecs. 

1 5 Modes For Carrying Out The invention 

The embodiments are discussed with reference to speech signals, however, processing of any other signal 
is possible. It will also be understood that the numerical values disclosed may be numerically represented by 
floating point, fixed point, decimal, or other similar numerical representation that may cause slight variation in the 
values but will not compromise functionality. Further, functional blocks identified as modules are not intended to 

20 represent discrete structures and may be combined or further sub-divided in various embodiments. 

FIG. 1 is a block diagram of one embodiment of the speech compression system 10. The speech 
compression system 10 includes an encoding system 12, a communication medium 14 and a decoding system 16 
that may be connected as illustrated. The speech compression system 10 may be any system capable of receiving 
and encoding a speech signal 18, and then decoding it to create post-processed synthesized speech 20. In a typical 

25 communication system, the wireless communication system is electrically connected with a public switched 

telephone network (PSTN) within the wireline-based communication system. Within the wireless communication 
system, a plurality of base stations are typically used to provide radio communication with mobile communication 
devices such as a cellular telephone or a portable radio transceiver. 

The speech compression system 10 operates to receive the speech signal 18. The speech signal 18 

30 emitted by a sender (not shown) can be, for example, captured by a microphone (not shown) and digitized by an 

analog-to-digital converter (not shown). The sender may be a human voice, a musical instrument or any other 
device capable of emitting analog signals. The speech signal 18 can represent any type of sound, such as, voice 
speech, unvoiced speech, background noise, silence, music etc. 

The encoding system 12 operates to encode the speech signal 18. The encoding system 12 may be part 

35 of a mobile communication device, a base station or any other wireless or wireline communication device that is 

capable of receiving and encoding speech signals 18 digitized by an analog-to-digital converter. The wireline 
communication devices may include Voice over Internet Protocol (VoIP) devices and systems. The encoding 
system 12 segments the speech signal 18 into frames to generate a bitstream. One embodiment of the speech 
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medium 14. 


The communication medium .4 may be any transmission mechan.sm, such as a commun.cat.on channel, 
radi o waves, microwave, wire transmissions, fiber optic transmissions, or any med.um capable of 
bitstream generated by the encoding system 12. The communication medtum 14 may also 
devices and receiving devices used in the transmission of the bitstream. An example embodiment of he 
communication medium ,4 can include communication channe.s, antennas and associated transceivers for radio 
communication in a wireless communication system. The communication medium 14 a.so can be a storage 
m echan,sm, such as, a memory device, a storage media or other device capable of storing and retnev.ng he 
bitstream generated by the encoding system 12. The communication medium 14 operates to transmit the 
bitstream generated by the encoding system 12 to the decoding system 16. 

The decoding system .6 receives the bitstream from .he communication med.um 14. The decoding 
system 14 may be pan of a mobile communication device, a base station or other wire.ess or w,rel,ne 
communication device that is capable of receiving the bitstream. The decoding system 16 operates o dec d 
bitstream and generate the post-processed synthesized speech 20 in the form of a digital signal. The post- 
processed synthesized speech 20 may then be converted to an analog signa, by a d.gital-to-analo, ^converter frot 
hown, The analog output of the digital-to-analog converter may be received by a receiver (not show ) that ma 
be a human ear, a magnetic tape recorder, or any other dev.ee capab.e of rece.vmg an an«^ 
Alternative^ a digital recording device, a speech recognition device, or any other dev.ee capable of rece.vmg 
digital signal may receive the post-processed synthesized speech 20. 

One embodiment of the speech compression system 10 a.so includes a Mode line 21. The Mode l,ne 21 
carries a Mode signal that contro.s the speech compression system ,0 by indicating the desired average bit rate for 
the bitstream. The Mode signal may be generated externa!* by, for example, a wireless _ *~n 
using a Mode Signal generation module. The Mode signal generation module determines the Mode S gnal based 
on a plurality of factors, such as, the desired quality of the post-processed synthesized specc 20, the ava^ab 
ban dw,dth, the services contracted by a user or any other re.evant facto, The Mode signal « contrc ^ 
selected by the communication system that the speech compression system 10 is operating w,thm. The Mod 
signa, may be provided to the encoding system 12 to a,d in the determination of which of a plurahty of codecs 
™ may be activated within the encoding system 12. 

The codecs comprise an encoder portion and a decoder portion that are located w.thtn the encod. 
sy stem 12 and the decoding system .6, respectively. In one embodiment of the speech compression system 10 
L are four codecs namely; a full-rate codec 22.. ^ 24.. cod« 26^ ^ 

codec 28 Each of the codecs 22, 24, 26, and 28 is operable to generate the bitstream. The sue of the b.tstre m 
generated by each codec 22, 24, 26, and 28, and hence the bandwidth or capac.ty needed for transm.ss.on of the 
bitstream via the communication medium 14 is different. 

,n one embodiment, the full-rate codec 22, the half-rate codec 24, the quarter-rate codec 26 and the 
eighth-rate codec 28 generate 170 bits, 80 bits, 40 bits and .6 bits, respectively, per frame. The s.zc of the 
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bitstream of each frame corresponds to a bit rate, namely, 8.5 Kbps for the full-rate codec 22, 4.0 Kbps for the 
half-rate codec 24, 2.0 Kbps for the quarter-rate codec 26, and 0.8 Kbps for the eighth-rate codec 28. However, 
fewer or more codecs as well as other bit rates are possible in alternative embodiments. By processing the frames 
of the speech signal 18 with the various codecs, an average bit rate is achieved. The encoding system 12 
5 determines .which of the codecs 22, 24, 26, and 28 may be used to encode a particular frame based on 

characterization of the frame, and on the desired average bit rate provided by the Mode signal. Characterization 
of a frame is based on the portion of the speech signal 18 contained in the particular frame. For example, frames 
may be characterized as stationary voiced, non-stationary voiced, unvoiced, onset, background noise, silence etc. 

The Mode signal on the Mode signal line 21 in one embodiment identifies a Mode 0, a Mode 1, and a 

10 Mode 2. Each of the three Modes provides a different desired average bit rate that can vary the percentage of 

usage of each of the codecs 22, 24, 26, and 28. Mode 0 may be referred to as a premium mode in which most of 
the frames may be coded with the full-rate codec 22; fewer of the frames may be coded with the half-rate codec 
24; and frames comprising silence and background noise may be coded with the quarter-rate codec 26 and the 
eighth-rate codec 28. Mode I may be referred to as a standard mode in which frames with high information 

1 5 content, such as onset and some voiced frames, may be coded with the full-rate codec 22. In addition, other 

voiced and unvoiced frames may be coded with the half-rate codec 24, some unvoiced frames may be coded with 
the quarter-rate codec 26, and silence and stationary background noise frames may be coded with the eighth-rate 
codec 28. 

Mode 2 may be referred to as an economy mode in which only a few frames of high information content 

20 may be coded with the full-rate codec 22. Most of the frames in Mode 2 may be coded with the half-rate codec 24 

with the exception of some unvoiced frames that may be coded with the quarter-rate codec 26. Silence and 
stationary background noise frames may be coded with the eighth-rate codec 28 in Mode 2. Accordingly, by 
varying the selection of the codecs 22, 24, 26, and 28 the speech compression system 10 can deliver reconstructed 
speech at the desired average bit rate while attempting to maintain the highest possible quality. Additional 

25 Modes, such as, a Mode three operating in a super economy Mode or a half-rate max Mode in which the 

maximum codec activated is the half-rate codec 24 are possible in alternative embodiments. 

Further control of the speech compression system 10 also may be provided by a half rate signal line 30. 
The half rate signal line 30 provides a half rate signaling flag. The half rate signaling flag may be provided by an 
external source such as a wireless communication system. When activated, the half rate signaling flag directs the 

30 speech compression system 10 to use the half-rate codec 24 as the maximum rate. Determination of when to 

activate the half rate signaling flag is performed by the communication system that the speech compression 
system 10 is operating within. Similar to the Mode signal determination, a half rate-signaling module controls 
activation of the half rate signaling flag based on a plurality of factors that are determined by the communication 
system. In alternative embodiments, the half rate signaling flag could direct the speech compression system 10 to 

35 use one codec 22, 24, 26, and 28 in place of another or identify one or more of the codecs 22, 24, 26, and 28 as the 

maximum or minimum rate. 

In one embodiment of the speech compression system 10, the full and half-rate codecs 22 and 24 may be 
based on an eX-CELP (extended CELP) approach and the quarter and eighth-rate codecs 26 and 28 may be based 
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on a perceptual matching approach. The eX-CELP approach extends the traditional balance between perceptual 
matching and waveform matching of traditional CELP. In particular, the eX-CELP approach categorizes the 
frames using a rate selection and a type classification that will be described later. Within the different categories 
of frames, different encoding approaches may be utilized that have different perceptual matching, different 
5 waveform matching, and different bit assignments. The perceptual matching approach of the quarter-rate codec 

26 and the eighth-rate codec 28 do not use waveform matching and instead concentrate on the perceptual aspects 
when encoding frames. 

The coding of each frame with either the eX-CELP approach or the perceptual matching approach may 
be based on further dividing the frame into a plurality of subframes. The subframes may be different in size and 

10 in number for each codec 22, 24, 26, and 28. In addition, with respect to the eX-CELP approach, the subframes 

may be different for each category. Within the subframes, speech parameters and waveforms may be coded with 
several predictive and non-predictive scalar and vector quantization techniques. In scalar quantization a speech 
parameter or element may be represented by an index location of the closest entry in a representative table of 
scalars. In vector quantization several speech parameters may be grouped to form a vector. The vector may be 

1 5 represented by an index location of the closest entry in a representative table of vectors. 

In predictive coding, an element may be predicted from the past. The element may be a scalar or a 
vector. The prediction error may then be quantized, using a table of scalars (scalar quantization) or a tabic of 
vectors (vector quantization). The cX-CELP coding approach, similarly to traditional CELP, uses the powerful 
Analysis-by-Synthesis (ABS) scheme for choosing the best representation for several parameters. In particular, 

20 the parameters may be the adaptive codebook, the fixed codebook, and their corresponding gains. The ABS 

scheme uses inverse prediction filters and perceptual weighting measures for selecting the best codebook entries. 

One implementation of an embodiment of the speech compression system 10 may be in a signal- 
processing device such as a Digital Signal Processing (DSP) chip, a mobile communication device or a radio 
transmission base station. The signal-processing device may be programmed with source code. The source code 

25 may be first translated into fixed point, and then translated into the programming language that is specific to the 

signal-processing device. The translated source code may then be downloaded and run in the signal-processing 
device. One example of source code is the C language computer program utilized by one embodiment of the 
speech compression system 10 that is included in the attached microfiche appendix as Appendix A and B. 

FIG. 2 is a more detailed block diagram of the encoding system 12 illustrated in FIG. 1. One 

30 embodiment of the encoding system 12 includes a pre-processing module 34, a full-rate encoder 36, a half-rate 

encoder 38, a quarter-rate encoder 40 and an eighth-rate encoder 42 that may be connected as illustrated. The rate 
encoders 36, 38, 40, and 42 include an initial frame-processing module 44 and an excitation-processing module 
54. 

The speech signal 1 8 received by the encoding system 1 2 is processed on a frame level by the pre- 
35 processing module 34. The pre-processing module 34 is operable to provide initial processing of the speech 

signal 18. The initial processing can include filtering, signal enhancement, noise removal, amplification and other 
similar techniques capable of optimizing the speech signal 18 for subsequent encoding. 
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The full, half, quarter and eighth-rate encoders 36, 38, 40, and 42 are the encoding portion of the full, 
half, quarter and eighth-rate codecs 22, 24, 26, and 28, respectively. The initial frame-processing module 44 
performs initial frame processing, speech parameter extraction and determines which of the rate encoders 36, 38, 
40, and 42 will encode a particular frame. The initial frame-processing module 44 may be illustratively sub- 
5 divided into^a plurality of initial frame processing modules, namely, an initial full frame processing module 46, an 

initial half frame-processing module 48, an initial quarter frame-processing module 50 and an initial eighth frame- 
processing module 52. However, it should be noted that, the initial frame-processing module 44 performs 
processing that is common to all the rate encoders 36, 38, 40, and 42 and particular processing that is particular to 
each rate encoder 36, 38, 40, and 42. The sub-division of the initial frame-processing module 44 into the 
10 respective initial frame processing modules 46, 48, 50, and 52 corresponds to a respective rate encoder 36, 38, 40, 

and 42. 

The initial frame-processing module 44 performs common processing to determine a rate selection that 
activates one of the rate encoders 36, 38, 40, and 42. In one embodiment, the rate selection is based on the 
characterization of the frame of the speech signal 18 and the Mode the speech compression system 10 is operating 

1 5 within. Activation of one of the rate encoders 36, 38, 40, and 42 correspondingly activates one of the initial 

frame-processing modules 46, 48, 50, and 52. 

The particular initial frame-processing module 46, 48, 50, and 52 is activated to encode aspects of the 
speech signal 18 that are common to the entire frame. The encoding by the initial frame-processing module 44 
quantizes parameters of the speech signal 18 contained in a frame. The quantized parameters result in generation 

20 of a portion of the bitstream. In general, the bitstrcam is the compressed representation of a frame of the speech 

signal 18 that has been processed by the encoding system 12 through one of the rate encoders 36, 38, 40, and 42. 

In addition to the rate selection, the initial frame-processing module 44 also performs processing to 
determine a type classification for each frame that is processed by the full and half-rate encoders 36 and 38. The 
type classification of one embodiment classifies the speech signal 18 represented by a frame as a first type (i.e., a 

25 Type One) or as a second type (i.e., a Type Zero). The type classification of one embodiment is dependent on the 

nature and characteristics of the speech signal 18. In an alternate embodiment, additional type classifications and 
supporting processing may be provided. 

Type One classification includes frames of the speech signal 18 that exhibit stationary behavior. Frames 
exhibiting stationary behavior include a harmonic structure and a formant structure that do not change rapidly. 

30 All other frames may be classified with the Type Zero classification. In alternative embodiments, additional type 

classifications may classify frames into additional classification based on time-domain, frequency domain, etc. 
The type classification optimizes encoding by the initial full-rate frame-processing module 46 and the initial half- 
rate frame-processing module 48, as will be later described. In addition, both the type classification and the rate 
selection may be used to optimize encoding by portions of the excitation-processing module 54 that correspond to 

35 the full and half-rate encoders 36 and 38. 

One embodiment of the excitation-processing module 54 may be sub-divided into a full-rate module 56, 
a half-rate module 58, a quarter-rate module 60, and an eighth-rate module 62. The rate modules 56, 58, 60, and 
62 correspond to the rate encoders 36, 38, 40, and 42 as illustrated in FIG. 2. The full and half-rate modules 56 
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and 58 of one embodiment both include a plurality of frame processing modules and a plurality of subframe 
processing modules that provide substantially different encoding as will be discussed. 

The portion of the excitation processing module 54 for both the full and half-rate encoders 36 and 38 

4 

include type selector modules, first subframe processing modules, second subframe processing modules, first 
frame processing modules and second subframe processing modules. More specifically, the full-rate module 56 
includes an F type selector module 68, an F0 first subframe processing module 70, an Fl first frame-processing 
module 72, an Fl second subframe processing module 7.4 and an Fl second frame-processing module 76. The 
term "F" indicates full-rate, and "0" and *'P signify Type Zero and Type One, respectively. Similarly, the half- 
rate module 58 includes an H type selector module 78, an HO first subframe processing module 80, an HI first 
frame-processing module 82, an HI second subframe processing module 84, and an HI second frame-processing 
module 86. 

The F and H type selector modules 68,78 direct the processing of the speech signals 18 to further 
optimize the encoding process based on the type classification. Classification as Type One indicates the frame 
contains a harmonic structure and a formant structure that do not change rapidly, such as stationary voiced speech. 
15 Accordingly, the bits used to represent a frame classified as Type One may be allocated to facilitate encoding that 

takes advantage of these aspects in representing the frame. Classification as Type Zero indicates the frame may 
exhibit non-stationary behavior, for example, a harmonic structure and a formant structure that changes rapidly or 
the frame may exhibit stationary unvoiced or noise-like characteristics. The bit allocation for frames classified as 
Type Zero may be consequently adjusted to better represent and account for this behavior. 

For the full rate module 56, the F0 first subframe-processing module 70 generates a portion of the 
bitstream when the frame being processed is classified as Type Zero. Type Zero classification of a frame 
activates the F0 first subframe-processing module 70 to process the frame on a subframe basis. The Fl first 
frame-processing module 72, the Fl second subframe processing module 74, and the Fl second frame-processing 
modules 76 combine to generate a portion of the bitstream when the frame being processed is classified as Type 
25 One. Type One classification involves both subframe and frame processing within the full rate module 56. 

Similarly, for the half rate module 58, the HO first subframe-processing module 80 generates a portion of 
the bitstream on a sub-frame basis when the frame being processed is classified as Type Zero. Further, the HI 
first frame-processing module 82, the HI second subframe processing module 84, and the HI second frame- 
processing module 86 combine to generate a portion of the bitstream when the frame being processed is classified 
30 as Type One. As in the full rate module 56, the Type One classification involves both subframe and frame 

processing. 

The quarter and eighth-rate modules 60 and 62 are part of the quarter and eighth-rate encoders 40 and 42, 
respectively, and do not include the type classification. The type classification is not included due to the nature of 
the frames that are processed. The quarter and eighth-rate modules 60 and 62 generate a portion of the bitstream 
35 on a subframe basis and a frame basis, respectively, when activated. 

The rate modules 56, 58, 60, and 62 generate a portion of the bitstream that is assembled with a 
respective portion of the bitstream that is generated by the initial frame processing modules 46, 48, 50, and 52 to 
create a digital representation of a frame. For example, the portion of the bitstream generated by the initial full- 


20 
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rate frame-processing module 46 and the full-rate module 56 may be assembled to form the bitstream generated 
when the full-rate encoder 36 is activated to encode a frame. The bitstreams from each of the encoders 36, 38, 40, 
and 42 may be further assembled to form a bitstream representing a plurality of frames of the speech signal 18. 
The bitstream generated by the encoders 36, 38, 40, and 42 is decoded by the decoding system 16. 
5 FIG. 3 is an expanded block diagram of the decoding system 16 illustrated in FIG. 1. One embodiment 

of the decoding system 16 includes a full-rate decoder 90, a half-rate decoder 92, a quarter-rate decoder 94, an 
eighth-rate decoder 96, a synthesis filter module 98 and a jx>si-processing module 100. The full, half, quarter and 
eighth-rate decoders 90, 92, 94, and 96, the synthesis filter module 98 and the post-processing module 100 are the 
decoding portion of the full, half, quarter and eighth-rate codecs 22, 24, 26, and 28. 
10 The decoders 90, 92, 94, and 96 receive the bitstream and decode the digital signal to reconstruct 

different parameters of the speech signal 18. The decoders 90, 92, 94, and 96 may be activated to decode each 
frame based on the rate selection. The rate selection may be provided from the encoding system 12 to the 
decoding system 16 by a separate information transmittal mechanism, such as a control channel in a wireless 
communication system. In this example embodiment, the rate selection may be provided to the mobile 
15 communication devices as part of broadcast beacon signals generated by the base stations within the wireless 

communications system. In general, the broadcast beacon signals are generated to provide identifying 
information used to establish communications between the base stations and the mobile communication devices. 

The synthesis filter 98 and the post-processing module 100 are part of the decoding process for each of 
the decoders 90, 92, 94, and 96. Assembling the parameters of the speech signal 18 that are decoded by the 
20 decoders 90, 92, 94, and 96 using the synthesis filter 98, generates synthesized speech. The synthesized speech is 

passed through the post-processing module 1 00 to create the post-processed synthesized speech 20. 

One embodiment of the full-rate decoder 90 includes an F type selector 102 and a plurality of excitation 
reconstruction modules. The excitation reconstruction modules comprise an F0 excitation reconstruction module 
104 and an Fl excitation reconstruction module 106. In addition, the full-rate decoder 90 includes a linear 
25 prediction coefficient (LPC) reconstruction module 107. The LPC reconstruction module 107 comprises an F0 

LPC reconstruction module 108 and an Fl LPC reconstruction module 110. 

Similarly, one embodiment of the half-rate decoder 92 includes an H type selector 1 12 and a plurality of 
excitation reconstruction modules. The excitation reconstruction modules comprise an HO excitation 
reconstruction module 1 14 and an HI excitation reconstruction module 116. In addition, the half-rate decoder 92 
30 comprises a linear prediction coefficient (LPC) reconstruction module that is an H LPC reconstruction module 

118. Although similar in concept, the full and half-rate decoders 90 and 92 are designated to decode bitstreams 
from the corresponding full and half-rate encoders 36 and 38, respectively. 

The F and H type selectors 102 and 112 selectively activate respective portions of the full and half-rate 
decoders 90 and 92 depending on the type classification. When the type classification is Type Zero, the F0 or HO 
35 excitation reconstruction modules 104 or 1 14 are activated. Conversely, when the type classification is Type One, 

the Fl or HI excitation reconstruction modules 106 or 116 are activated. The F0 or Fl LPC reconstruction 
modules 108 or 110 are activated by the Type Zero and Type One type classifications, respectively. The H LPC 
reconstruction module 1 18 is activated based solely on the rate selection. 
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The quarter-rate decoder 94 includes a Q excitation reconstruction module 120 and a Q LPC 

reconstruction module 122. Similarly, the eighth-rate decoder 96 includes an E excitation reconstruction module 

1 24 and an E LPC reconstruction module 126. Both the respective Q or E excitation reconstruction modules 120 

* 

or 124 and the respective Q or E LPC reconstruction modules 122 or 126 are activated based solely on the rate 
5 selection. 

Each of the excitation reconstruction modules is operable to provide the short-term excitation on a short- 
term excitation line 128 when activated. Similarly, each.of (he LPC reconstruction modules operate to generate 
the short-term prediction coefficients on a short-term prediction coefficients line 130. The short-term excitation 
and the short-term prediction coefficients are provided to the synthesis filter 98. In addition, in one embodiment, 
10 the short-term prediction coefficients are provided to the post-processing module 100 as illustrated in FIG. 3. 

The post-processing module 100 can include filtering, signal enhancement, noise modification, 
amplification, tilt correction and other similar techniques capable of improving the perceptual quality of the 
synthesized speech. The post-processing module 100 is operable to decrease the audible noise without degrading 
the synthesized speech. Decreasing the audible noise may be accomplished by emphasizing the formant structure 
I 5 of the synthesized speech or by suppressing only the noise in the frequency regions that are perceptually not 

relevant for the synthesized speech. Since audible noise becomes more noticeable at lower bit rates, one 
embodiment of the post-processing module 100 may be activated to provide post-processing of the synthesized 
speech differently depending on the rate selection. Another embodiment of the post-processing module 100 may 
be operable to provide different post-processing to different groups of the decoders 90, 92, 94, and 96 based on 
20 the rate selection. 

During operation, the initial frame-processing module 44 illustrated in FIG. 2 analyzes the speech signal 
18 to determine the rate selection and activate one of the codecs 22, 24, 26, and 28. If for example, the full-rate 
codec 22 is activated to process a frame based on the rate selection, the initial full-rate frame-processing module 
46 determines the type classification for the frame and generates a portion of the bitstream. The full-rate module 
25 56, based on the type classification, generates the remainder of the bitstream for the frame. 

The bitstream may be received and decoded by the full-rate decoder 90 based on the rate selection. The 
full-rate decoder 90 decodes the bitstream utilizing the type classification that was determined during encoding. 
The synthesis filter 98 and the post-processing module 100 use the parameters decoded from the bitstream to 
generate the post-processed synthesized speech 20. The bitstream that is generated by each of the codecs 22, 24, 
30 26, and 28 contains significantly different bit allocations to emphasize different parameters and/or characteristics 

of the speech signal 18 within a frame. 

J.O BIT ALLOCATION 

FIGS. 4, 5, 6 and 7 are tables illustrating one embodiment of the bit-allocation for the full-rate codec 22, 
35 the half-rate codec 24, the quarter-rate codec 26, and the eighth-rate codec 28, respectively. The bit-allocation 

designates the portion of the bitstream generated by the initial frame-processing module 44, and the portion of the 
bitstream generated by the excitation-processing module 54 within a respective encoder 36, 38, 40, and 42. In 
addition the bit-allocation designates the number of bits in the bitstream that represent a frame. Accordingly, the 
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bit rate varies depending on the codec 22, 24, 26, and 28 that is activated. The bitstream may be classified into a 
first portion and a second portion depending on whether the representative bits are generated on a frame basis or 
on a subframe basis, respectively, by the encoding system 12. As will be described later, the first portion and the 
second portion of the bitstream vary depending on the codec 22, 24, 26, and 28 selected to encode and decode a 
frame of the speech signal 18. 

1 .1 Bit Allocation for the Full-Rate Codec 

Referring now to FIGS. 2, 3, and 4, the full-rate bitstream of the full-rate codec 22 will be described. 
Referring now to FIG. 4, the bit allocation for the full-rate codec 22 includes a line spectrum frequency (LSF) 
component 140, a type component 142, an adaptive codebook component 144, a fixed codebook component 146 
and a gain component 147. The gain component 147 comprises an adaptive codebook gain component 148 and a 
fixed codebook gain component 150. The bitstream allocation is further defined by a Type Zero column 152 and 
a Type One column 154. The Type Zero and Type One columns 152 and 154 designate the allocation of the bits 
in the bitstream based on the type classification of the speech signal 18 as previously discussed. In one 
embodiment, the Type Zero column 152 and the Type One column 154 both use 4 subframes of 5 milliseconds 
each to process the speech signals 18. 

The initial full frame-processing module 46, illustrated in FIG. 2, generates the LSF component 140. 
The LSF component 140 is generated based on the short-term predictor parameters. The short-term predictor 
parameters are converted to a plurality of line spectrum frequencies (LSFs). The LSFs represent the spectral 
envelope of a frame. In addition, a plurality of predicted LSFs from the LSFs of previous frames are determined. 
The predicted LSFs are subtracted from the LSFs to create an LSFs prediction error. In one embodiment, the 
LSFs prediction error comprises a vector of 10 parameters. The LSF prediction error is combined with the 
predicted LSFs to generate a plurality of quantized LSFs. The quantized LSFs are interpolated and converted to 
form a plurality of quantized LPC coefficients Aq(z) for each subframe as will be discussed in detail later. In 
addition, the LSFs prediction error is quantized to generate the LSF component 140 that is transmitted to the 
decoding system 16. 

When the bitstream is received at the decoding system 16, the LSF component 140 is used to locate a 
quantized vector representing a quantized LSFs prediction error. The quantized LSFs prediction error is added to 
the predicted LSFs to generate quantized LSFs. The predicted LSFs are determined from the LSFs of previous 
frames within the decoding system 16 similarly to the encoding system 12. The resulting quantized LSFs may be 
interpolated for each subframe using a predetermined weighting. The predetermined weighting defines an 
interpolation path that may be fixed or variable. The interpolation path is between the quantized LSFs of the 
previous frame and the quantized LSFs of the current frame. The interpolation path may be used to provide a 
spectral envelope representation for each subframe in the current frame. 

For frames classified as Type Zero, one embodiment of the LSF component 140 is encoded utilizing a 
plurality of stages 156 and an interpolation element 158 as illustrated in FIG. 4. The stages 156 represent the 
LSFs prediction error used to code the LSF component 140 for a frame. The interpolation element 158 may be 
used to provide a plurality of interpolation paths between the quantized LSFs of the previous frame and the 
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quantized LSFs of the frame currently being processed. In general, the interpolation element 158 represents 
selectable adjustment in the contour of the line spectrum frequencies (LSFs) during decoding. Selectable 
adjustment may be used due to the non-stationary spectral nature of frames that are classified as Type Zero. For 
frames classified as Type One, the LSF component 140 may be encoded using only the stages 156 and a 
5 predetermined.linear interpolation path due to the stationary spectral nature of such frames. 

One embodiment of the LSF component 140 includes 2 bits to encode the interpolation element 158 for 
frames classified as Type Zero. The bits identify the particular interpolation path. Each of the interpolation paths 
adjust the weighting of the previous quantized LSFs for each subframe and the weighting of the current quantized 
LSFs for each subframe. Selection of an interpolation path may be determined based on the degree of variations 
10 in the spectral envelope between subsequent subframes. For example, if there is substantial variation in the 

spectral envelope in the middle of the frame, the interpolation element 158 selects an interpolation path that 
decreases the influence of the quantized LSFs from the previous frame. One embodiment of the interpolation 
element 158 can represent any one of four different interpolation paths for each subframe. 

The predicted LSFs may be generated using a plurality of moving average predictor coefficients. The 
15 predictor coefficients determine how much of the LSFs of past frames are used to predict the LSFs of the current 

frame. The predictor coefficients within the full-rate codec 22 use an LSF predictor coefficients table. The table 
may be generally illustrated by the following matrix: 

El u El 2 , El n 


Em„ Em 2 Em n 

TABLE 1 

In one embodiment, m equals 2 and n equals 10. Accordingly, the prediction order is two and there are two 
20 vectors of predictor coefficients, each comprising 10 elements. One embodiment of the LSF predictor coefficients 

table is titled *Tloat64 B_85k" and is included in Appendix B of the attached microfiche appendix. 

Once the predicted LSFs have been determined, the LSFs prediction error may be calculated using the 
actual LSFs. The LSFs prediction error may be quantized using a full dimensional multi-stage quantizer. An LSF 
prediction error quantization table containing a plurality of quantization vectors represents each stage 156 that 
25 may be used with the multi-stage quantizer. The multistage quantizer determines a portion of the LSF component 

140 for each stage 156. The determination of the portion of the LSF component 140 is based on a pruned search 
approach. The pruned search approach determines promising quantization vector candidates from each stage. At 
the conclusion of the determination of candidates for all the stages, a decision occurs simultaneously that selects 
the best quantization vectors for each stage. 
30 In the first stage, the multistage quantizer determines a plurality of candidate first stage quantization 

errors. The candidate first stage quantization errors are the difference between the LSFs prediction error and the 
closest matching quantization vectors located in the first stage. The multistage quantizer then determines a 
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plurality of candidate second stage quantization errors by identifying the quantization vectors located in the 
second stage that best match the candidate first stage quantization errors. This iterative process is completed for 
each of the stages and promising candidates are kept from each stage. The final selection of thtf» best 
representative quantization vectors for each stage simultaneously occurs when the candidates have been 
5 determined for all the stages. The LSF component 140 includes index locations of the closest matching 

quantization vectors from each stage. One embodiment of the LSF component 140 includes 25 bits to encode the 
index locations within the stages 1 56. The LSF prediction error quantization table for the quantization approach 
may be illustrated generally by the following matrix: 


VI,, Vl 2 , Vl n 


Vr„ Vr 2 
VI u VI 2 , 


Vs„ 


Vs 2 


Vr n 
Vl„ 


Vs n 


10 TABLE 2 

One embodiment of the quantization table for both the Type Zero and the Type One classification uses 
four stages (j- 4 ) m which each quantization vector is represented by 10 elements (n=10). The stages 156 of this 
embodiment include 128 quantization vectors (r=128) for one of the stages 156, and 64 quantization vectors 
(s=64) in the remaining stages 156. Accordingly, the index location of the quantization vectors within the stages 

15 156 may be encoded using 7 bits for the one of the stages 156 that includes 128 quantization vectors. In addition, 

index locations for each of the stages 156 that include 64 quantization vectors may be encoded using 6 bits. One 
embodiment of the LSF prediction error quantization table used for both the Type Zero and Type One 
classification is titled "Float64 CBes_85k M and is included in Appendix B of the attached microfiche appendix. 

Within the decoding system 16, the F0 or Fl LPC reconstruction modules 108, 110 in the full-rate 

20 decoder 90 obtain the LSF component 140 from the bitstream as illustrated in FIG. 3. The LSF component 140 

may be used to reconstruct the quantized LSFs as previously discussed. The quantized LSFs may be interpolated 
and converted to form the linear prediction coding coefficients for each subframe of the current frame. 

For Type Zero classification, reconstruction may be performed by the F0 LPC reconstruction module 
108. Reconstruction involves determining the predicted LSFs, decoding the quantized LSFs prediction error and 

>5 reconstructing the quantized LSFs. In addition, the quantized LSFs may be interpolated using the identified 

interpolation path. As previously discussed, one of the four interpolation paths is identified to the F0 LPC 
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reconstruction module 108 by the interpolation element 158 that forms a part of the LSF component 140. 
Reconstruction of the Type One classification involves the use of the predetermined linear interpolation path and 
the LSF prediction error quantization table by the Fl LPC reconstruction module 1 10. The LSF component 140 
forms part of the first portion of the bitstream since it is encoded on a frame basis in both the Type Zero and the 
5 Type One classifications. 

The type component 142 also forms part of the first portion of the bitstream. As illustrated in FIG. 2, the 
F type selector module 68 generates the type component 142 to represent the type classification of a particular 
frame. Referring now to FIG. 3, the F type selector module 102 in the full-rate decoder 90 receives the type 
component 142 from the bitstream. 

10 One embodiment of the adaptive codebook component 144 may be an open loop adaptive codebook 

component 144a or a closed loop adaptive codebook component 144b. The open or closed loop adaptive 
codebook component 144a, 144b is generated by the initial full frame-processing module 46 or the F0 first 
subframe-processing module 70, respectively, as illustrated in FIG. 2. The open loop adaptive codebook 
component 144a may be replaced by the closed loop adaptive codebook component 144b in the bitstream when 

15 the frame is classified as Type Zero. In general, the open loop designation refers to processing on a frame basis 

that does not involve analysis-by-synthesis (ABS). The closed loop processing is performed on a subframe basis 
and includes analysis-by-synthesis (ABS). 

Encoding the pitch lag, which is based on the periodicity of the speech signal 18, generates the adaptive 
codebook component 144. The open loop adaptive codebook component 144a is generated for a frame; whereas 

20 the closed loop adaptive codebook component 144b is generated on a subframe basis. Accordingly, the open loop 

adaptive codebook component 144a is part of the first portion of the bitstream and the closed loop adaptive 
codebook component 144b is part of the second portion of the bitstream. In one embodiment, as illustrated in Fig. 
4, the open loop adaptive codebook component 144a comprises 8 bits and the closed loop adaptive codebook 
component 144b comprises 26 bits. The open loop adaptive codebook component 144a and the closed loop 

25 adaptive codebook component 144b may be generated using an adaptive codebook vector that will be described 

later. Referring now to FIG. 3, the decoding system 16 receives the open or closed loop adaptive codebook 
component 1 44a or 144b. The open or closed loop adaptive codebook component 144a or 144b is decoded by the 
F0 or Fl excitation reconstruction module 104 or 106, respectively. 

One embodiment of the fixed codebook component 146 may be a Type Zero fixed codebook component 

30 146a or a Type One fixed codebook component 146b. The Type Zero fixed codebook component 146a is 

generated by the F0 first subframe-processing module 70 as illustrated in FIG. 2. The Fl subframe-processing 
module 72 generates the Type One fixed codebook component 146b. The Type Zero or Type One fixed codebook 
component 146a or 1 46b is generated using a fixed codebook vector and synthesis-by-analysis on a subframe 
basis that will be described later. The fixed codebook component 146 represents the long-term residual of a 

35 subframe using an n-pulse codebook, where n is the number of pulses in the codebook. 

Referring now to Fig. 4, the Type Zero fixed codebook component 146a of one embodiment comprises 
22 bits per subframe. The Type Zero fixed codebook component 146a includes identification of one of a plurality 
of n-pulse codebooks, pulse locations in the codebook, and the signs of representative pulses (quantity "n") that 
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correspond to the pulse locations. In an example embodiment, up to two bits designate which one of three n-pulse 
codcbooks has been encoded. Specifically, the first of the two bits is set to "1" to designate the first of the three n- 
pulse codebooks is used. If the first bit is set to "0," the second of the two bits designates whether the second or 
the third of the three n-pulse codebooks are used. Accordingly, in the example embodiment, the first of the three 
5 n-pulse codebooks has 21 bits to represent the pulse locations and signs, and the second and third of the three n- 

pulse codebooks have 20 bits available. 

Each of the representative pulses within one of the, n-pulse codebooks includes a corresponding track. 
The track is a list of sample locations in a subframe where each sample location in the list is one of the pulse 
locations. A subframe being encoded may be divided into a plurality of sample locations where each of the 

10 sample locations contains a sample value. The tracks of the corresponding representative pulses list only a 

portion of the sample locations from a subframe. Each of the representative pulses within one of the n-pulse 
codebooks may be represented by one of the pulse locations in the corresponding track. 

During operation, each of the representative pulses is sequentially placed in each of the pulse locations in 
the corresponding track. The representative pulses are converted to a signal that may be compared to the sample 

15 values in the sample locations of the subframe using ABS. The representative pulses are compared to the sample 

values in those sample locations that are later in time than the sample location of the pulse location. The pulse 
location that minimizes the difference between the representative pulse and the sample values that are later in time 
forms a portion of the Type Zero fixed codebook component 146a. Each of the representative pulses in a selected 
n-pulse codebook may be represented by a corresponding pulse location that forms a portion of the Type Zero 

20 fixed codebook component 146a. The tracks are contained in track tables that can generally be represented by the 

following matrix: 


PI., Ph, Plf 

P2,, P2 2 , P2 e 

P3,, P3 2 , P3 h 

P4 lt P4 2 , P4, 


Pn,, Pn 2 Pnj 


TABLE 3 

One embodiment of the track tables is the tables entitled "static short track_5_4_0," "static short track_5_3_2," 
25 and "static short track_5_3_l" within the library titled "rracks.tab" that is included in Appendix B of the attached 

microfiche appendix. 

In the example embodiment illustrated in Fig. 4, the n-pulse codebooks are three 5-pulse codebooks 160 
where the first of the three 5-pulse codebooks 160 includes 5 representative pulses therefore n=5. A first 
representative pulse has a track that includes 16 (f= 16) of the 40 sample locations in the subframe. The first 
30 representative pulse from the first of the three 5-pulse codebooks 160 are compared with the sample values in the 

sample locations. One of the sample locations present in the track associated with the first representative pulse is 
identified as the pulse location using 4 bits. The sample location that is identified in the track is the sample 
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location in the subframe that minimizes the difference between the first representative pulse and the sample values 
that are later in time as previously discussed. Identification of the pulse location in the track forms a portion of 
the Type Zero fixed codebook component 146a. 

In this example embodiment, the second and fourth representative pulses have corresponding tracks with 
5 16 sample locations (g and i = 16) and the third and fifth representative pulses have corresponding tracks with 8 

sample locations (h and j = 8). Accordingly, the pulse locations for the second and fourth representative pulses 
are identified using 4 bits and the pulse locations of the third*and fifth representative pulses are identified using 3 
bits. As a result, the Type Zero fixed codebook component 146a for the first of the three 5-pulse codebooks 160 
includes 18 bits for identifying the pulse locations. 
10 The signs of the representative pulses in the identified pulse locations may also be identified in the Type 

Zero fixed codebook component 146a. In the example embodiment, one bit represents the sign for the first 
representative pulse, one bit represents a combined sign for both the second and fourth representative pulses and 
one bit represents the combined sign for the third and the fifth representative pulses. The combined sign uses the 
redundancy of the information in the pulse locations to transmit two distinct signs with a single bit. Accordingly, 
15 the Type Zero fixed codebook component 146a for the first of the three 5-pulse codebooks 160 includes three bits 

for the sign designation for a total of 21 bits. 

In an example embodiment, the second and third of the three 5-pulse codebooks 160 also include 5 
representative pulses (n=5) and the tracks in the track table each comprise 8 sample locations (f,g,h,ij = 8). 
Accordingly, the pulse locations for each of the representative pulses in the second and third of the three 5-pulse 
20 codebook 160 are identified using 3 bits. In addition, in this example embodiment, the signs for each of the pulse 

locations are identified using 1 bit. 

For frames classified as Type One, in an example embodiment, the n-pulse codebook is an 8-pulse 
codebook 162 (n=8). The 8-pulse codebook 162 is encoded using 30 bits per subframe to create one embodiment 
of the Type One fixed codebook component 146b. The 30 bits includes 26 bits identifying pulse locations using 
25 tracks as in the Type Zero classification, and 4 bits identifying the signs. One embodiment of the track table is the 

table entitled "static INT 16 track_8_4_0" within the library titled "tracks.tab" that is included in Appendix B of 
the attached microfiche appendix. 

In the example embodiment, the tracks associated with the first and fifth representative pulses comprise 
16 sample locations that are encoded using 4 bits. The tracks associated with the remaining representative pulses 
30 comprise 8 sample locations that are encoded using 3 bits. The first and fifth representative pulses, the second 

and sixth representative pulses, the third and seventh representative pulses, and the fourth and eighth 
representative pulses use the combined signs for both respective representative pulses. As illustrated in FIG. 3, 
when the bitstream is received by the decoding system 16, the F0 or the Fl excitation reconstruction modules 104 
or 106 decode the pulse locations of the tracks. The pulse locations of the tracks are decoded by the F0 or the Fl 
35 excitation reconstruction modules 104 or 106 for one of the three 5-pulse codebooks 160 or the 8-pulse codebook 

162, respectively. The fixed codebook component 146 is part of the second portion of the bitstream since it is 
generated on a subframe basis. 
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Referring again to FIG. 4, the gain component 147, in general, represents the adaptive and fixed 
codebook gains. For Type Zero classification, the gain component 147 is a Type Zero adaptive and fixed 
codebook gain component 148a, 150a representing both the adaptive and the fixed codebook gains. The/ Type 

4 

Zero adaptive and fixed codebook gain component 148a, 150a is part of the second portion of the bitstream since 
it is encoded on a subframe basis. As illustrated in FIG. 2, the Type Zero adaptive and fixed codebook gain 
component 148a, 150a is generated by the F0 first subframe-processing module 70. 

For each subframe of a frame classified as Type Zero, the adaptive and fixed codebook gains are jointly 
coded by a two-dimensional vector quantizer (2D VQ) 164 to generate the Type Zero adaptive and fixed 
codebook gain component 148a, 150a. In one embodiment, quantization involves translating the fixed codebook 
gain into a fixed codebook energy in units of decibels (dB). In addition, a predicted fixed codebook energy may 
be generated from the quantized fixed codebook energy values of previous frames. The predicted fixed codebook 
energy may be derived using a plurality of fixed codebook predictor coefficients. 

Similar to the LSFs predictor coefficients, the fixed codebook predictor coefficients determine how much 
of the fixed codebook energy of past frames may be used to predict the fixed codebook energy of the current 
frame. The predicted fixed codebook energy is subtracted from the fixed codebook energy to generate a 
prediction fixed codebook energy error. By adjusting the weighting of the previous frames and the current frames 
for each subframe, the predicted fixed codebook energy may be calculated to minimize the prediction fixed 
codebook error. 

The prediction fixed codebook energy error is grouped with the adaptive codebook gain to form a two- 
dimensional vector. Following quantization of the prediction fixed codebook energy error and the adaptive 
codebook gain, as later described, the two-dimensional vector may be referred to as a quantized gain vector (ga C ). 
The two-dimensional vector is compared to a plurality of predetermined vectors in a 2D gain quantization table. 
An index location is identified that is the location in the 2D gain quantization table of the predetermined vector 
that best represents the two-dimensional vector. The index location is the adaptive and fixed codebook gain 
component 148a and 150a for the subframe. The adaptive and fixed codebook gain component 148a and 150a for 
the frame represents the indices identified for each of the subframes. 

The predetermined vectors comprise 2 elements, one representing the adaptive codebook gain, and one 
representing the prediction fixed codebook energy error. The 2D gain quantization table may be generally 
represented by: 

VI,, Vl 2 " 


i 

TABLE 4 

The two-dimensional vector quantizer (2D VQ) 164, of one embodiment, utilizes 7 bits per subframe to 
identify the index location of one of 128 quantization vectors (n=128). One embodiment of the 2D gain 
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quantization table is entitled M Float64 gainVQ_2_128_8_5" and is included in Appendix B of the attached 
microfiche appendix. 

For frames classified as Type One, a Type One adaptive codebook gain component 148b is generated by 

the Fl first frame-processing module 72 as illustrated in FIG. 2. Similarly, the Fl second frame-processing 

5 module 76 generates a Type One fixed codebook gain component 1 50b. The Type One adaptive codebook gain 

component 1 48b and the Type One fixed codebook gain component 1 50b are generated on a frame basis to form 

part of the first portion of the bitstream. 

Referring again to FIG. 4, the Type One adaptive codebook gain component 148b is generated using a 

multi-dimensional vector quantizer that is a four-dimensional pre vector quantizer (4D pre VQ) 166 in one 

10 embodiment. The term "pre" is used to highlight that, in one embodiment, the adaptive codebook gains for all the 

subframes in a frame are quantized prior to the search in the fixed codebook for any of the subframes. In an 

alternative embodiment, the multi-dimensional quantizer is an n dimensional vector quantizer that quantizes 

vectors for n subframes where n may be any number of subframes. 

The vector quantized by the four-dimensional pre vector quantizer (4D pre VQ) 166 is an adaptive 

15 codebook gain vector, with elements that represent each of the adaptive codebook gains from each of the 

subframes. Following quantization, as will be later discussed, the adaptive codebook gain vector can also be 

referred to as a quantized pitch gain (g k a ). Quantization of the adaptive codebook gain vector to generate the 

adaptive codebook gain component 148b is performed by searching in a pre-gain quantization table. The pre-gain 

quantization table includes a plurality of predetermined vectors that may be searched to identify the predetermined 

20 vector that best represents the adaptive codebook gain vector. The index location of the identified predetermined 

vector within the pre-gain quantization table is the Type One adaptive codebook component 148b. The adaptive 

codebook gain component 148b of one embodiment comprises 6 bits. 

In one embodiment, the predetermined vectors comprise 4 elements, 1 element for each subframe. 

Accordingly, the pre-gain quantization table may be generally represented as: 

25 i , 

VI, Vl 2 Vl 4 

V2,, V2 2 , V2 4 | 


Vn„ Vn 2 Vn 4 

TABLE 5 

One embodiment of the pre-gain quantization table includes 64 predetermined vectors (n=64). An embodiment of 
the pre-gain quantization table is entitled M Float64 gp4_tab" and is included in Appendix B of the attached 
microfiche appendix. 

30 The Type One fixed codebook gain component 150b may be similarly encoded using a multi- 

dimensional vector quantizer for n subframes. In one embodiment, the multi-dimensional vector quantizer is a 
four-dimensional delayed vector quantizer (4D delayed VQ) 168. The term "delayed" highlights that the 
quantization of the fixed codebook gains for the subframes occurs only after the search in the fixed codebook for 
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all the subframes. Referring again to FIG. 2, the Fl second frame-processing module 76 determines the fixed 
codebook gain for each of the subframes. The fixed codebook gain may be determined by first buffering 
parameters generated on a sub-frame basis until the entire frame has been processed. When the frame has been 
processed, the fixed codebook gains for all of the subframes are quantized using the buffered parameters to 
generate the.Type One fixed codebook gain component 150b. In one embodiment, the Type One fixed codebook 
gain component 150b comprises 10 bits as illustrated in FIG. 4. 

The Type One fixed codebook gain component 150b is generated by representing the fixed-codebook 
gains with a plurality of fixed codebook energies in units of decibels (dB). The fixed codebook energies are 
quantized to generate a plurality of quantized fixed codebook energies, which are then translated to create a 
plurality of quantized fixed-codebook gains. In addition, the fixed codebook energies are predicted from the 
quantized fixed codebook energy errors of the previous frames to generate a plurality of predicted fixed codebook 
energies. The difference between the predicted fixed codebook energies and the fixed codebook energies is a 
plurality of prediction fixed codebook energy errors. In one embodiment, different prediction coefficients may be 
used for each of 4 subframes to generate the predicted fixed codebook energies. In this example embodiment, the 
predicted fixed codebook energies of the first, the second, the third, and the fourth subframe are predicted from 
the 4 quantized fixed codebook energy errors of the previous frame. The prediction coefficients for the first, 
second, third, and fourth subframes of this example embodiment may be {0.7, 0.6, 0.4, 0.2}, {0.4, 0.2, 0.1, 0.05}, 
{0.3, 0.2, 0.075, 0.025}, and {0.2, 0.075, 0.025, 0.0}, respectively. 

The prediction fixed codebook energy errors may be grouped to form a fixed codebook gain vector that, 
when quantized, may be referred to as a quantized fixed codebook gain (g k c ). In one embodiment, the prediction 
fixed codebook energy error for each subframe represent the elements in the vector. The prediction fixed 
codebook energy errors are quantized using a plurality of predetermined vectors in a delayed gain quantization 
table. During quantization, a perceptual weighing measure may be incorporated to minimize the quantization 
error. An index location that identifies the predetermined vector in the delayed gain quantization table is the fixed 
codebook gain component 1 50b for the frame. 

The predetermined vectors in the delayed gain quantization table of one embodiment includes 4 
elements. Accordingly, the delayed gain quantization table may be represented by the previously discussed Table 
5. One embodiment of the delayed gain quantization table includes 1024 predetermined vectors (n=1024). An 
embodiment of the delayed gain quantization table is entitled "Float64 gainVQ_4_1024" and is included in 
Appendix B of the attached microfiche appendix. 

Referring again to FIG. 3, the fixed and adaptive codebook gain components 148 and 150 may be 
decoded by the full-rate decoder 90 within the decoding system 16 based on the type classification. The F0 
excitation reconstruction module 104 decodes the Type Zero adaptive and fixed codebook gain component 148a, 
150a. Similarly, the Type One adaptive codebook gain component 148b and the Type One fixed gain component 
1 50b are decoded by the Fl excitation reconstruction module 106. 

Decoding of the fixed and adaptive codebook gain components 158 and 160 involves generation of the 
respective predicted gains, as previously discussed, by the full-rate decoder 90. The respective quantized vectors 
from the respective quantization tables are then located using the respective index locations. The respective 
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quantized vectors are then assembled with the respective predicted gains to generate respective quantized 
codcbook gains. The quantized codebook gains generated from the Type Zero fixed and adaptive gain component 
148a and 1 50a represent the values for both the fixed and adaptive codebook gains for a subframe. The quantized 
codebook gain generated from the Type One adaptive codebook gain component 148b and the Type One fixed 
5 codebook gain component 150b represents the values for the fixed and adaptive codebook gains, respectively, for 

each subframe in a frame. 

1.2 Bit Allocation for the Half-Rate Codec 

Referring now to FIGS. 2, 3 and 5, the half-rate bitstream of the half-rate codec 24 will be described. 

10 The half-rate codec 24 is in many respects similar to the full-rate codec 22 but has a different bit allocation. As 

such, for purposes of brevity, the discussion will focus on the differences. Referring now to FIG. 5, the bitstream 
allocation of one embodiment of the half-rate codec 24 includes a line spectrum frequency (LSF) component 172, 
a type component 174, an adaptive codebook component 176, a fixed codebook component 178, and a gain 
component 179. The gain component 179 further comprises an adaptive codebook gain component 180 and a 

15 fixed codebook gain component 182. The bitstream of the half-rate codec 24 also is further defined by a Type 

Zero column 184 and a Type One column 186. In one embodiment, the Type Zero column 184 uses two 
sub frames of 10 milliseconds each containing 80 samples. The Type One column 186, of one embodiment, uses 
three subframes where the first and second subframes contain 53 samples and the third subframe contains 54 
samples. 

20 Although generated similarly to the full-rate codec 22, the LSF component 172 includes a plurality of 

stages 188 and a predictor switch 190 for both the Type Zero and the Type One classifications. In addition, one 
embodiment of the LSF component 172 comprises 21 bits that form part of the first portion of the bitstream. The 
initial half frame-processing module 48 illustrated in FIG. 2, generates the LSF component 172 similarly to the 
full-rate codec 22. Referring again to FIG. 5, the half-rate codec 24 of one embodiment includes three stages 188, 

25 two with 128 vectors and one with 64 vectors. The three stages 188 of the half rate codec 24 operate similarly to 

the full-rate codec 22 for frames classified as Type One with the exception of the selection of a set of predictor 
coefficients as discussed later. The index location of each of the 128 vectors is identified with 7 bits and the index 
location of each of the 64 vectors is identified with 6 bits. One embodiment of the LSF prediction error 
quantization table for the half-rate codec 24 is titled "Float64 CBes_40k M and is included in Appendix B of the 

30 attached microfiche appendix. 

The half-rate codec 24 also differs from the full-rate codec 22 in selecting between sets of predictor 
coefficients. The predictor switch 190 of one embodiment identifies one of two possible sets of predictor 
coefficients using one bit. The selected set of predictor coefficients may be used to determine the predicted line 
spectrum frequencies (LSFs), similar to the full-rate codec 22. The predictor switch 190 determines and identifies 

35 which of the sets of predictor coefficients will best minimize the quantization error. The sets of predictor 

coefficients may be contained in an LSF predictor coefficient table that may be generally illustrated by the 
following matrix: 
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EI. 1 


Em/jEmi 1 , 


Em n ' 


El, J ,El 2 j , 


El J 


Em, j ,Em 2 J , 


Em n } 


TABLE 6 


In one embodiment there are four predictor coefficients (m=4) in each of two sets Q-2) that comprise 10 
elements each (n=10). The LSF predictor coefficient table for the half-rate codec 24 in one embodiment is titled 
"Float64 B_40k" and is included in Appendix B of the attached microfiche appendix. Referring again to FIG. 3, 
the LSF prediction error quantization table and the LSF predictor coefficient table are used by the H LPC 
reconstruction module 118 within the decoding system 16. The H LPC reconstruction module 1 18 receives and 
decodes the LSF component 172 from the bitstrcam to reconstruct the quantized frame LSFs. Similar to the full- 
rate codec 22, for frames classified as Type One, the half-rate codec 24 uses a predetermined linear interpolation 
path. However, the half-rate codec 24 uses the predetermined linear interpolation path for frames classified as 
both Type Zero and Type One. 

The adaptive codebook component 1 76 in the half-rate codec 24 similarly models the pitch lag based on 
the periodicity of the speech signal 18. The adaptive codebook component 176 is encoded on a subframe basis for 
the Type Zero classification and a frame basis for the Type One classification. As illustrated in FIG. 2, the initial 
half frame-processing module 48 encodes an open loop adaptive codebook component 176a for frames with the 
Type One classification. For frames with the Type Zero classification, the HO first subframe-processing module 
80 encodes a closed loop adaptive codebook component 176b. 

Referring again to FIG. 5, one embodiment of the open loop adaptive codebook component 176a is 
encoded by 7 bits per frame and the closed loop adaptive codebook component 176b is encoded by 7 bits per 
subframe. Accordingly, the Type Zero adaptive codebook component 1 76a is part of the first portion of the 
bilstream, and the Type One adaptive codebook component 176b is part of the second portion of the bitstream. 
As illustrated in FIG. 3, the decoding system 16 receives the closed loop adaptive codebook component 1 76b. 
The closed loop adaptive codebook component 176b is decoded by the half-rate decoder 92 using the HO 
excitation reconstruction module 1 14. Similarly, the HI excitation reconstruction module 1 16 decodes the open 
loop adaptive codebook component 176a. 
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One embodiment of the fixed codebook component 178 for the half-rate codec 24 is dependent on the 
type classification to encode the long-term residual as in the full-rate codec 22. Referring again to FIG. 2, a Type 
Zero fixed codebook component 178a or a Type One fixed codebook component 1 78b is generated by the HO first 
subframe-processing module 80 or the HI second subframc-processing module 84, respectively. Accordingly, the 
5 Type Zero and Type One fixed codebook components I78a and 178b form a part of the second portion of the 

bitstream. 

Rcferring again to FIG. 5, the Type Zero fixed codebook component 178a of an example embodiment is 
encoded using 15 bits per subframe with up to two bits identify the codebook to be used as in the full-rate codec 
22. Encoding the Type Zero fixed codebook component 178a involves use of a plurality of n-pulse codebooks 

10 that are a 2-pulse codebook 192 and a 3-pulse codebook 194 in the example embodiment. In addition, in this 

example embodiment, a gaussian codebook 195 is used that includes entries that are random excitation. For the n- 
pulse codebooks, the half-rate codec 24 uses the track tables similarly to the full-rate codec 22. In one 
embodiment, the track table entitled "static INT16 track_2_7_l, M "static INT16 track_l_3_0," and "static INT16 
lrack_3_2_0 H included in the library entitled "tracks.tab" in Appendix B of the microfiche appendix are used. 

15 In an example embodiment of the 2-pulse codebook 192, each track in the track table includes 80 sample 

locations for each representative pulse. The pulse locations for both the first and second representative pulses are 
encoded using 13 bits. Encoding I of the 80 possible pulse locations is accomplished in 13 bits by identifying the 
pulse location for the first representative pulse, multiplying the pulse location by 80 and adding the pulse location 
of the second representative pulse to the result. The end result is a value that can be encoded in 13 bits with an 

20 additional bit used to represent the signs of both representative pulses as in the full-rate codec 22. 

In an example embodiment of the 3-pulse codebook 194, the pulse locations are generated by the 
combination of a general location, that may be one of 16 sample locations defined by 4 bits, and a relative 
displacement there from. The relative displacement may be 3 values representing each of the 3 representative 
pulses in the 3-pulse codebook 194. The values represent the location difference away from the general location 

25 and may be defined by 2 bits for each representative pulse. The signs for the three representative pulses may be 

each defined by one bit such that the total bits for the pulse location and the signs is 13 bits. 

The gaussian codebook 195 generally represents noise type speech signals that may be encoded using 
two orthogonal basis random vectors. The Type Zero fixed codebook component 178a represents the two 
orthogonal based random vectors generated from the gaussian codebook 195. The Type Zero fixed codebook 

30 component 178a represents how to perturbate a plurality of orthogonal basis random vectors in a gaussian table to 

increase the number of orthogonal basis random vectors without increasing the storage requirements. In an 
example embodiment, the number of orthogonal basis random vectors is increased from 32 vectors to 45 vectors. 
A gaussian table that includes 32 vectors with each vector comprising 40 elements represents the gaussian 
codebook of the example embodiment. In this example embodiment, the two orthogonal basis random vectors 

35 used for encoding are interleaved with each other to represent 80 samples in each subframe. The gaussian 

codebook may be generally represented by the following matrix: 
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CI,, Cl 2 , Gl n 
C2,, G2 2 , G2 n 


C32„ G32 2 G32 n 

TABLE 7 

One embodiment of the gaussian codebook 195 is titled "double bv M and is included in Appendix B of 
the attached microfiche appendix. For the example embodiment of the gaussian codebook 195, 1 1 bits identify 
5 the combined indices (location and perturbation) of both of the two orthogonal basis random vectors used for 

encoding, and 2 bits define the signs of the orthogonal basis random vectors. 

Encoding the Type One fixed codebook component 178b involves use of a plurality of n-pulse 
codebooks that are a 2-pulse codebook 196 and a 3-pulse codebook 197 in the example embodiment. The 2-pulse 
codebook 196 and the 3 -pulse codebook 197 function similarly to the 2-pulse codebook 192 and the 3-pulse 
10 codebook 194 of the Type Zero classification, however the structure is different. The Type One fixed codebook 

component 178b of an example embodiment is encoded using 13 bits per subframe. Of the 13 bits, 1 bit identifies 
the 2-pulse codebook 196 or the 3-pulse codebook 197 and 12 bits represent the respective pulse locations and the 
signs of the representative pulses. In the 2-pulse codebook 196 of the example embodiment, the tracks include 32 
sample locations for each representative pulse that are encoded using 5 bits with the remaining 2 bits used for the 
15 sign of each representative pulse. In the 3-pulse codebook 197, the general location includes 8 sample locations 

that are encoded using 4 bits. The relative displacement is encoded by 2 bits and the signs for the representative 
pulses are encoded in 3 bits simiJar to the frames classified as Type Zero. 

Referring again to FIG. 3, the decoding system 16 receives the Type Zero or Type One fixed codebook 
components 1 78a and 1 78b. The Type Zero or Type One fixed codebook components 1 78a and 1 78b are decoded 
20 by the HO excitation reconstruction module 1 14 or the HI reconstruction module 1 16, respectively. Decoding of 

the Type Zero fixed codebook component 178a occurs using an embodiment of the 2-pulse codebook 192, the 3- 
pulse codebook 194, or the gaussian codebook 195. The Type One fixed codebook component 178b is decoded 
using the 2-pulse codebook 196 or the 3-pulse codebook 197. 

Referring again to FIG. 5, one embodiment of the gain component 179 comprises a Type Zero adaptive 
25 and fixed codebook gain component 180a and 182a. The Type Zero adaptive and fixed codebook gain component 

180a and 182a may be quantized using the two-dimensional vector quantizer (2D VQ) 164 and the 2D gain 
quantization table (Table 4), used for the full-rate codec 22. In one embodiment, the 2D gain quantization table is 
entitled "Float64 gainVQ_3_128 M , and is included in Appendix B of the attached microfiche appendix. 

Type One adaptive and fixed codebook gain components 180b and 182b may also be generated similarly 
30 to the full-rate codec 22 using multi-dimensional vector quantizers. In one embodiment, a three-dimensional pre 

vector quantizer (3D preVQ) 198 and a three-dimensional delayed vector quantizer (3D delayed VQ) 200 are used 
for the adaptive and fixed gain components 180b and 182b, respectively. The vector quantizers 198 and 200 
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perform quantization using respective gain quantization tables. In one embodiment, the gain quantization tables 
are a prc-gain quantization table and a delayed gain quantization tabic for the adaptive and fixed codebook gains, 
respectively. The multi-dimensional gain tables may be similarly structured and include a plurality of 
predetermined vectors. Each multi-dimensional gain table in one embodiment comprises 3 elements for each 
subframe of a.frame classified as Type One. 

Similar to the full-rate codec 22, the three-dimensional pre vector quantizer (3D preVQ) 198 for the 
adaptive gain component 180b may quantize directly the adaptive gains. In addition, the three-dimensional 
delayed vector quantizer (3D delayed VQ) 200 for the fixed gain component 182b may quantize the fixed 
codebook energy prediction error. Different prediction coefficients may be used to predict the fixed codebook 
energy for each subframe. In one preferred embodiment, the predicted fixed codebook energies of the first, the 
second, and the third subframes are predicted from the 3 quantized fixed codebook energy errors of the previous 
frame, in this example embodiment, the predicted fixed codebook energies of the first, the second, and the third 
subframes are predicted using the set of coefficients {0.6, 0.3, 0.1}, {0.4, 0.25, 0.1}, and {0.3, 0.15, 0.075}, 
respectively. 

The gain quantization tables for the half-rate codec 24 may be generally represented as: 


Gl 2 


Gn 1? Gn2, Gn 3 

TABLE 8 

One embodiment of the pre-gain quantization table used by the three-dimensional pre vector quantizer 
(3D preVQ) 198 includes 16 vectors (n=16). The three-dimensional delayed vector quantizer (3D delayed VQ) 

20 200 uses one embodiment of the delayed gain quantization table that includes 256 vectors (n=256). The gain 

quantization tables for the pre vector quantizer (3D preVQ) 198 and the delayed vector quantizer (3D delayed 
VQ) 200 of one embodiment are entitled "Float64 gp3_tab M and "Float64 gainVQ_3_256", respectively, and are 
included in Appendix B of the attached microfiche appendix. 

Referring again to FIG. 2, the Type Zero adaptive and fixed codebook gain component 180a and 182a is 

25 generated by the 110 first subframe-processing module SO. The HI first frame-processing module 82 generates the 

Type One adaptive codebook gain component 180b. Similarly, the Type One fixed codebook gain component 
182b is generated by the HI second frame-processing module 86. Referring again to FIG. 3, the decoding system 
16 receives the Type Zero adaptive and fixed codebook gain component 180a and 182a. The Type Zero adaptive 
and fixed codebook gain component 180a and 182a is decoded by the HO excitation reconstruction module 1 14 

30 based on the type classification. Similarly, the HI excitation reconstruction module 1 16 decodes the Type One 

adaptive gain component 180b and the Type One fixed codebook gain component 182b. 
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1.3 Bit Allocation for the Quarter-Rate Codec 

Referring now to FIGS. 2, 3 and 6, the quarter-rate bitstream of the quarter-rate codec 26 will now be 
explained. The illustrated embodiment of the quarter-rate codec 26 operates on both a frame basis and a subframe 
basis but does not include the type classification as part of the encoding process as in the full and half-rate codecs 
22 and 24. Referring now to FIG. 6, the bitstream generated by quarter-rate codec 26 includes an LSF component 
202 and an energy component 204. One embodiment of the quarter-rate codec 26 operates using two subframes 
of 10 milliseconds each to process frames using 39 bits pe.r frame. 

The LSF component 202 is encoded on a frame basis using a similar LSF quantization scheme as the 
full-rate codec 22 when the frame is classified as Type Zero. The quarter-rate codec 26 utilizes an interpolation 
element 206 and a plurality of stages 208 to encode the LSFs to represent the spectral envelope of a frame. One 
embodiment of the LSF component 202 is encoded using 27 bits. The 27 bits represent the interpolation element 
206 that is encoded in 2 bits and four of the stages 208 that arc encoded in 25 bits. The stages 208 include one 
stage encoded using 7 bits and three stages encoded using 6 bits. In one embodiment, the quarter rate codec 26 
uses the exact quantization table and predictor coefficients table used by the full rated codec 22. The quantization 
table and the predictor coefficients table of one embodiment are titled "Float64 CBes_85k M and "Float64 B_85k M , 
respectively, and are included in Appendix B of the attached microfiche appendix. 

The energy component 204 represents an energy gain that may be multiplied by a vector of similar yet 
random numbers that may be generated by both the encoding system 12 and the decoding system 16. In one 
embodiment, the energy component 204 is encoded using 6 bits per subframe. The energy component 204 is 
generated by first determining the energy gain for the subframe based on the random numbers. In addition, a 
predicted energy gain is determined for the subframe based on the energy gain of past frames. 

The predicted energy gain is subtracted from the energy gain to determine an energy gain prediction 
error. The energy gain prediction error is quantized using an energy gain quantizer and a plurality of 
predetermined scalars in an energy gain quantization table. Index locations of the predetermined scalars for each 
subframe may be represented by the energy component 204 for the frame. 

The energy gain quantization tabic may be generally represented by the following matrix: 


C n 

TABLE 9 

In one embodiment, the energy gain quantization table contains 64 (n=64) of the predetermined scalars. An 
embodiment of the energy gain quantization table is entitled "Float64 gainSQ_l_64" and is included in Appendix 
B of the attached microfiche appendix. 

In FIG. 2, the LSF component 202 is encoded on a frame basis by the initial quarter frame -processing 
module 50. Similarly, the energy component 204 is encoded by the quarter rate module 60 on a subframe basis. 
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Referring now to FIG. 3, the decoding system 16 receives the LSF component 202. The LSF component 202 is 
decoded by the Q LPC reconstruction module 122 and the energy component 204 is decoded by the Q excitation 
reconstruction module 120. Decoding the LSF component 202 is similar to the decoding methods for the full -rate 
codec 22 for frames classified as Type One. The energy component 204 is decoded to determine the energy gain. 
A vector of similar yet random numbers generated within the decoding system 16 may be multiplied by the 
energy gain to generate the short-term excitation. 

1.4 Bit Allocation for the Eighth-Rate Codec 

In FIGS. 2, 3, and 7, the eighth-rate bitstream of the eighth-rate codec 28 may not include the type 
classification as part of the encoding process and may operate on a frame basis only. Referring now to Fig. 7, 
similar to the quarter rate codec 26, the bitstream of the eighth-rate codec 28 includes an LSF component 240 and 
an energy component 242. The LSF component 240 may be encoded using a similar LSF quantization scheme as 
the full-rate codec 22, when the frame is classified as Type One. The eighth-rate codec 28 utilizes a plurality of 
stages 244 to encode the short-term predictor or spectral representation of a frame. One embodiment of the LSF 
component 240 is encoded using 1 1 bits per frame in three stages 244. Two of the three stages 244 are encoded in 
4 bits and the last of the three stages 244 is encoded in 3 bits. 

The quantization approach to generate the LSF component 240 for the eighth-rate codec 28 involves an 
LSF prediction error quantization table and a predictor coefficients table similar to the full-rate codec 22. The 
LSF prediction error quantization table and the LSF predictor coefficients table can be generally represented by 
the previously discussed Tables I and 2. In an example embodiment, the LSF quantization table for the eighth- 
rate codec 28 includes 3 stages (j=3) with 16 quantization vectors in two stages (r=16) and 8 quantization vectors 
in one stage (s =8) each having 10 elements (n=10). The predictor coefficient table of one embodiment includes 4 
vectors (m=4) of 10 elements each (n=10). The quantization table and the predictor coefficients table of one 
embodiment are titled "Float64 CBcs_08k M and "Float64 B_08k, M respectively, and are included in Appendix B of 
the attached microfiche appendix. 

In FIG. 2, the LSF component 240 is encoded on a frame basis by the initial eighth frame-processing 
module 52. The energy component 242 also is encoded on a frame basis by the eighth-rate module 62. The 
energy component 242 represents an energy gain that can be determined and coded similarly to the quarter rate 
codec 26. One embodiment of the energy component 242 is represent by 5 bits per frame as illustrated in Fig. 7. 

Similar to the quarter rate codec 26, the energy gain and the predicted energy gain may be used to 
determine an energy prediction error. The energy prediction error is quantized using an energy gain quantizer and 
a plurality of predetermined scalars in an energy gain quantization table. The energy gain quantization table may 
be generally represented by Table 9 as previously discussed. The energy gain quantizer of one embodiment uses 
an energy gain quantization table containing 32 vectors (n=32) that is entitled M Float64 gainSQ_l_32" and is 
included in Appendix B of the attached microfiche appendix. 

In FIG. 3, the LSF component 240 and the energy component 242 may be decoded following receipt by 
the decoding system 16. The LSF component 240 and the energy component 242 are decoded by the E LPC 
reconstruction module 126 and the E excitation reconstruction module 124, respectively. Decoding of the LSF 
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component 240 is similar to the full-rale codec 22 for frames classified as Type One. The energy component 242 
may be decoded by applying the decoded energy gain to a vector of similar yet random numbers as in the quarter 
rate codec 26. 

An embodiment of the speech compression system 10 is capable of creating and then decoding a 
bitstream using one of the four codecs 22, 24, 26 and 28. The bitstream generated by a particular codec 22, 24, 26 
and 28 may be encoded emphasizing different parameters of the speech signal 1 8 within a frame depending on the 
rate selection and the type classification. Accordingly, perceptual quality of the post-processed synthesized 
speech 20 decoded from the bitstream may be optimized while maintaining the desired average bit rate. 

A detailed discussion of the configuration and operation of the speech compression system modules 
illustrated in the embodiments of FIGS. 2 and 3 is now provided. The reader is encouraged to review the source 
code included in Appendix A of the attached microfiche appendix in conjunction with the discussion to further 
enhance understanding. 

2.0 PRE-PROCESSING MODULE 

Referring now to Fig. 8, an expanded block diagram of the pre-processing module 34 illustrated in Fig. 2 
is provided. One embodiment of the pre-processing module 34 includes a silence enhancement module 302, a 
high-pass filter module 304, and a noise suppression module 306. The pre-processing module 34 receives the 
speech signal 18 and provides a pre-processed speech signal 308. 

The silence enhancement module 302 receives the speech signal 18 and functions to track the minimum 
noise resolution. The silence enhancement function adaptively tracks the minimum resolution and levels of the 
speech signal 18 around zero, and detects whether the current frame may be "silence noise." If a frame of 
"silence noise" is detected, the speech signal 18 may be ramped to the zero-level. Otherwise, the speech signal 18 
may not be modified. For example, the A-law coding scheme can transform such an inaudible "silence noise" 
into a clearly audible noise. A-law encoding and decoding of the speech signal 18 prior to the pre-processing 
module 34 can amplify sample values that are nearly 0 to values of about + 8 or -8 thereby transforming a nearly 
inaudible noise into an audible noise. After processing by the silence enhancement module 302, the speech signal 
18 may be provided to the high-pass filter module 304. 

The high-pass filter module 304 may be a 2 nd order pole-zero filter, and may be given by the following 
transfer function H(z): 


The input may be scaled down by a factor of 2 during the high-pass filtering by dividing the coefficients of the 
numerator by 2. 

Following processing by the high-pass filter, the speech signal 1 8 may be passed to the noise suppression 
module 306. The noise suppression module 306 employs noise subtraction in the frequency domain and may be 
one of the many well-known techniques for suppressing noise. The noise suppression module 306 may include a 
Fourier transform program used by a noise suppression algorithm as described in section 4.1 .2 of the T1A/E1A IS- 


0.92727435 - 1 .854494 lz" 1 + 0.92727435z 
I - 1 .9059465Z" 1 + 0.9114024z~ 2 


-2 


(Equation 1) 
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127 standard entitled "Enhanced Variable Rate Codec, Speech Service Option 3 for Wideband Spread Spectrum 
Digital Systems." 

The noise suppression module 306 of one embodiment transforms each frame of the speech signal 18 to 
the frequency domain where the spectral amplitudes may be separated from the spectral phases. The spectra! 
5 amplitudes may be grouped into bands, which follow the human auditory channel bands. An attenuation gain may 

be calculated for each band. The attenuation gains may be calculated with less emphasis on the spectral regions 
that are likely to have harmonic structure. In such regions,* the background noise may be masked by the strong 
voiced speech. Accordingly, any attenuation of the speech can distort the quality of the original speech, without 
any perceptual improvement in the reduction of the noise. 
10 Following calculation of the attenuation gain, the spectral amplitudes in each band may be multiplied by 

the attenuation gain. The spectral amplitudes may then be combined with the original spectral phases, and the 
speech signal 18 may be transformed back to the time domain. The time-domain signal may be overlapped-and- 
added to generate the pre-processed speech signal 308. The pre-processed speech signal 308 may be provided to 
the initial frame-processing module 44. 

15 

3.0 INITIAL FRAME PROCESSING MODULE 

FIG. 9 is a block diagram of the initial frame-processing module 44, illustrated in FIG. 2. One 
embodiment of the initial frame-processing module 44 includes an LSF generation section 312, a perceptual 
weighting filter module 314, an open loop pitch estimation module 316, a characterization section 318, a rate 

20 selection module 320, a pitch pre-processing module 322, and a type classification module 324. The 

characterization section 318 further comprises a voice activity detection (VAD) module 326 and a 
characterization module 328. The LSF generation section 312 comprises an LPC analysis module 330, an LSF 
smoothing module 332, and an LSF quantization module 334. In addition, within the full-rate encoder 36, the 
LSF generation section 312 includes an interpolation module 338 and within the half-rate encoder 38, the LSF 

25 generation section includes a predictor switch module 336. 

Referring to FIG. 2, the initial frame-processing module 44 operates to generate the LSF components 
140, 172, 202 and 240, as well as determine the rate selection and the type classification. The rate selection and 
type classification control the processing by the excitation-processing module 54. The initial frame-processing 
module 44 illustrated in Fig. 9 is illustrative of one embodiment of the initial full frame-processing module 46 and 

30 the initial half frame-processing module 48. Embodiments of the initial quarter frame-processing module 50 and 

the initial eighth frame-processing module 52 differ to some degree. 

As previously discussed, in one embodiment, type classification does not occur for the initial quarter-rate 
frame-processing module 50 and -the initial eighth-rate frame-processing module 52. In addition, the long-term 
predictor and the long-term predictor residual are not processed separately to represent the energy component 204 

35 and 242 illustrated in FIGS. 6 and 7. Accordingly, only the LSF section 312, the characterization section 318 and 

the rate selection module 320 illustrated in Fig. 9 are operable within the initial quarter-rate frame-processing 
module 50 and the initial eighth-rate frame-processing module 52. 


3NSDOCID: <WO 01224O2AV l_> 


WO 01/22402 


PCT/US00/25182 


31 


To facilitate understanding of the initial frame-processing module 44, a general overview of the 
operation will first be discussed followed by a detailed discussion. Referring now to FIG. 9, the pre-processed 
speech signal 308 initially is provided to the LSF generation section 312, the perceptual weighting filter module 
314 and the characterization section 318. However, some of the processing within the characterization section 
5 318 is dependent on the processing that occurs within the open loop pitch estimation module 316. The LSF 

generation section 312 estimates and encodes the spectral representation of the pre-processed speech signal 308. 
The perceptual weighting filter module 314 operates to, provide perceptual weighting during coding of the pre- 
processed speech signal 308 according to the natural masking that occurs during processing by the human 
auditory system. The open loop pitch estimation module 316 determines the open loop pitch lag for each frame. 

10 The characterization section 318 analyzes the frame of the pre-processed speech signal 308 and characterizes the 

frame to optimize subsequent processing. 

During, and following, the processing by the characterization section 318, the resulting characterizations 
of the frame may be used by the pitch pre-processing module 322 to generate parameters used in generation of the 
closed loop pitch lag. In addition, the characterization of the frame is used by the rate selection module 320 to 

15 determine the rate selection. Based on parameters of the pitch lag determined by the pitch pre-processing module 

322 and the characterizations, the type classification is determined by the type classification module 324. 

3.1 LPC Analysis Module 

The pre-processed speech signal 308 is received by the LPC analysis module 330 within the LSF 
20 generation section 312. The LPC analysis module 330 determines the short-term prediction parameters used to 

generate the LSF component 312. Within one embodiment of the LPC analysis module 330, there are three 10 th 
order LPC analyses performed for a frame of the pre-processed speech signal 308. The analyses may be centered 
within the second quarter of the frame, the fourth quarter of the frame, and a lookahead. The lookahead is a 
speech segment that overhangs into the next frame to reduce transitional effects. The analysis within the 
25 lookahead includes samples from the current frame and from the next frame of the pre-processed speech signal 

308. 

Different windows may be used for each LPC analysis within a frame to calculate the linear prediction 
coefficients. The LPC analyses in one embodiment are performed using the autocorrelation method to calculate 
autocorrelation coefficients. The autocorrelation coefficients may be calculated from a plurality of data samples 
30 within each window. During the LPC analysis, bandwidth expansion of 60Hz and a white noise correction factor 

of 1.0001 may be applied to the autocorrelation coefficients. The bandwidth expansion provides additional 
robustness against signal and round-off errors during subsequent encoding. The white noise correction factor 
effectively adds a noise floor of -40dB to reduce the spectral dynamic range and further mitigate errors during 
subsequent encoding. 

35 A plurality of reflection coefficients may be calculated using a Leroux-Gueguen algorithm from the 

autocorrelation coefficients. The reflection coefficients may then be converted to the linear prediction 
coefficients. The linear prediction coefficients may be further converted to the LSFs (Line Spectrum 
Frequencies), as previously discussed. The LSFs calculated within the fourth quarter may be quantized and sent 
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to the decoding system 16 as the LSF component 140, 172, 202, 240. The LSFs calculated within the second 
quarter may be used to determine the interpolation path for the full-rate encoder 36 for frames classified as Type 
Zero. The interpolation path is selectable and may be identified with the interpolation element 158. In addition, 
the LSFs calculated within the second quarter and the lookahead may be used in the encoding system 12 to 
generate the short term residual and a weighted speech that will be described later. 

3.2 LSF Smoothing Module 

During stationary background noise, the LSFs calculated within the fourth quarter of the frame may be 
smoothed by the LSF smoothing module 332 prior to quantizing the LSFs. The LSFs are smoothed to better 
preserve the perceptual characteristic of the background noise. The smoothing is controlled by a voice activity 
determination provided by, the VAD module 326 that will be later described and an analysis of the evolution of the 
spectral representation of the frame. An LSF smoothing factor is denoted p ur In an example embodiment: 

1 . At the beginning of "smooth" background noise segments, the smoothing factor may be ramped 
quadratically from 0 to 0.9 over 5 frames. 

2. During "smooth" background noise segments the smoothing factor may be 0.9. 

3. At the end of "smooth" background noise segments the smoothing factor may be reduced to 0 
instantaneously. 

4. During non-"smooth" background noise segments the smoothing factor may be 0. 
According to the LSF smoothing factor the LSFs for the quantization may be calculated as: 

ls«A0 = /V-lsU^ k = 1 ' 2 '— 10 (Equation!) 

where lsf n (A) and Isf n _, (A ) represents the smoothed LSFs of the current and previous frame, respectively, and 
Isf , (A) represents the LSFs of the LPC analysis centered at the last quarter of the current frame. 

3.3 LSF Quantization Module 

The 10 ,h order LPC model given by the smoothed LSFs (Equation 2) may be quantized in the LSF 
domain by the LSF quantization module 334. The quantized value is a plurality of quantized LPC coefficients 
A^(z) 342. The quantization scheme uses an n lh order moving average predictor. In one embodiment, the 
quantization scheme uses a 2 nd order moving average predictor for the full-rate codec 22 and the quarter rate 
codec 26. For the half-rate codec 24, a 4 th order moving average switched predictor may be used. For the eighth 
rate codec 28, a 4 th order moving average predictor may be used. The quantization of the LSF prediction error 
may be performed by multi-stage codebooks, in the respective codecs as previously discussed. 

The error criterion for the LSFs quantization is a weighted mean squared error measure. The weighting 
for the weighted mean square error is a function of the LPC magnitude spectrum. Accordingly, the objective of 
the quantization may be given by: 

{lsf„(l),lsf n (l) > ...,lsf n (10)}=argmin|Xw i .(lsf n (*) - lsf„(*)) 2 j , 

(Equation 3) 
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where the weighting may be: 

W, =|^(lsf B (0)|°'\ (Equation 4) 

and \P(f)\ is the LPC power spectrum at frequency / (the index n denotes the frame number). In the example 

embodiment there are 10 coefficients. 

In one embodiment, the ordering property of the quantized LPC coefficients A q (z) 342 is checked. If one 
LSF pair is flipped they may be re-ordered. When two br more LSF pairs are flipped, the quantized LPC 
coefficients A^(z) 342 may be declared erased and may be reconstructed using the frame erasure concealment of 
the decoding system 16 that will be discussed later. In one embodiment, a minimum spacing of 50Hz between 
adjacent coefficients of the quantized LPC coefficients A q (z) 342 may be enforced. 

3.4 Predictor Switch Module 

The predictor switch module 336 is operable within the half-rate codec 24. The predicted LSFs may be 
generated using moving average predictor coefficients as previously discussed. The predictor coefficients 
determine how much of the LSFs of past frames are used to predict the LSFs of the current frame. The predictor 
switch module 336 is coupled with the LSFs quantization module 334 to provide the predictor coefficients that 
minimize the quantization error as previously discussed. 

3.5 LSF Interpolation Module 

The quantized and unquantized LSFs may also be interpolated for each sub frame within the full-rate 
codec 22. The quantized and unquantized LSFs are interpolated to provide quantized and unquantized linear 
prediction parameters for each sub frame. The LSF interpolation module 338 chooses an interpolation path for 
frames of the full-rate codec 22 with the Type Zero classification, as previously discussed. For all other frames, a 
predetermined linear interpolation path may be used. 

The LSF interpolation module 338 analyzes the LSFs of the current frame with respect to the LSFs of 
previous frames and the LSFs that were calculated at the second quarter of the frame. An interpolation path may 
be chosen based on the degree of variations in the spectral envelope between the subframes. The different 
interpolation paths adjust the weighting of the LSFs of the previous frame and the weighting of the LSFs of the 
current frame for the current sub frame as previously discussed. Following adjustment by the LSF interpolation 
module 338, the interpolated LSFs may be converted to predictor coefficients for each subframe. 

For Type One classification within the full-rate codec 22, as well as for the half-rate codec 24, the 
quarter-rate codec 26, and the eighth-rate codec 28, the predetermined linear interpolation path may be used to 
adjust the weighting. The interpolated LSFs may be similarly converted to predictor coefficients following 
interpolation. In addition, the predictor coefficients may be further weighted to create the coefficients that are 
used by perceptual weighting filler module 314. 


01224Q2A1_I_> 


WO 01/22402 


PCT/US00/25182 


34 


3.6 Perceptual Weighting Filter Module 

The perceptual weighting filter module 314 is operable to receive and filter the pre-processed speech 
signal 308. Filtering by the perceptual weighting filter module 314 may be performed by emphasizing th^' valley 
areas and de-emphasizing the peak areas of the pre-processed speech signal 308. One embodiment of the 
5 perceptual weighting filter module 314 has two parts. The first part may be the traditional pole-zero filter given 

by: 

A( Z / y ) 

py r z \ — / /l (Equation 5) 

/ y 2 

where A(z/y,) and l/A(z/y 2 ) are a zeros-filter and a poles-filter, respectively. The prediction coefficients for the 
zeros-filter and the poles-filter may be obtained from the interpolated LSFs for each subframe and weighted by y, 
10 and y 2j respectively. In an example embodiment of the perceptual weighting filter module 314, the weighting is 

y x = 0.9 and /, =0.5. The second part of the perceptual weighting filter module 314 may be an adaptive low- 
pass filter given by: 

W-,{z) — ■ (Equation 6) 

2 1 - ;/z"' 

where rj is a function of stationary long-term spectral characteristics that will be later discussed. In one 
15 embodiment, if the stationary long-term spectral characteristics have the typical tilt associated with public 

switched telephone network (PSTN), then 77 = 0.2, otherwise, 77 = 0.0. The typical tilt is commonly referred to as 
a modified IRS characteristic or spectral tilt. Following processing by the perceptual weighting filter module 314, 
the pre-processed speech signal 308 may be described as a weighted speech 344. The weighted speech 344 is 
provided to the open loop pitch estimation module 316. 

20 

3.7 Open Loop Pitch Estimation Module 

The open loop pitch estimation module 316 generates the open loop pitch lag for a frame. In one 
embodiment, the open loop pitch lag actually comprises three open loop pitch lags, namely, a first pitch lag for the 
first half of the frame, a second pitch lag for the second half of the frame, and a third pitch lag for the lookahead 
25 portion of the frame. 

For every frame, the second and third pitch lags are estimated by the open loop pitch estimation module 
316 based on the current frame. The first open loop pitch lag is the third open loop pitch lag (the lookahead) from 
the previous frame that may be further adjusted. The three open loop pitch lags are smoothed to provide a 
continuous pitch contour. The smoothing of the open loop pitch lags employs a set of heuristic and ad-hoc 
30 decision rules to preserve the optimal pitch contour of the frame. The open-loop pitch estimation is based on the 

weighted speech 344 denoted by s w (n). The values estimated by the open loop pitch estimation module 316 in one 
embodiment are lags that range from 17 to 148. 

The first, second and third open loop pitch lags may be determined using a normalized correlation, R(k) 
that may be calculated according to 


^SDOCID: <WO 0122402A1J ._> 


WO 01/22402 


PCT/USOO/25182 


35 


][>» sjn-k) 


(Equation 7) 


/?(*) = 



79 Y 79 


n-0 /\neO 


Where n=79 in the example embodiment to represent the number of samples in the subframe. The maximum 
normalized correlation R(k) for each of a plurality of regions is determined. The regions may be four regions that 
represent four sub-ranges within the range of possible lags. JFor example, a first region from 17-33 lags, a second 
region from 34-67 lags, a third region from 68-137 lags, and a fourth region from 138-148 lags. One open loop 
pitch lag corresponding to the lag that maximizes the normalized correlation values R(k) from each region are the 
initial pitch lag candidates. A best candidate from the initial pitch lag candidates is selected based on the 
normalized correlation, characterization information, and the history of the open loop pitch lag. This procedure 
may be performed for the second pitch lag and for the third pitch lag. 

Finally, the first, second, and third open loop pitch lags may be adjusted for an optimal fitting to the 
overall pitch contour and form the open loop pitch lag for the frame. The open loop pitch lag is provided to the 
pitch pre-processing module 322 for further processing that will be described later. The open loop pitch 
estimation module 316 also provides the pitch lag and normalized correlation values at the pitch lag. The 
normalized correlation values at the pitch lag are called a pitch correlation and are notated as R p . The pitch 
correlation R p is used in characterizing the frame within the characterization section 318. 

3.8 Characterization Section 

The characterization section 3 1 8 is operable to analyze and characterize each frame of the pre-processed 
speech signal 308. The characterization information is utilized by a plurality of modules within the initial frame- 
processing module 44 as well by the excitation-processing module 54. Specifically, the characterization 
information is used in the rate selection module 320 and the type classification module 324. In addition, the 
characterization information may be used during quantization and coding, particularly in emphasizing the 
perceptually important features of the speech using a class-dependent weighting approach that will be described 
later. 

Characterization of the pre-processed speech signal 308 by the characterization section 318 occurs for 
each frame. Operation of one embodiment of the characterization section 318 may be generally described as six 
categories of analysis of the pre-processed speech signal 308. The six categories are: voice activity determination, 
the identification of unvoiced noise-like speech, a 6-class signal characterization, derivation of a noise-to-signal 
ratio, a 4-gradc characterization, and a characterization of a stationary long term spectral characteristic. 

3.9 Voice Activity Detection (VAD) Module 

The voice activity detection (VAD) module 326 performs voice activity determination as the first step in 
characterization. The VAD module 326 operates to determine if the pre-processed speech signal 308 is some 
form of speech or if it is merely silence or background noise. One embodiment of the VAD module 326 delects 
voice activity by tracking the behavior of the background noise. The VAD module 326 monitors the difference 
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between parameters of the current frame and parameters representing the background noise. Using a set of 
predetermined threshold values, the frame may be classified as a speech frame or as a background noise frame. 

The VAD module 326 operates to determine the voice activity based on monitoring a plurality of 
parameters, such as, the maximum of the absolute value of the samples in the frame, as well as the reflection 
5 coefficients, the prediction error, the LSFs and the 10 <h order autocorrelation coefficients provided by the LPC 

analysis module 330. In addition, an example embodiment of the VAD module 326 uses the parameters of the 
pitch lag and the adaptive codebook gain from recent frames. The pitch lags and the adaptive codebook gains 
used by the VAD module 326 are from the previous frames since pitch lags and adaptive codebook gains of the 
current frame are not yet available. The voice activity determination performed by the VAD module 326 may be 
10 used to control several aspects of the encoding system 12, as well as forming part of a final class characterization 

decision by the characterization module 328. 

3.10 Characterization Module 

Following the voice activity determination by the VAD module 326, the characterization module 328 is 
1 5 activated. The characterization module 328 performs the second, third, fourth and fifth categories of analysis of 

the pre-processed speech signal 308 as previously discussed. The second category is the detection of unvoiced 
noise-like speech frames. 

3.10.1 Un voiced Noise-L ike Speech Detection 
20 in general, unvoiced noise-like speech frames do not include a harmonic structure, whereas voiced 

frames do. The detection of an unvoiced noise-like speech frame, in one embodiment, is based on the pre- 
processed speech signal 308, and a weighted residual signal R w (z) given by: 

RJZ) = A(z/)- S{z) * (Equation 8) 

IS Where A(z/y0 represents a weighted zeros-filter with the weighting y, and S(z) is the pre-processed speech signal 

308. A plurality of parameters, such as the following six parameters may be used to determine if the current 
frame is unvoiced noise-like speech: 

1 . The energy of the pre-processed speech signal 308 over the first % of the frame. 

2. A count of the speech samples within the frame that are under a predetermined threshold. 

30 3. A residual sharpness determined using a weighted residual signal and the frame size. The sharpness is 

given by the ratio of the average of the absolute values of the samples to the maximum of the absolute 
values of the samples. The weighted residual signal may be determined from Equation 8. 
4. A first reflection coefficient representing the tilt of the magnitude spectrum of the pre-process speech 

signal 308. 

35 5. The zero crossing rate of the pre-processed speech signal 308. 

6. A prediction measurement between the pre-processed speech signal 308 and the weighted residual signal. 

In one embodiment, a set of predetermined threshold values are compared to the above listed parameters 
in making the determination of whether a frame is unvoiced noise-like speech. The resulting determination may 
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be used in controlling the pitch pre-processing module 322, and in the fixed codebook search, both of which will 
be described later. In addition, the unvoiced noise-like speech determination is used in determining the 6-class 
signal characterization of the pre-processed speech signal 308. 

5 3.10.2 6-Class Signal Characterization 

The characterization module 328 may also perform the third category of analysis that is the 6-class signal 
characterization. The 6-class signal characterization is performed by characterizing the frame into one of 6 
classes according to the dominant features of the frame. In one embodiment, the 6 classes may be described as: 
0. Silence/Background Noise 

10 1 . Stationary Noise-Like Unvoiced Speech 

2. Non-Stationary Unvoiced 

3. Onset 

4. Non-Stationary Voiced 

5. Stationary Voiced 

15 In an alternative embodiment, other classes arc also included such as frames characterized as plosive. 

Initially, the characterization module 328 distinguishes between silence/background noise frames (class 0), non- 
stationary unvoiced frames (class 2), onset frames (class 3), and voiced frames represented by class 4 and 5. 
Characterization of voiced frames as Non-Stationary (class 4) and Stationary (class 5) may be performed during 
activation of the pitch pre-processing module 322. Furthermore, the characterization module 328 may not initially 

20 distinguish between stationary noise-like unvoiced framcs(class 1) and non-stationary unvoiced frames(class 2). 

This characterization class may also be identified during processing by the pitch pre-processing module 322 using 
the determination by the unvoiced noise-like speech algorithm previously discussed. 

The characterization module 328 performs characterization using, for example, the pre-processed speech 
signal 308 and the voice activity detection by the VAD module 326. In addition, the characterization module 328 

25 may utilize the open loop pitch lag for the frame and the normalized correlation R p corresponding to the second 

open loop pitch lag. . 

A plurality of spectral tilts and a plurality of absolute maximums may be derived from the pre-processed 
speech signal 308 by the characterization module 328. In an example embodiment, the spectral tilts for 4 
overlapped segments comprising 80 samples each are calculated. The 4 overlapped segments may be weighted by 

30 a Hamming window of 80 samples. The absolute maximums of an example embodiment are derived from 8 

overlapped segments of the pre-processed speech signal 308. In general, the length of each of the 8 overlapped 
segments is about 1 .5 limes the period of the open loop pitch lag. The absolute maximums may be used to create 
a smoothed contour of the amplitude envelope. 

The spectral tilt, the absolute maximum, and the pitch correlation R p parameters may be updated or 

35 interpolated multiple times per frame. Average values for these parameters may also be calculated several times 

for frames characterized as background noise by the. VAD module 326. In an example embodiment, 8 updated 
estimates of each parameter are obtained using 8 segments of 20 samples each. The estimates of the parameters 
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for the background noise may be subtracted from the estimates of parameters for subsequent frames not 
characterized as background noise to create a set of "noise cleaned" parameters. 

A set of statistically based decision parameters may be calculated from the "noise clean" parameters and 
the open loop pitch lag. Each of the statistically based decision parameters represents a statistical property of the 
original parameters, such as, averaging, deviation, evolution, maximum, or minimums. Using a set of 
predetermined threshhold parameters, initial characterization decisions may be made for the current frame based 
on the statistical decision parameters. Based on the. initial characterization decision, past characterization 
decisions, and the voice activity decision of the VAD module 326, an initial class decision may be made for the 
frame. The initial class decision characterizes the frame as one of the classes 0, 2, 3, or as a voiced frame 
represented by classes 4 and 5. 

3 J 0.3 Noise-to-Signal Ratio Derivation 

In addition to the frame characterization, the characterization module 328 of one embodiment also 
performs the fourth category of analysis by deriving a noise-to-signal ratio (NSR). The NSR is a traditional 
distortion criterion that may be calculated as the ratio between an estimate of the background noise energy and the 
frame energy of a frame. One embodiment of the NSR calculation ensures that only true background noise is 
included in the ratio by using a modified voice activity decision. The modified voice activity decision is derived 
using the initial voice activity decision by the VAD module 326, the energy of the frame of the pre-processed 
speech signal 308 and the LSFs calculated for the lookahead portion. If the modified voice activity decision 
indicates that the frame is baokground noise, the energy of the background noise is updated. 

The background noise is updated from the frame energy using, for example, moving average. If the 
energy level of the background noise is larger than the energy level of the frame energy, it is replaced by the 
frame energy. Replacement by the frame energy can involve shifting the energy level of the background noise 
lower and truncating the result. The result represents the estimate of the background noise energy that may be 
used in the calculation of the NSR. 

Following calculation of the NSR, the characterization module 328 performs correction of the initial 
class decision to a modified class decision. The correction may be performed using the initial class decision, the 
voice activity determination and the unvoiced noise-like speech determination. In addition, previously calculated 
parameters representing, for example, the spectrum expressed by the reflection coefficients, the pitch correlation 
R p , the NSR, the energy of the frame, the energy of the previous frames, the residual sharpness and a sharpness of 
the weighted speech may also be used. The correction of the initial class decision is called characterization 
tuning. Characterization tuning can change the initial class decision, as well as set an onset condition flag and a 
noisy voiced flag if these conditions are identified. In addition, tuning can also trigger a change in the voice 
activity decision by the VAD module 326. 

3.10.4 4-Grade Characterization 

The characterization module 328 can also generate the fifth category of characterization, namely, the 4- 
gradc characterization. The 4-grade characterization is a parameter that controls the pitch pre-processing module 
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322. One embodiment of the 4-grade characterization distinguishes between 4 categories. The categories may be 
labeled numerically from 1 to 4. The category labeled 1 is used to reset the pitch pre-processing module 322 in 
order to prevent accumulated delay that exceeds a delay budget during pitch pre-processing. In geneftl, the 
remaining categories indicate increasing voicing strength. Increasing voicing strength is a measure of the 
periodicity of the speech. In an alternative embodiment, more or less categories could be included to indicate the 
levels of voicing strength. 

3 A 0.5 Station ary Long- Term Spectral Ch aractcristics 

The characterization module 328 may also performs the sixth category of analysis by determining the 
stationary long-term spectral characteristics of the pre-processed speech signal 308. The stationary long-term 
spectral characteristic is determined over a plurality of frames using, for example, spectral information such as the 
LSFs, the 6-class signal characterization and the open loop pitch gain. The determination is based on long-term 
averages of these parameters. 

3.1 1 Rate Selection Module 

Following the modified class decision by the characterization module 328, the rate selection module 320 
can make an initial rate selection called an open loop rate selection. The rate-selection module 320 can use, for 
example, the modified class decision, the NSR, the onset flag, the residual energy, the sharpness, the pitch 
correlation Rp, and spectral parameters such as the reflection coefficients in determining the open-loop rate 
selection. The open loop rate selection may also be selected based on the Mode that the speech compression 
system 10 is operating within. The rate selection module 320 is tuned to provide the desired average bit rate as 
indicated by each of the Modes. The initial rate selection may be modified following processing by the pitch pre- 
processing module 322 that will be described later. 

3.12 Pitch Prc-Processing Module 

The pitch pre-processing module 322 operates on a frame basis to perform analysis and modification of 
the weighted speech 344. The pitch pre-processing module 322 may, for example, uses compression or dilation 
techniques on pitch cycles of the weighted speech 344 in order to improve the encoding process. The open loop 
pitch lag is quantized by the pitch pre-processing module 322 to generate the open loop adaptive codebook 
component 144a or 176a, as previously discussed with reference to FIGS. 2, 4 and 5. If the final type 
classification of the frame is Type One, this quantization represents the pitch lag for the frame. However, if the 
type classification is changed following processing by the pitch pre-processing module 322, the pitch lag 
quantization also is changed to represent the closed loop adaptive codebook component 144b or 176b, as 
previously discussed with reference to FIGS. 2, 4 and 5. 

The open loop pitch lag for the frame that was generated by the open loop pitch estimation module 316 is 
quantized and interpolated, to create a pitch track 348. In general, the pitch pre-processing module 322 attempts 
to modify the weighted speech 344 to fit the pilch track 348. If the modification is successful, the final type 
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classification of the frame is Type One. If the modification is unsuccessful the final type classification of the 
frame is Type Zero. 

As further detailed later, the pitch pre-processing modification procedure can perform continuous time 
warping of the weighted speech 344. The warping introduces a variable delay. In one example embodiment, the 
5 maximum variable delay within the encoding system 1 2 is 20 samples (2.5 ms). The weighted speech 344 may be 

modified on a pitch cycle-by-pitch cycle basis, with certain overlap between adjacent pitch cycles to avoid 
discontinuities between the reconstructed/modified segments. The weighted speech 344 may be modified 
according to the pitch track 348 to generate a modified weighted speech 350. In addition, a plurality of 
unquantized pitch gains 352 are generated by the pitch pre-processing module 322. If the type classification of 

10 the frame is Type One, the unquantized pitch gains 352 are used to generate the Type One adaptive codebook gain 

component 148b (for full rate codec 22) or 180b (for half-rate codec 24). The pitch track 348, the modified 
weighted speech 350 and the unquantized pitch gains 352 are provided to the excitation-processing module 54. 

As previously discussed, the 4-grade characterization by the characterization module 328 controls the 
pitch pre-processing. In one embodiment, if the frame is predominantly background noise or unvoiced with low 

15 pitch correlation, such as, category I, the frame remains unchanged and the accumulated delay of the pitch pre- 

processing is reset to zero. If the frame is pre-dominantly pulse-like unvoiced, such as, category 2, the 
accumulated delay may be maintained without any warping of the signal except for a simple time shift. The time 
shift may be determined according to the accumulated delay of the input speech signal 18. For frames with the 
remaining 4-grade characterizations, the core of the pitch pre-processing algorithm may be executed in order to 

20 optimally warp the signal. 

In general, the core of the pitch pre-processing module 322 in one embodiment performs three main 
tasks. First, the weighted speech 344 is modified in an attempt to match the pitch track 348. Second, a pitch gain 
and a pilch correlation for the signal are estimated. Finally, the characterization of the speech signal 1 8 and the 
rate selection is refined based on the additional signal information obtained during the pitch pre-processing 
25 analysis. In another embodiment, additional pitch pre-processing may be included, such as, waveform 

interpolation. In general, waveform interpolation may be used to modify certain irregular transition segments 
using forward-backward waveform interpolation techniques to enhance the regularities and suppress the 
irregularities of the weighted speech 344. ' 

30 3.12.1 Modification 

Modification of the weighted speech 344 provides a more accurate fit of the weighted speech 344 into a 
pitch-coding model that is similar to the Relaxed Code Excited Linear Prediction (RCELP) speech coding 
approach. An example of an implementation of RCELP speech coding is provided in the T1A 
(Telecommunications Industry Association) IS- 127 standard. Performance of the modification without any loss 

35 of perceptual quality can include a fine pitch search, estimation of a segment size, target signal warping, and 

signal warping. The fine pitch search may be performed on a frame level basis while the estimation of a segment 
size, the target signal warping, and the signal warping may be executed for each pitch cycle. 
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3. 1 2.1.1 Fine Pitch Search 

The fine pitch search may be performed on the weighted speech 344, based on the previously determined 
second and third pitch lags, the rate selection, and the accumulated pitch pre-processing delay. The fina pitch 
search searches for fractional pitch lags. The fractional pitch lags are non-integer pitch lags that combine with the 
5 quantization of the lags. The combination is derived by searching the quantization tables of the lags used to 

quantize the open loop pitch lags and finding lags that maximize the pitch correlation of the weighted speech 344. 
In one embodiment, the search is performed differently for each codec due to the different quantization techniques 
associated with the different rate selections. The search is performed in a search area that is identified by the open 
loop pitch lag and is controlled by the accumulated delay. 

10 

3.12.1.2 Estim ate segm en t size 

The segment size follows the pitch period, with some minor adjustments. In general, the pitch complex 
(the main pulses) of the pitch cycle are located towards the end of a segment in order to allow for maximum 
accuracy of the warping on the perceptual most important part, the pitch complex. For a given segment the 
15 starting point is fixed and the end point may be moved to obtain the best model fit. Movement of the end point 

effectively stretches or compresses the time scale. Consequently, the samples at the beginning of the segment are 
hardly shifted, and the greatest shift will occur towards the end of the segment. 

3. 12. 1. 3 Target signal for warping 

20 One embodiment of the target signal for time warping is a synthesis of the current segment derived from 

the modified weighted speech 350 that is represented by j^(n)and the pitch track 348 represented by L p (n). 
According to the pitch track 348, L p (n) , each sample value of the target signal s' w 0,..., N s -1 may be 
obtained by interpolation of the modified weighted speech 350 using a 21 st order Hamming weighted Sine 
window, 

25 .v» = ]>>,(f(L>)), /)-<.(« for „ = 0 N, -1 

i = - 10 

(Equation 9) 

where i(L p (n)) and f(L p (n)) arc the integer and fractional parts of the pitch lag, respectively; w s (fj) is the 
Hamming weighted Sine window, and N s is the length of the segment. A weighted target, (n) , is given by 
.v"' = w c (n) - sl( n ) - The weighting function, w c (n) , may be a two-piece linear function, which emphasizes the 
30 pitch complex and de-emphasizes the "noise" in between pitch complexes. The weighting may be adapted 

according to the 4-grade classification, by increasing the emphasis on the pitch complex for segments of higher 
periodicity. 
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The integer shift that maximizes the normalized cross correlation between the weighted target 
S^(n) iind the weighted speech 344 is s w ( n + r acc)» wnere s w ( n + r acc ) is thc wei S llted speech 344 shifted 
according to an accumulated delay r acc may be found by maximizing 

(«) • s w {» + + r„ ) (Equation 10) 


5 A refined (fractional) shift may be determined by searching an upsampled version of ^(r^) in the vicinity of 

r shift • Tms ma y result in a fina! optimal shift r opt and the corresponding normalized cross correlation R„( T o P i) ■ 

3. 12. J A Signal Warping 

The modified weighted speech 350 for the segment may be reconstructed according to the mapping given 

10 by 

k(" + r acc)>^(' 7 + r acc + r c + r o P t )J "> [s'MMn + *c ~ *)L (Equation 11) 

and 

k(« + r 3cc + T< + ^op«).^(n + r -ncc + 7 op, + - I)]"* k(« + r c ),<.(" + ^ - 1)] 

(Equation 12) 

1 5 where r c is a parameter defining the warping function. In general, r c specifies thc beginning of the pitch 

complex. The mapping given by Equation 1 1 specifies a time warping, and the mapping given by Equation 12 
specifies a time shift (no warping). Both may be carried out using a Hamming weighted Sine window function. 

3.12.2 Pitch Gain and Pitch Correlation Estimation 

20 The pitch gain and pitch correlation may be estimated on a pilch cycle basis and are defined by Equations 

11 and 12, respectively. The pitch gain is estimated in order to minimize the mean squared error between the 

target defined by Equation 9, and the final modified signal s' w ( n ) , defined by Equations 1 1 and 12, and 

may be given by 

2>:>) •<.(») 

g a = ^V^i (Equation 13) 

I») 2 

25 The pitch gain is provided to the excitation-processing module 54 as the unquantized pitch gains 352. The pitch 

correlation may be given by 
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/V, -I 


R = " =0 . (Equation 14) 


2 


I 2>» 2 • 5») 


Both parameters are available on a pitch cycle basis and may be linearly interpolated. 

3.12.3 Refined Classification and Refined Rate Selection 
5 Following pitch pre-processing by the pitch pre-processing module 322, the average pitch correlation and 

the pitch gains are provided to the characterization module 328 and the rate selection module 320. The 
characterization module 328 and the rate selection module 320 create a final characterization class and a final rate 
selection, respectively, using the pitch correlation and the pitch gains. The final characterization class and the 
final rate selection may be determined by refining the 6-class signal characterization and the open loop rate 
10 selection of the frame. 

Specifically, the characterization module 328 determines whether a frame with a characterization as a 
voiced frame should be characterized as class 4 - "Non-Stationary Voiced", or class 5 - "Stationary Voiced." In 
addition, a final determination that a particular frame is stationary noise-like unvoiced speech may occur based on 
the previous determination that the particular frame is modified unvoiced noise-like speech. Frames confirmed to 
1 5 be noise-like unvoiced speech may be characterized as class 1 , "Stationary Noise-Like Unvoiced Speech." 

Based on the final characterization class, the open loop rate selection by the rate selection module 320 
and the half rate signaling flag on the half rate signal line 30 (FIG. 1), a final rate selection may be determined. 
The final ratet selection is provided to the excitation-processing module 54 as a rate selection indicator 354. In 
addition, the final characterization class for the frame is provided to the excitation-processing module 54 as 
20 control information 356. 

3.13 Type Classification Module 

For the full rate codec 22 and the half rate codec 24, the final characterization class may also be used by 
the type classification module 324. A frame with a final characterization class of class 0 to 4 is determined to be a 
25 Type Zero frame, and a frame of class 5 is determined to be a Type One frame. The type classification is 

provided to the excitation-processing module 54 as a type indicator 358. 

4.0 EXCITATION PROCESSING MODULE 

The type indicator 358 from the type classification module 324 selectively activates either the full-rate 
30 module 54 or the half-rate module 56, as illustrated in FIG. 2, depending on the rate selection. FIG. 10 is a block 

diagram representing the F0 or HO first subframc-processing module 70 or 80 illustrated in FIG. 2 that is activated 
for the Type Zero classification. Similarly, FIG. 1 1 is a block diagram representing the Fl or HI first frame 
processing module 72 or 82, the Fl or HI second sub frame processing module 74 or 84 and the Fl or II I second 
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frame processing module 76 or 86 that are activated for Type One classification. As previously discussed, the "F" 
and "H" represent the full-rate codec 22 and the half-rate codec 24, respectively. 

Activation of the quarter-rate module 60 and the eighth-rate module 62 illustrated in FIG. 2 may be 
based on the rate selection. In one embodiment, a pseudo-random sequence is generated and scaled to represent 
the short-term excitation. The energy component 204 and 242 (FIG. 2) represents the scaling of the pseudo- 
random sequence, as previously discussed. In one embodiment, the "seed" used for generating the pseudo-random 
sequence is extracted from the bitstream, thereby providing synchronicity between the encoding system 12 and 
the decoding system 1 6. 

As previously discussed, the excitation processing module 54 also receives the modified weighted speech 
350, the unquantized pitch gains 352, the rate indicator 354 and the control information 356. The quarter and 
eighth rate codecs 26 and 28 do not utilize these signals during processing. However, these parameters may be 
used to further process frames of the speech signal 18 within the full-rate codec 22 and the half-rate codec 24. 
Use of these parameters by the full-rate codec 22 and the half-rate codec 24, as described later, depends on the 
type classification of the frame as Type Zero or Type One. 

4,1 Excitation Processing Module For Type Zero Frames Of The Full-Rate Codec And The Half-Rate 

Codec 

Referring now to FIG. 10, one embodiment of the F0 or HO first subframe-processing module 70, 80 
comprises an adaptive codebook section 362, a fixed codebook section 364 and a gain quantization section 366. 
The processing and coding for frames of Type Zero is somewhat similar to the traditional CELP encoding, for 
example, of TIA (Telecommunications Industry Association) standard IS-127. For the full-rate codec 22, the 
frame may be divided into four subframes, while for the half-rate codec 24, the frame may be divided into two 
sub frames, as previously discussed. The functions represented in FIG. 10 are executed on a sub frame basis. 

The F0 or HO first subframe-processing module 70 and 80 (FIG. 2) operate to determine the closed loop 
pitch lag and the corresponding adaptive codebook gain for the adaptive codebook. In addition, the long-term 
residual is quantized using the fixed codebook, and the corresponding fixed codebook gain is also determined. 
Quantization of the closed loop pitch lag and joint quantization of the adaptive codebook gain and the fixed 
codebook gain are also performed. 

4. L I Adaptive Codebook Section 

The adaptive codebook section 362 includes an adaptive codebook 368, a first multiplier 370, a first 
synthesis filter 372, a first perceptual weighting filter 374, a first subtracter 376 and a first minimization module 
37S. The adaptive codebook section 362 performs a search for the best closed loop pitch lag from the adaptive 
codebook 368 using the analysis-by-synthesis (ABS) approach. 

A segment from the adaptive codebook 368 corresponding to the closed loop pitch lag may be referred to 
as an adaptive codebook vector (v a ) 382. The pitch track 348 from the pitch pre-processing module 322 of FIG. 9 
may be used to identify an area in the adaptive codebook 368 to search for vectors for the adaptive codebook 
vector (v a ) 382. The first multiplier 370 multiplies the selected adaptive codebook vector (v a ) 382 by a gain (ga) 
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384. The gain (g,-,) 384 is unquantized and represents an initial adaptive codebook gain that is calculated as will be 
described later. The resulting signal is passed to the first synthesis filter 372 that performs a function that is the 
inverse of the LPC analysis previously discussed. The first synthesis filter 372 receives the quantized LPC 
coefficients A^(z) 342 from the LSF quantization module 334 and together with the first perceptual weighting 
5 filter module 374, creates a first resynthesized speech signal 386. The first subtractor 376 subtracts the first 

resynthesized speech signal 386 from the modified weighted speech 350 to generate a long-term error signal 388. 
The modified weighted speech 350 is the target signal for the, search in the adaptive codebook 368. 

The first minimization module 378 receives the long-term error signal 388 that is a vector representing 
the error in quantizing the closed loop pitch lag. The first minimization module 378 performs calculation of the 

10 energy of the vector and determination of the corresponding weighted mean squared error. In addition, the first 

minimization module 378 controls the search and selection of vectors from the adaptive codebook 368 for the 
adaptive codebook vector (v a ) 382 in order to reduce the energy of the long-term error signal 388. 

The search process repeats until the first minimization module 378 has selected the best vector for the 
adaptive codebook vector (v a ) 382 from the adaptive codebook 368 for each subframe. The index location of the 

15 best vector for the adaptive codebook vector (v a ) 382 within the adaptive codebook 368 forms part of the closed 

loop adaptive codebook component 144b, 1 76b (FIG. 2). This search process effectively minimizes the energy of 
the long-term error signal 388. The best closed loop pitch lag is selected by selecting the best adaptive codebook 
vector (v a ) 382 from the adaptive codebook 368. The resulting long-term error signal 388 is the modified 
weighted speech signal 350 less the filtered best vector for the adaptive codebook vector (v a ) 382. 

20 

4, LI A Closed-Loop Adaptive Codebook Search for the Full-Rate Codec 

The closed loop pitch lag for the full-rate codec 22 is represented in the bitstream by the closed loop 
adaptive codebook component 144b. For one embodiment of the full-rate codec 22, the closed loop pitch lags for 
the first and the third subframcs are represented with 8 bits, and the closed loop pitch lags for the second and the 

25 fourth subframes are represented with 5 bits, as previously discussed. In one embodiment, the lag is in a range of 

17 to 148 lags. The 8 bits and the 5 bits may represent the same pitch resolution. However, the 8 bits may also 
represent the full range of the closed loop pitch lag for a subframe and the 5 bits may represent a limited value of 
closed loop pitch lags around the previous subframe closed loop pitch lag. In an example embodiment, the closed 
loop pitch lag resolution is 0.2, uniformly, between lag 17 and lag 33. From lag 33 to lag 91 of the example 

30 embodiment, the resolution is gradually increased from 0.2 to 0.5, and the resolution from lag 91 to lag 148 is 1 .0, 

uniformly. 

The adaptive codebook section 362 performs an integer lag search for closed loop integer pitch lags. For 
the first and the third subframes (i.e. those represented with 8 bits), the integer lag search may be performed on 
the range of [/ -3,...,I p +3]. Where L p is the subframe pitch lag. The subframe pitch lag is obtained from the 
35 pitch track 348, which is used to identify a vector in the adaptive codebook 368. The cross-correlation function, 

/?(/) , for the integer lag search range may be calculated according to 
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(Equation 15) 


*</) = 



X(C(/I -/) **(/!)) 2 


where /(/?) is the target signal that is the modified weighted speech 350, e(n) is the adaptive codebook 
contribution represented by the adaptive codebook vector (v a ) 382, h(n) is the combined response of the first 
synthesis filter 372 and the perceptual weighting filter 374. In the example embodiment, there are 40 samples in a 
subframe, although more or less samples could be used. 

The closed loop integer pitch lag that maximizes R(l) may be choosen as a refined integer lag. The 
best vector from the adaptive codebook 368 for the adaptive codebook vector (v a ) 382 may be determined by 
upsampling the cross-correlation function /?(/) using a 9 th order Hamming weighted Sine. Upsampling is 

followed by a search of the vectors within the adaptive codebook 368 that correspond to closed loop pitch lags 
that are within 1 sample of the refined integer lag. The index location within the adaptive codebook 368 of the 
best vector for the adaptive codebook vector (v a ) 382 for each subframe is represented by the closed loop adaptive 
codebook component 144b in the bitstream. 


where L p op * represents the lag of the best vector for the adaptive codebook vector (v n ) 382 and e(n- L p opl ) 
represents the best vector for the adaptive codebook vector (v a ) 382. In addition, in this example embodiment, the 
estimate is bounded by 0.0 < g < 1 .2 , and n represents 40 samples in a subframe. A normalized adaptive 
codebook correlation is given by /?(/) when l=L p opl . The initial adaptive codebook gain may be further 
normalized according to the normalized adaptive codebook correlation, the initial class decision and the sharpness 
of the adaptive codebook contribution. The normalization results in the gain (ga) 384. The gain (g a ) 384 is 
unquantized and represents the initial adaptive codebook gain for the closed loop pitch lag. 

4*1.1.2 Closed-Loop Adaptive Codebook Search for Half-Rate Coding 

The closed loop pitch lag for the half-rate codec 24 is represented by the closed loop adaptive codebook 
component 176b (FIG. 2). For the half-rate codec 24 of one embodiment, the closed loop pitch lags for each of 
the two subframcs are encoded in 7 bits each with each representing a lag in the range of 17 to 127 lags. The 
integer lag search may be performed on the range of 3,...X /J +3] as opposed to the fractional search performed 

in the full-rate codec 22. The cross-correlation function /?(/) may be calculated as in Equation 15, where the 
summation is performed on an example embodiment subframe size of 80 samples. The closed loop pitch lag that 
maximizes R(l) is choosen as the refined integer lag. The index location within the adaptive codebook 368 of the 


The initial adaptive codebook gain may be estimated according to: 
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(Equation 16) 
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best vector for the adaptive codebook vector (v a ) 382 for each subframe is represented by the closed loop adaptive 
codebook component 176b in the bitstream. 

The initial value for the adaptive codebook gain may be calculated according to Equation 16, whsre the 
summation is performed on an example embodiment subframe size of 80 samples. The normalization procedures 
5 as previously discussed may then be applied resulting in the gain (g a ) 384 that is unquantized. 

The long-term error signal 388 generated by either the full-rate codec 22 or the half-rate codec 24 is used 
during the search by the fixed codebook section 364. Prior to the fixed codebook search, the voice activity 
decision from the VAD module 326 of FIG. 9 that is applicable to the frame is obtained. The voice activity 
decision for the frame may be sub-divided into a subframe voice activity decision for each subframe. The 
10 subframe voice activity decision may be used to improve perceptual selection of the fixed-codebook contribution. 

4.L2 Fixed Codebook Section 

The fixed codebook section 364 includes a fixed, codebook 390, a second multiplier 392, a second 
synthesis filter 394, a second perceptual weighting filter 396, a second subtracter 398, and a second minimization 

1 5 module 400. The search for the fixed codebook contribution by the fixed codebook section 364 is similar to the 

search within the adaptive codebook section 362. 

A fixed codebook vector (v c ) 402 representing the long-term residual for a subframe is provided from the 
fixed codebook 390. The second multiplier 392 multiplies the fixed codebook vector (v c ) 402 by a gain (gc) 404. 
The gain (g c ) 404 is unquantized and is a representation of the initial value of the fixed codebook gain that may be 

20 calculated as later described. The resulting signal is provided to the second synthesis filter 394. The second 

synthesis filter 394 receives the quantized LPC coefficients A q (z) 342 from the LSF quantization module 334 and 
together with the second perceptual weighting filter 396, creates a second resynthesized speech signal 406. The 
second subtractor 398 subtracts the resynthesized speech signal 406 from the long-term error signal 388 to 
generate a vector that is a fixed codebook error signal 408. 

25 The second minimization module 400 receives the fixed codebook error signal 408 that represents the 

error in quantizing the long-term residual by the fixed codebook 390. The second minimization module 400 uses 
the energy of the fixed codebook error signal 408 to control the selection of vectors for the fixed codebook vector 
(v c ) 402 from the fixed codebook 292 in order to reduce the energy of the fixed codebook error signal 408. The 
second minimization module 400 also receives the control information 356 from the characterization module 328 

30 of FIG. 9. 

The final characterization class contained in the control information 356 controls how the second 
minimization module 400 selects vectors for the fixed codebook vector (v c ) 402 from the fixed codebook 390. 
The process repeats until the search by the second minimization module 400 has selected the best vector for the 
fixed codebook vector (v c ) 402 from the fixed codebook 390 for each subframe. The best vector for the fixed 
35 codebook vector (v c ) 402 minimizes the error in the second resynthesized speech signal 406 with respect to the 

long-term error signal 388. The indices identify the best vector for the fixed codebook vector (v c ) 402 and, as 
previously discussed, may be used to form the fixed codebook component 146a and 178a. 
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4.1.2.1 Fixed Codehook Search for the Full-Rale Codec 

As previously discussed with reference to FIGs. 2 and 4, the fixed codebook component 146a for frames 
of Type Zero classification may represent each of four subframes of the full-rate codec 22 using the three 5-pulse 
codebooks 160. When the search is initiated, vectors for the fixed codebook vector (v c ) 402 within the fixed 
codebook 390 may be determined using the long-term error signal 388 that is represented by: 


fixed codebook 390 in the forward direction during the search. The search is an*iterative, controlled complexity 
search for the best vector for the fixed codebook vector (v c ) 402. An initial value for fixed codebook gain 
represented by the gain (gc) 404 may be found simultaneously with the search for the best vector for the fixed 
codebook vector (v c ) 402. 

In an example embodiment, the search for the best vector for the fixed codebook vector (v c ) 402 is 
completed in each of the three 5-pulse codebooks 160. At the conclusion of the search process within each of the 
three 5-pulse codebooks 160, candidate best vectors for the fixed codebook vector (v c ) 402 have been identified. 
Selection of one of the three 5-pulse codebooks 160 and which of the corresponding candidate best vectors will be 
used may be determined using the corresponding fixed codebook error signal 408 for each of the candidate best 
vectors. Determination of the weighted mean squared error (WMSE) for each of the corresponding fixed 
codebook error signals 408 by the second minimization module 400 is first performed. For purposes of this 
discussion, the weighted mean squared errors (WMSEs) for each of the candidate best vectors from each of the 
three 5-pulse codebooks 160 will be referred to as first, second and third fixed codebook WMSEs. 

The first, second, and third fixed codebook WMSEs may be first weighted. Within the full-rate codec 
22, for frames classified as Type Zero, the first, second, and third fixed codebook WMSEs may be weighted by 
the subframe voice activity decision. In addition, the weighting may be provided by a sharpness measure of each 
of the first, second, and third fixed codebook WMSEs and the NSR from the characterization module 328 of FIG. 
9. Based on the weighting, one of the three 5-pulse fixed codebooks 160 and the best candidate vector in that 
codebook may be selected. 

The selected 5-pulse codebook 160 may then be fine searched for a final decision of the best vector for 
the fixed codebook vector (v c ) 402. The fine search is performed on the vectors in the selected one of the three 5 - 
pulse codebook 160 that are in the vicinity of the best candidate vector chosen. The indices that identify the best 
vector for the fixed codebook vector (v c ) 402 within the selected one of the three 5-pulse codebook 160 are part of 
the fixed codebook component 178a in the bitstream. 

4.1.2.2 Fixed Codebook Search for the Half Rate Codec 

For frames of Type Zero classification, the fixed codebook component 178a represents each of the two 
subframes of the half-rate codec 24. As previously discussed, with reference to FIG. 5, the representation may be 
based on the pulse codebooks 192, 194 and the gaussian codebook 195. The initial target for the fixed codebook 
gain represented by the gain (gc) 404 may be determined similarly to the full-rate codec 22. In addition, the 
search for the fixed codebook vector (v c ) 402 within the fixed codebook 390 may be weighted similarly to the 


/'(«) - t(n) - g a ■ [e(n - LJ) * h{n)). (Equation 17) 

Pitch enhancement may be applied to the three 5-pulse codebooks 160 (illustrated in Fig. 4) within the 
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full-rate codec 22. In the half-rate codec 24, the weighting may be applied to the best candidate vectors from each 
of the pulse codebooks 192 and 194 as well as the gaussian codebook 195. The weighting is applied to determi nc 
the most suitable fixed codebook vector (v c ) 402 from a perceptual point of view. In addition, the weighting of 
the weighted mean squared error (WMSE) in the half-rate codec 24 may be further enhanced to emphasize the 
perceptual point of view. Further enhancement may be accomplished by including additional parameters in the 
weighting. The additional factors may be the closed loop pitch lag and the normalized adaptive codebook 
correlation. 

In addition to the enhanced weighting, prior to the search of the codebooks 192, 194, 195 for the best 
candidate vectors, some characteristics may be built into the entries of the pulse codebooks 192, 194. These 
characteristics can provide further enhancement to the perceptual quality. In one embodiment, enhanced 
perceptual quality during the searches may be achieved by modifying the filter response of the second synthesis 
filter 394 using three enhancements. The first enhancement may be accomplished by injecting high frequency 
noise into the fixed codebook, which modifies the high-frequency band. The injection of high frequency noise 
may be incorporated into the response of the second synthesis filter 394 by convolving the high frequency noise 
impulse response with the impulse response of the second synthesis filter 394. 

The second enhancement may be used to incorporate additional pulses in locations that can be 
determined by high correlations in the previously quantized subframe. The amplitude of the additional pulses 
may be adjusted according to the correlation strength, thereby allowing the decoding system 16 to perform the 
same operation without the necessity of additional information from the encoding system 12. The contribution 
from these additional pulses also may be incorporated into the impulse response of the second synthesis filter 394. 
The third enhancement filters the fixed codebook 390 with a weak short-term spectral filler to compensate for the 
reduction in the formant sharpness resulting from bandwidth expansion and the quantization of the LSFs. 

The search for the best vector for the fixed codebook vector (v c ) 402 is based on minimizing the energy 
of the fixed codebook error signal 403, as previously discussed. The search may first be performed on the 2 -pulse 
codebook 192. The 3-pulse codebook 194 may be searched next, in two steps. The first step can determine a 
center for the second step that may be referred to as a focused search. Backward and forward weighted pitch 
enhancement may be*applied for the search in both pulse codebooks 192 and 194. The, gaussian codebook 195 
may be searched last, using a fast search routine that is used to determine the two orthogonal basis vectors for 
encoding as previously discussed. 

The selection of one of the codebooks 192, 194 and 195 and the best vector for the fixed codebook vector 
(v c ) 402 may be performed similarly to the full-rate codec 22. The indices that identify the best vector for the 
fixed codebook vector (v c ) 402 within the selected codebook arc part of the fixed codebook component 1 78a in 
the bitstream. 

At this point, the best vectors for the adaptive codebook vector (v a ) 382 and the fixed codebook vector 
(v c ) 402 have been found within the adaptive and fixed codebooks 368, 390, respectively. The unquantized initial 
values for the gain 384 and the gain (gc) 404 now may be replaced by the best gain values. The best gain 
values may be determined based on the best vectors for the adaptive codebook vector (v a ) 382 and the fixed 
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codebook vector (v c ) 402 previously determined. Following determination of the best gains, they are jointly 
quantized. Determination and quantization of the gains occurs within the gain quantization section 366. 

4 A3 Gain Quantization Section 
5 The . gain quantization section 366 of one embodiment includes a 2D VQ gain codebook 412, a third 

multiplier 414, a fourth multiplier 416, an adder 418, a third synthesis filter 420, a third perceptual weighting filter 
422, a third subtractor 424, a third minimization module 426* and an energy modification section 428. The energy 
modification section 428 of one embodiment includes an energy analysis module 430 and an energy adjustment 
module 432. Determination and quantization of the fixed and adaptive codebook gains may be performed within 
10 the gain quantization section 366. In addition, further modification of the modified weighted speech 350 occurs in 

the energy modification section 428, as will be discussed, to form a modified target signal 434 that may be used 
for the quantization. 

Determination and quantization involves searching to determine a quantized gain vector (ga C ) 433 that 
represents the joint quantization of the adaptive codebook gain and the fixed codebook gain. The adaptive and 
15 fixed codebook gains, for the search, may be obtained by minimizing the weighted mean square error according 

to: 

{g a *gc}= argmin jg(/(w) - ((g a v a (n) * h(nj) + (g,v f («) * /*0)))) 2 j . 

(Equation 18) 

Where v («) is the best vector for the adaptive codebook vector (v a ) 382, and v.(«) is the best vector for the fixed 

20 codebook vector (v c ) 402 as previously discussed. In the example embodiment, the summation is based on a 

frame that contains 80 samples, such as, in one embodiment of the half-rate codec 24. The minimization may be 
obtained jointly (obtaining g a and g c concurrently) or sequentially (obtaining g a first and then g c ), depending on a 
threshold value of the normalized adaptive codebook correlation. The gains may then be modified in part, to 
smooth the fluctuations of the reconstructed speech in the presence of background noise. The modified gains are 

25 denoted g'„ and g' c . The modified target signal 434 may be generated using the modified gains by: 

'"(") = * h{n) + g' c v e (n) * /*(«) (Equation 19) 

A search for the best vector for the quantized gain vector (ga C ) 433 is performed within the 2D VQ gain 
codebook 412. The 2D VQ gain codebook 412 may be the previously discussed 2D gain quantization table 
illustrated as Table 4. The 2D VQ gain codebook 412 is searched for vectors for the quantized gain vector (ga C ) 
30 433 that minimize the mean square error, i.e., minimizing 

79 

E = £('"(«) ~ * h(n) + g c v c (n) * h(n))f , (Equation 20) 

/i=0 

where a quantized fixed codebook gain (g a ) 435 and a quantized adaptive codebook gain (g,.) 436 may be derived 
from the 2D VQ gain codebook 412. In the example embodiment, the summation is based on a frame that 
contains 80 samples, such as, in one embodiment of the half-rate codec 24. The quantized vectors in the 2D VQ 
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gain codebook 412 actually represent the adaptive codebook gain and a correction factor for the fixed codebook 
gain as previously discussed. 

Following determination of the modified target signal 434, the quantized gain vector (gac) 433 is^passed 
to multipliers 414, 416. The third multiplier 414 multiplies the best vector for the adaptive codebook vector (v a ) 
5 382 from the adaptive codebook 368 with the quantized adaptive codebook gain (&) 435. The output from the 

third multiplier 414 is provided to the adder 418. Similarly, the fourth multiplier 416 multiplies the quantized 
fixed codebook gain (g c ) 436 with the best vector for the. fixed codebook vector (v c ) 402 from the fixed codebook 
390. The output from the fourth multiplier 4 1 6 is also provided to the adder 4 1 8. The adder 4 1 8 adds the outputs 
from the multipliers 414, 416 and provides the resulting signal to the third synthesis filter 420. 
10 The combination of the third synthesis filter 420 and the perceptual weighting filter 422 generates a third 

resynthesized speech signal 438. As with the first and second synthesis filters 372 and 394, the third synthesis 
filter 420 receives the quantized LPC coefficients A«,(z) 342. The third subtractor 424 subtracts the third 
resynthesized speech signal 438 from the modified target signal 434 to generate a third error signal 442. The third 
minimization module 426 receives the third error signal 442 that represents the error resulting from joint 
15 quantization' of the fixed codebook gain and the adaptive codebook gain by the 2D VQ gain codebook 412. The 

third minimization module 426 uses the energy of the third error signal 442 to control the search and selection of 
vectors from the 2D VQ gain codebook 412 in order to reduce the energy of the third error signal 442. 

The process repeats until the third minimization module 426 has selected the best vector from the 2D VQ 
gain codebook 412 for each subframc that minimizes the energy of the third error signal 442. Once the energy of 
20 the third error signal 442 has been minimized for each subframe, the index locations of the jointly quantized gains 

(g a ) and (gc ) 435 and 436 are used to generate the gain component 147, 179 for the frame. For the full -rate codec 
22, the gain component 147 is the fixed and adaptive gain component 148a, I50a and for the half-rate codec 24, 
the gain component 179 is the adaptive and fixed gain component 180a and 182a. 

The synthesis fillers 372, 394 and 420, the perceptual weighting filters 374, 396 and 422, the 
25 minimization modules 378, 400 and 426, the multipliers 370, 392, 414 and 416, the adder 418, and the s ubtractors 

376, 398 and 424 (as well as any other filter, minimization module, multiplier, adder, and subtractor described in 
this application) may be replaced by any other device, or modified in a manner known to those of ordinary skill in 
the art, that may be appropriate for the particular application. 

30 4.2 Excitation Processing Module For Type One Frames Of The Full-Rate Codec And The 

Half-Kate Codec 

In Fig. 1 1, the Fl , H 1 first frame processing modules 72 and 82 includes a 3D/4D open loop VQ module 
454. The Fl, HI second sub-frame processing modules 74 and 84 of one embodiment include the adaptive 
codebook 368, the fixed codebook 390, a first multiplier 456, a second multiplier 458, a first synthesis filter 460, 
35 and a second synthesis filter 462. In addition, the Fl, HI second sub-frame processing modules 74 and 84 include 

a first perceptual weighting filter 464, a second perceptual weighting filter 466, a first subtractor 468, a second 
subtractor 470, a first minimization module 472, and an energy adjustment module 474. The Fl, HI second frame 
processing modules 76 and 86 include a third multiplier 476, a fourth multiplier 478, an adder 480, a third 
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synthesis filter 482, a third perceptual weighting filter 484, a third subtracter 486, a buffering module 488, a 
second minimization module 490 and a 3D/4D VQ gain codebook 492. 

The processing of frames classified as Type One within the excitation-processing module 54 provides 
processing on both a frame basis and a sub-frame basis, as previously discussed. For purposes of brevity, the 
5 following discussion wilt refer to the modules within the full rate codec 22. The modules in the half rate codec 24 

may be considered to function similarly, unless otherwise noted. Quantization of the adaptive codebook gain by 
the Fl first frame-processing module 72 generates the adaptive gain component 148b. The Fl second subframe 
processing module 74 and the Fl second frame processing module 76 operate to determine the fixed codebook 
vector and the corresponding fixed codebook gain, respectively as previously set forth. The Fl second subframe- 

1 0 processing module 74 uses the track tables, as previously discussed, lo generate the fixed codebook component 

146b as illustrated in FIG. 2. 

The Fl second frame-processing module 76 quantizes the fixed codebook gain to generate the fixed gain 
component 1 50b. In one embodiment, the full-rate codec 22 uses 1 0 bits for the quantization of 4 fixed codebook 
gains, and the half-rate codec 24 uses 8 bits for the quantization of the 3 fixed codebook gains. The quantization 

1 5 may be performed using moving average prediction. In general, before the prediction and the quantization are 

performed, the prediction states are converted to a suitable dimension. 

4.2. J First Frame Processing Module 

One embodiment of the 3D/4D open loop VQ module 454 may be the previously discussed four- 
20 dimensional pre vector quantizer (4D pre VQ) 166 and associated pre-gain quantization table for the full-rate 

codec 22. Another embodiment of the 3D/4D open loop VQ module 454 may be the previously discussed three- 
dimensional pre vector quantizer (3D pre VQ) 198 and associated pre-gain quantization table for the half-rate 
codec 24. The 3D/4D open loop VQ module 454 receives the unquantized pitch gains 352 from the pitch pre- 
processing module 322. The unquantized pitch gains 352 represent the adaptive codebook gain for the open loop 
25 pitch lag, as previously discussed. 

The 3D/4D open loop VQ module 454 quantizes the unquantized pitch gains 352 to generate a quantized 
pitch gain (g k a ) 496 representing the best quantized pitch gains for each subframe where k is the number of 
subframes. In one embodiment, there are four subframes for the full-rate codec 22 and three subframes for the 
half-rate codec 24 which correspond to four quantized gains (g' a , g 2 a , g 3 a , g* a ) and three quantized gains (g 1 ,, g 2 a , 
30 g 3 a ) of each subframe, respectively. The index location of the quantized pitch gain (g k a ) 496 within the pre-gain 

quantization table represents the adaptive gain component 148b for the full-rate codec 22 or the adaptive gain 
component 180b for the half-rale codec 24. The quantized pitch gain (g k a ) 496 is provided to the Fl second 
subframe-proccssing module 74 or the HI second subframe-processing module 84. 

35 4.2.2 Secon d Sub- Fram e Processing M odule 

The Fl or HI second subframe-processing module 74 or 84 uses the pitch track 348 provided by the 
pitch pre-processing module 322 to identify an adaptive codebook vector (v k a ) 498. The adaptive codebook vector 
(v k a ) 498 represents the adaptive codebook contribution for each subframe where k equals the subframe number. 
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In one embodiment, there are four subframes for the full-rate codec 22 and three subframes for the half-rate codec 
24 which correspond to four vectors (v' a , v 2 a , v 3 a , v 4 a ) and three vectors (v' a , v 2 a , v 3 n ) for the adaptive codebook 
contribution for each subframe, respectively. 

The vector selected for the adaptive codebook vector (v k a ) 498 may be derived from past vectors located 
5 in the adaptive codebook 368 and the pitch track 348. Where the pitch track 348 may be interpolated and is 

represented by L p (n) . Accordingly, no search is required. The adaptive codebook vector (v k a ) 498 may be 

obtained by interpolating the past adaptive codebook vectors (v k a ) 498 in the adaptive codebook with a 21 st order 
Hamming weighted Sine window by: 

v a (n) = f>,(f (£„(«)),/) • e{n - (Equation 21) 

i = - 1 0 

10 where e(n) is the past excitation, i(L p (n)) and f(L p (n)) are the integer and fractional part of the pitch lag, 

respectively, and vv 5 (/*,/) is the Hamming weighted Sine window. 

The adaptive codebook vector (v k a ) 498 and the quantized pitch gain (g k a ) 496 are multiplied by the first 
multiplier 456. The first multiplier 456 generates a signal that is processed by the first synthesis filter 460 and the 
first perceptual weighting filter module 464 to provide a first resynthesized speech signal 500. The first synthesis 

15 filter 460 receives the quantized LPC coefficients \(z) 342 from the LSF quantization module 334 as part of the 

processing. The first subtractor 468 subtracts the first resynthesized speech signal 500 from the modified 
weighted speech 350 provided by the pitch pre-processing module 322 to generate a long-term error signal 502. 

The Fl or HI second subframe-processing module 74 or 84 also performs a search for the fixed 
codebook contribution that is similar to that performed by the F0 or HO first subframe-processing module 70 and 

20 80, previously discussed. Vectors for a fixed codebook vector (v k c ) 504 that represents the long-term residual for 

a subframe are selected from the fixed codebook 390 during the search. The second multiplier 458 multiplies the 
fixed codebook vector (v k c ) 504 by a gain (g k c ) 506 where k is the subframe number. The gain (g k c ) 506 is 
unquantized and represents the fixed codebook gain for each subframe. The resulting signal is processed by the 
second synthesis filter 462 and the second perceptual weighting filter 466 to generate a second resynthesized 

25 speech signal 508. The second resynthesized speech signal 508 is subtracted from the long-term error signal 502 

by the second subtractor 470 to produce a fixed codebook error signal 510. 

The fixed codebook error signal 510 is received by the first minimization module 472 along with the 
control information 356. The first minimization module 472 operates the same as the previously discussed second 
minimization module 400 illustrated in FIG. 10. The search process repeats until the first minimization module 

30 472 has selected the best vector for the fixed codebook vector (v k c ) 504 from the fixed codebook 390 for each 

subframe. The best vector for the fixed codebook vector (v k c ) 504 minimizes the energy of the fixed codebook 
error signal 510. The indices identify the best vector for the fixed codebook vector (v k c ) 504, as previously 
discussed, and form the fixed codebook component 146b and 178b. 
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4.2.2. 1 Fixed Codebook Search for Full-Rate Codec 

In one embodiment, the 8-pu!se codebook 162, illustrated in FIG. 4, is used for each of the four 

subframes for frames of type 1 by the full-rate codec 22, as previously discussed. The target for trrti fixed 

codebook vector (v k c ) 504 is the long-term error signal 502, as previously described. The long-term error signal 
5 502, represented by t'(n), is determined based on the modified weighted speech 350, represented by t(n), with the 

adaptive codebook contribution from the initial frame processing module 44 removed according to: 
t'(n) = t(n)-g a (v fl (/0 */*("))• (Equation 22) 

During the search for the best vector for the fixed codebook vector (v k c ) 504, pitch enhancement may be 

applied in the forward direction. In addition, the search procedure minimizes the fixed codebook residual 508 
10 using an iterative search procedure with controlled complexity to determine the best vector for the fixed codebook 

vector v\ 504. An initial fixed codebook gain represented by the gain (g k c ) 506 is determined during the search. 

The indices identify the best vector for the fixed codebook vector (v k c ) 504 and form the fixed codebook 

component 146b as previously discussed. 

1 5 4,2.2.2 Fixed Codebook Search for Half-Rate Codec 

In one embodiment, the long-term residual is represented with 13 bits for each of the three subframes for 
frames classified as Type One for the half-rate codec 24, as previously discussed. The long-term residual may be 
determined in a similar manner to the fixed codebook search in the full-rate codec 22. Similar to the fixed- 
codebook search for the half-rate codec 24 for frames of Type Zero, the high-frequency noise injection, the 

20 additional pulses that are determined by high correlation in the previous subframe, and the weak short-term 

spectral filter may be introduced into the impulse response of the second synthesis filter 462. In addition, forward 
pitch enhancement also may be introduced into the impulse response of the second synthesis filter 462. 

In one embodiment, a full search is performed for the 2-pulse code book 196 and the 3-pulse codebook 
197 as illustrated in FIG. 5. The pulse codebook 196, 197 and the best vector for the fixed codebook vector (v k c ) 

25 504 that minimizes the fixed codebook error signal 510 are selected for the representation of the long term 

residual for each subframe. In addition, an initial fixed codebook gain represented by the gain (g k c ) 506 may be 
determined during the search similar to the full-rate codec 22. The indices identify the best vector for the fixed 
codebook vector (v k c ) 504 and form the fixed codebook component 178b. 

As previously discussed, the Fl or HI second subframe-processing module 74 or 84 operates on a 

30 subframe basis. However, the Fl or HI second frame-processing module 76 or 86 operates on a frame basis. 

Accordingly, parameters determined by the Fl or HI second subframe-processing module 74 or 84 may be stored 
in the buffering module 488 for later use on a frame basis. In one embodiment, the parameters stored are the best 
vector for the adaptive codebook vector (v k a ) 498 and the best vector for the fixed codebook vector (v k c ) 504. In 
addition, a modified target signal 512 and the gains (g k a ), (g\) 496 and 506 representing the initial adaptive and 

35 fixed codebook gains may be stored. Generation of the modified target signal 512 will be described later. 

At this time, the best vector for the adaptive codebook vector (v k a ) 498, the best vector for the fixed 
codebook vector (v k c ) 504, and the best pitch gains for the quantized pitch gain (g k 0 ) 496 have been identified. 
Using these best vectors and best pitch gains, the best fixed codebook gains for the gain (g k c ) 506 will be 
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determined. The best fixed codebook gains for the gain (g k c ) 506 will replace the unquantized initial fixed 
codebook gains determined previously for the gain (g k c ) 506. To determine the best fixed codebook gains, a joint 
delayed quantization of the fixed-codebook gains for each subframe is performed by the second frame-prottessing 
module 76 and 86. 

4.23 Second Frame Processing Module 

The second frame processing module 76 and.86*is operable on a frame basis to generate the fixed 
codebook gain represented by the Fixed gain component 150b and 182b. The modified target 512 is first 
determined in a manner similar to the gain determination and quantization of the frames classified as Type Zero. 
The modified target 512 is determined for each subframe and is represented by t"(n). The modified target may be 
derived using the best vectors for the adaptive codebook vector (v k a ) 498 and the fixed codebook vector (v k c ) 504, 
as well as the adaptive codebook gain and the initial value of the fixed codebook gain derived from Equation 18 
by: 

t"(n) = ga V o( n ) * + Sc v M) * A (>0- (Equation 23) 

An initial value for the fixed codebook gain for each subframe to be used in' the search may be obtained 
by minimizing: 

{g c } = argmin - ((g a v a (n) * h{n))+{g c v,(n) * h(n)))f J . (Equation 24) 

Where \> a (n) is the adaptive-codebook contribution for a particular subframe and v c («) is the fixed-codebook 
contribution for a particular subframe. In addition, g a is the quantized and normalized adaptive-codebook gain 
for a particular subframe that is one of the elements a quantized fixed codebook gain (^ k c ) 513. The calculated 
fixed codebook gain g c is further normalized and corrected, to provide the best energy match between the third 
resynthesized speech signal and the modified target signal 512 that has been buffered. Unquantized fixed- 
codebook gains from the previous subframes may be used to generate the adaptive codebook vector (v k a ) 498 for 
the processing of the next subframe according to Equation 21 . 

The search for vectors for the quantized fixed codebook gain (g k c ) 513 is performed within the 3D/4D 
VQ gain codebook 492. The 3D/4D VQ gain codebook 492 may be the previously discussed multi-dimensional 
gain quantizer and associated gain quantization table. In one embodiment, the 3D/4D VQ gain codebook 492 may 
be the previously discussed 4D delayed VQ gain quantizer 168 for the full-rate codec 22. As previously 
discussed, the 4D delayed VQ gain quantizer 168 may be operable using the associated delayed gain quantization 
table illustrated as Table 5. In another embodiment, the 3D/4D VQ gain codebook 492 may be the previously 
discussed 3D delayed VQ gain quantizer 200 for the half-rate codec 24. The 3D delayed VQ gain quantizer 200 
may be operable using the delayed gain quantization table illustrated as the previously discussed Table 8. 

The 3D/4D VQ gain codebook 492 may be searched for vectors for the quantized fixed codebook gain 
(g k c) 513 that minimize the energy similar to the previously discussed 2D VQ gain codebook 412 of FIG. 10. The 
quantized vectors in the 3D/4D VQ gain codebook 492 actually represent a correction factor for the predicted 
fixed codebook gain as previously discussed. During the search, the third multiplier 476 multiplies the adaptive 
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codebook vector (v k 0 ) 498 by the quantized pitch gain (g k a ) 496 following determination of the modified target 
512. In addition, the fourth multiplier 478 multiplies the fixed codebook vector (v k c ) 504 by the quantized fixed 
codebook gain (g\) 513. The adder 480 adds the resulting signals from the multipliers 476 and 478. 

The resulting signal from the adder 480 is passed through the third synthesis filter 482 and the perceptual 
weighting filter module 484 to generate a third resynthesized speech signal 514. As with the first and second 
synthesis filters 460, 462, the third synthesis filter 482 receives the quantized LPC coefficients A q (z) 342 from the 
LSF quantization module 334 as part of the processing. Jha third subtractor 486 subtracts the third resynthesized 
speech signal 514 from the modified target signal 512 that was previously stored in the buffering module 488. 
The resulting signal is the weighted mean squared error referred to as a third error signal 516. 

The third minimization module 490 receives the third error signal 516 that represents the error resulting 
from quantization of the fixed codebook gain by the 3D/4D VQ gain codebook 492. The third minimization 
module 490 uses the third error signal 516 to control the search and selection of vectors from the 3D/4D VQ gain 
codebook 492 in order to reduce the energy of the third error signal 516. The search process repeats until the third 
minimization module 490 has selected the best vector from the 3D/4D VQ gain codebook 492 for each subframe 
that minimizes the error in the third error signal 516. Once the energy of the third error signal 516 has been 
minimized, the index location of the quantized fixed codebook gain (g k c ) 513 in the 3D/4D VQ gain codebook 492 
is used to generate the fixed codebook gain component 150b for the full-rate codec 22, and the fixed codebook 
gain component 182b for the half-rate codec 24. 

4.2.3.1 3D/4D VQGain Codebook 

In one embodiment, when the 3D/4D VQ gain codebook 492 is a 4-dimcnsional codebook, it may be 
searched in order to minimize 

" E = Z ('» - feX (») * >'(») + £») * h(n))f 

39 

+ Z V 2 ("> - (inKOO * >'(») + £>;(") * h(n))f (Equation 25) 

« =0 

+ z (''(») - dyj") * *(») + SMC*) * Kn))y 

+ Z (' 4 <") -(«»)* *(«) + i») • H»))J 

where the quantized pitch gains originate from the initial frame processing module 44, and 

{f'(/t),/ 2 («)^ 3 (n)./ 4 (/»)}. {vl(«),v;(/0,v o 3 (/0,v; (,?)}, and {v l e (n) 9 v^ii) t v c 3 («),v»} may be buffered during the 

subframe processing as previously discussed. In an example embodiment, the fixed codebook gains 
{ir'ic'ic'ir } are de r*ved from a 10-bit codebook, where the entries of the codebook contain a 4-dimensional 

correction factor for the predicted fixed codebook gains as previously discussed. In addition, n=40 to represent 40 

samples per frame. 

In another embodiment, when the 3D/4D VQ gain codebook 492 is a 3-dimensionaI codebook, it may be 
searched in order to minimize - 
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+ L(< 2 («> - fettoo * *(«) - * ''('o)) 2 (Equation 26) 

. + £ (/>(„) - (g„ J vj(n) * />(«) + * /i(n))) 2 

where the quantized pitch gains \gl , ^ , } originate from the initial frame processing module 44, and 
{/ 1 (n),t 2 (n), / 3 (/?)}, {v^ (/t), v* («)} , and {v! («), v] (w), (/z)} may be buffered during the subframe 

processing as previously discussed. In an example embodiment, the fixed codebook gains {gl y g* are 

5 derived from an 8-bit codebook where the entries of the codebook contain a 3-dirnensional correction factor for 

the predicted fixed codebook gains. The prediction of the fixed-codebook gains may be based on moving average 
prediction of the fixed codebook energy in the log domain. 

5.0 DECODING SYSTEM 

10 Referring now to FIG. 12, an expanded block diagram representing the full and half-rate decoders 90 and 

92 of FIG. 3 is illustrated. The full or half-rate decoders 90 or 92 include the excitation reconstruction modules 
104, 106, 114 and 116 and the linear prediction coefficient (LPC) reconstruction modules 107 and 118. One 
embodiment of each of the excitation reconstruction modules 104, 106, 114 and 116 includes the adaptive 
codebook 368, the fixed codebook 390, the 2D VQ gain codebook 412, the 3D/4D open loop VQ codebook 454, 

1 5 and the 3D/4D VQ gain codebook 492. The excitation reconstruction modules 104, 106, 1 14 and 1 16 also include 

a first multiplier 530, a second multiplier 532 and an adder 534. In one embodiment, the LPC reconstruction 
modules 107, 118 include an LSF decoding module 536 and an LSF conversion module 538. In addition, the 
half-rate codec 24 includes the predictor switch module 336, and the full-rate codec 22 includes the interpolation 
module 338. 

20 Also illustrated in FIG. 12 are the synthesis filter module 98 and the post-processing module 100. In one 

embodiment, the post-processing module 100 includes a short-term post filter module 540, a long-term filter 
module 542, a tilt compensation filter module 544, and an adaptive gain control module 546. According to the 
rate selection, the bit-stream may be decoded to generate the post-processed synthesized speech 20. The decoders 
90 and 92 perform inverse mapping of the components of the bit-stream to algorithm parameters. The inverse 

25 mapping may be followed by a type classification dependent synthesis within the full and half-rate codecs 22 and 

24. 

The decoding for the quarter-rate codec 26 and the eighth-rate codec 28 are similar to the full and half- 
rate codecs 22 and 24. However, the quarter and eighth-rale codecs 26 and 28 use vectors of similar yet random 
numbers and the energy gain, as previously discussed, instead of the adaptive and the fixed codebooks 368 and 
30 390 and associated gains. The random numbers and the energy gain may be used to reconstruct an excitation 

energy that represents the short-term excitation of a frame. The LPC reconstruction modules 122 and 126 also are 
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similar to the full and half-rate codec 22, 24 with the exception of the predictor switch module 336 and the 
interpolation module 338. 

5.1 Excitation Reconstruction 

5 Within the full and half rate decoders 90 and 92, operation of the excitation reconstruction modules 1 04, 

106, 1 14 and 1 16 is largely dependent on the type classification provided by the type component 142 and 174. 
The adaptive codebook 368 receives the pitch track 348. The pitch track 348 is reconstructed by the decoding 
system 16 from the adaptive codebook component 144 and 176 provided in the bitstream by the encoding system 
12. Depending on the type classification provided by the type component 142 and 174, the adaptive codebook 

10 368 provides a quantized adaptive codebook vector (v\) 550 to the multiplier 530. The multiplier 530 multiplies 

the quantized adaptive codebook vector (v k a ) 550 with an adaptive codebook gain vector (g\) 552. The selection 
of the adaptive codebook gain vector (g k a ) 552 also depends on the type classification provided by the type 
component 142 and 174. 

In an example embodiment, if the frame is classified as Type Zero in the full rate codec 22, the 2D VQ 
15 gain codebook 412 provides the adaptive codebook gain vector (g k „) 552 to the multiplier 530. The adaptive 

codebook gain vector (g\) 552 is determined from the adaptive and fixed codebook gain component 148a and 
150a. The adaptive codebook gain vector (g k a ) 552 is the same as part of the best vector for the quantized gain 
vector (& c ) 433 determined by the gain and quantization section 366 of the F0 first sub-frame processing module 
70 as previously discussed. The quantized adaptive codebook vector (v\) 550 is determined from the closed loop 
20 adaptive codebook component 144b. Similarly, the quantized adaptive codebook vector (v k .) 550 is the same as 

the best vector for the adaptive codebook vector (v a ) 382 determined by the F0 first sub-frame processing module 
70. 

The 2D VQ gain codebook 412 is two-dimensional and provides the adaptive codebook gain vector (g ,) 
552 to the multiplier- 530 and a fixed codebook gain vector (g\) 554 to the multiplier 532. The fixed codebook 

25 gain vector (g\) 554 similarly is determined from the adaptive and fixed codebook gain component 148a and 

1 50a and is part of the best vector for the quantized gain vector (foe) 433. Also based on the type classification, 
the fixed codebook 390 provides a quantized fixed codebook vector (v\) 556 to the multiplier 532. The quantized 
fixed codebook vector (v\) 556 is reconstructed from the codebook identification, the pulse locations (or the 
gaussian codebook 195 for the half-rate codec 24), and the pulse signs provided by the fixed codebook component 

30 1 46a. The quantized fixed codebook vector (v k a ) 556 is the same as the best vector for the fixed codebook vector 

(v c ) 402 determined by the FO first sub-frame processing module 70 as previously discussed. The multiplier 532 
multiplies the quantized fixed codebook vector (v\) 556 by the fixed codebook gain vector (g\) 554. 

If the type classification of the frame is Type One, a multi-dimensional vector quantizer provides the 
adaptive codebook gain vector (g\) 552 to the multiplier 530. Where the number of dimensions in the multi- 
35 dimensional vector quantizer is dependent on the number of subframes. In one embodiment, the multi- 

dimensional vector quantizer may be the 3D/4D open loop VQ 454. Similarly, a multi-dimensional vector 
quantizer provides the fixed codebook gain vector (g k c ) 554 to the multiplier 532. The adaptive codebook gain 
vector (g\) 552 and the fixed codebook gain vector (g k c ) 554 are provided by the gain component 147 and 179 
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and arc the same as the quantized pitch gain (g\) 496 and the quantized fixed codebook gain (g k c ) 513, 
respectively. 


In frames classified as Type Zero or Type One, the output from the first multiplier 530 is received'by the 
adder 534 and is added to the output from the second multiplier 532. The output from the adder 534 is the short- 
term excitation. The short-term excitation is provided to the synthesis filter module 98 on the short-term 
excitation line 128. 

5.2 LPC Reconstruction 

The generation of the short-term (LPC) prediction coefficients in the decoders 90 and 92 is similar to the 
processing in the encoding system 12. The LSF decoding module 536 reconstructs the quantized LSFs from the 
LSF component 140 and 172. The LSF decoding module 536 uses the same LSF prediction error quantization 
tabic and LSF predictor coefficients tables used by the encoding system 12. For the half-rate codec 24, the 
predictor switch module 336 selects one of the sets of predictor coefficients, to calculate the predicted LSFs as 
directed by the LSF component 140, 172. Interpolation of the quantized LSFs occurs using the same linear 
interpolation path used in the encoding system 12. For the full-rate codec 22 for frames classified as Type Zero, 
the interpolation module 338, selects the one of the same interpolation paths used in the encoding system 12 as 
directed by the LSF component 140 and 172. The weighting of the quantized LSFs is followed by conversion to 
the quantized LPC coefficients A q (z) 342 within the LSF conversion module 538. The quantized LPC coefficients 
A q (z) 342 arc the short-term prediction coefficients that are supplied to the synthesis filter 98 on the short-term 
prediction coefficients line 130. 

5.3 Synthesis Filter 

The quantized LPC coefficients A^(z) 342 may be used by the synthesis filter 98 to filter the short-term 
prediction coefficients. The synthesis filter 98 may be a short-term inverse prediction filter that generates 
synthesized speech prior to post-processing. The synthesized speech may then be passed through the post- 
processing module 100. The short-term prediction coefficients may also be provided to the post-processing 
module 100. 

5.4 Post-Processing 

The post-processing module 100 processes the synthesized speech based on the rate selection and the 
short-term prediction coefficients. The short-term post filter module 540 may be first to process the synthesized 
speech. Filtering parameters within the short-term post filter module 540 may be adapted according to the rate 
selection and the long-term spectral characteristic determined by the characterization module 328 as previously 
discussed with reference to FIG. 9. The short-term post filter may be described by: 



(Equation 27) 
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where in an example embodiment, y X n =0.75 - r,.„-, +0.25- r 0 and y 2 = 0.75 , and r 0 is determined based on the 
rate selection and the long-term spectral characteristic. Processing continues in the long term filter module 542. 

The long term filter module 542 preforms a fine tuning search for the pitch period in the synthesized 
speech. In one embodiment, the fine tuning search is performed using pitch correlation and rate-dependent gain 

5 controlled harmonic filtering. The harmonic filtering is disabled for the quarter-rate codec 26 and the eighth-rate 

codec 28. The tilt compensation filter module 544, in one embodiment is a first-order finite impulse response 
(FIR) filter. The FIR filter may be tuned according to the spectral tilt of the perceptual weighting filter module 
314 previously discussed with reference to FIG. 9. The filter may also be tuned according to the long-term 
spectral characteristic determined by the characterization module 328 also discussed with reference to FIG. 9. 

j0 The post filtering may be concluded with an adaptive gain control module 546. The adaptive gain 

control module 546 brings the energy level of the synthesized speech that has been processed within the post- 
processing module 100 to the level of the synthesized speech prior to the post-processing. Level smoothing and 
adaptations may also be performed within the adaptive gain control module 546. The result of the processing by 
the post-processing module 100 is the post-processed synthesized speech 20. 

15 In one embodiment of the decoding system 16, frames received by the decoding system 16 that have 

been erased due to, for example, loss of the signal during radio transmission, are identified by the decoding 
system 16. The decoding system 16 can subsequently perform a frame erasure concealment operation. The 
operation involves interpolating speech parameters for the erased frame from the previous frame. The 
extrapolated speech parameters may be used to synthesize the erased frame. In addition, parameter smoothing 

20 may be performed to ensure continuous speech for the frames that follow the erased frame. In another 

embodiment, the decoding system 16 also includes bad rate determination capabilities. Identification of a bad rate 
selection for a frame that is received by the decoding system 16 is accomplished by identifying illegal sequences 
of bits in the bitstream and declaring that the particular frame is erased. 

The previously discussed embodiments of the speech compression system 10 perform variable rate 

25 speech compression using the full-rate codec 22, the half-rate codec 24, the quarter-rate codec 26, and the eighth- 

rate codec 28. The codecs 22, 24, 26 and 28 operate with different bit allocations and bit rates using different 
encoding approaches to encode frames of the speech signal 18. The encoding approach of the full and half-rate 
codecs 22 and 24 have different perceptual matching, different waveform matching and different bit allocations 
depending on the type classification of a frame. The quarter and eighth-rate codecs 26 and 28 encode frames 

30 using only parametric perceptual representations. A Mode signal identifies a desired average bit rate for the 

speech compression system 10. The speech compression system 10 selectively activates the codecs 22, 24, 26 and 
28 to balance the desired average bit rate with optimization of the perceptual quality of the post-processed 
synthesized speech 20. 

While various embodiments of the invention have been described, it will be apparent to those of ordinary 
35 skill in the art that many more embodiments and implementations are possible that are within the scope of this 

invention. Accordingly, the invention is not to be restricted except in light of the attached claims and their 
equivalents. 
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/*===================================== 

/♦ Conexant System Inc. */ 
5 /* 43 1 1 Jamboree Road *' 
/* Newport Beach, CA 92660 */ 
/♦ 


_* 


7 


/* Copyrighl(C) 2000 Conexant System Inc. */ 

10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

/*=-====================== == ======= =: = == == ============= " === 

15 /* FILE: const.h */ 

/ * ============s========:====== : ===== = = :====================== 


/*= 

20 /*= 


Coding Parameters : 


#define 
#define 

25 

#define 
^define 
#definc 
#define 
30 #define 
#define 
#define 
Adeline 
tfdefine 

35 

#define 
^define 
tfdefine 
#define 
40 #define 


sqr(a) «a)*(a)) 

cube(a) «a)*(a)*(a» 

MAX(a,b) ((a)>(b) ? (a) : (b)) 

ABS(a) (((a)<0) ? -<a) : (a)) 

MIN(a,b) (((a)<(b)) ? (a) : (b)) 

SIGN(a) «(a)>=0)?(l):(-l)) 

ROUND(a) (INT64)((a)>0 ? ((a)-K).5) : <(a)-0.5)) 

AVG(a,b,c) aNT16)(((a)+(b)+(c))/(3.0)+0.5) 

MAXFLT 1.0e30 

MINFLT 1.0e-30 

EPSI 0.0000000000000000 1 

L_PREV 60 /* length of previous speech data */ 

L_FRM 160 /* length of coding frame */ 

L_SF 80 /* maximun lengtli of subframe */ 

L_SF3 54 /* length of subframe */ 

L_SF4 40 /* length of subframe */ 
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#definc 

L_SF0 

53 

/* length of subframe */ 

^define 

N_SF_MAX 

4 

/* maximun number of subframcs */ 

^define 

N_SF4 

4 

/* number of subframcs 8.5 k*/ 

#dcfinc 

N_SF3 

3 

/* number of subframes 4.0 k mode 1*/ 

5 #definc 

N_SF2 

2 

/* number of subframes 4.0 k mode 0V 

#define 

NP 


10 

#define 

NP 


10 

#definc 

LLPC 

240 

/* length of LPC window */ 

10 #define 

L_LPCLHD 

80 

/* length of LPC lookahead */ 


/*=== 


Coding Parameters : 

1 5 /*================«======-================== 


tfdcfinc FS 


8000.0 /* Sampling frequency */ 


20 #define RATE85K 8 

tfdefine RATE4 0K 4 

^define RATE2 0K 2 

^define RATE0 8K 0 


/* 8.5 kbps */ 
/* 4.0 kbps */ 
/* 2.0 kbps */ 
/* 0.8 kbps */ 


25 /*- 
/* 
/*- 


Bit-rate including overhead for the four rates 


-*/ 
*/ 


^define RATE_1_1 9600 

30 ^define RATE_1_2 4800 

#definc RATE 1_4 2400 

tfdefmcRATE 18 1200 


/* 8.5 kbit/s source coding */ 
/* 4.0 kbil/s source coding */ 
/* 2.0 kbit/s source coding */ 
/* 0.8 kbit/s source coding */ 


35 #define NUM_SINC_WIN 21 /* Number of quantized Sine interpolation */ 

/* windows */ 


=*/ 


40 /*=========================== SPEECH ENAHNCEMENT ======="===========*/ 
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===«==*/ 


tfdcfineENH DELAY 24 


5 /*= 
/*= 


PRE AND POST PROCESSING 


=*/ 


#dcfinc PPR_FLT_ORDER 2 

10 #define LP_FLT„ORDER 1 

#define SE_MEM_SIZE 4 

#define SE_HIS_SLZE 5 
^define SE_RAMP_SIZE 40 

15 #define DELTA THRLD 48.0 


/*= 
/+= 


DEFINITIONS FOR CLASSIFICATION 


=*/ 


20 

#definc MEMCLASS 140 
#define N_Lp 3 

25 #defincMAX_N_SF8 
#define MAX_L_SF 20 

#definc L_LPC_SF 40 /* SHOULD NOT BE CHANGED - HARDWIRED AT PLACES */ 
#define OVERLAP 20 
30 #defineLPC_WINl (L_LPC_SF+2* OVERLAP) 

^define CLA_MEM_SIZE 4 
#define SLOPE MAX_SIZE 5 


35 /*= 
/*= 


DEFINITIONS FOR PERCEPTUAL WEIGHTING = 


#define GAMMA 1 


0.9 


40 
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7*=====:============:=======^= FIXED COEDEBOOK SEARCH =======================*/ 


5 tfdefineMAXPN * H 

#dcfinc MAX FB PULSE NUM 5 
— — — 

#define SEG_NUM_M1 8 
#define SEG NUM MO 16 


10 #defineL HF 


20 


#define L_CORR 
#define L WSP 


80 

(L_CORR+L_SF+10) 


15 tfdefmePAST PGAIN MAX2 0.8 


/*== 
/*== 
/*== 


20 


tfdefmeN GAUSS 13b 45 


Gaussian codebook sizes - 


/* Entries 1. basis vector: 13 bit codebook */ 


#define NUM PRESELECT 2 


25 /*= 
/*= 


^DEFINITIONS FOR LTP : 


=====*/ 
========*/ 


^define SINC_LIMIT_E 10 
30 #define LEN_S1NC_E (2*SINC_LIMrr_E+l) 

^define LEN_S INC_T AB_E (NUM_S1NC_WIN*LEN_SINC_E) 


/*== 
35 /*== 


DEFINITIONS FOR PITCH PRE-PROCESSING 


#define L PP 


(L_PRE V+L_FRM+L__LPCLHD) /* length of sig_ppr = 260 */ 


#define SINC_LIMITJPP 10 
40 #defme LEN_SINC_PP (2*SINCJJMTT_PP+1) 


: *WO 01CE40£A1_I_> 


WO 01/22402 


PCT/US00/25182 


07 

^define LEN_SINC_TAB_PP (NUM - SINC__WTN*LEN_SINC_PP) 

#define HALFP 2 
//define MAX_PULS_NUM 5 
5 tfdefine MAX DIF TAB 16 


^define MAX L TG 180 


/* Maximum length for LT preprocessing */ 
/* Note: it must to be >= L FRM and > L SF */ 


10 #dcfineMAX DELAY 20 


DEFINITIONS FOR OPEN LOOP PITCH 


=*/ 


15 

^define NUM_MAX__SRCH 4 

^define SINC_LIMIT 4 

#define LEN SINC (2*SINC_LIMIT+1) 
#dcfine LEN_SINC_TAB (NUM_SINC_WIN*LEN_SINC) 

20 ^define DELTF (1 .0/((doub1e)NUM_SINC_WIN-l .0)) /* Precision of the */ 

interpolation */ 


#dcfine MIN_LAG 
25 #defineMAX LAG 


17 /* minimum pitch lag */ 

(L_FRM+SINC_LIMIT_E+2) /* Maximum pitch lag '*/ 

/* Note: must to bc> 1 70 and */ 
/* >HI LAG+11 */ 


^define L OLPIT 


30 


(L_FRM+L_LPCLHD+MAX_LAG) /* Open loop pitch window */ 


#definc HI_LAG 120 
^define HI_LAG2 148 
#define MIN_LAG2 (HI_LAG2-127) 


/* maximum pilch lag */ 
/* maximum pitch lag */ 
/* minimum pitch lag */ 


35 #dcfincPIT F MEM 


/*==================== DEFINITIONS FOR CLOSED LOOP PITCH = 

/ * ==========================S==============I===============:==== 


40 
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#define LEN_PITCH_TAB_5BIT 17 
#dcfine LEN_P ITCH T AB_7B IT 129 
tfdefincLEN P1TCHTAB_8B1T 257 


68 


5 ^define MAXJ>IT_IDX_5b 
#define MAX_PIT_IDX_7b 
#dcfine MAX_PIT_lDX_8b 


16 
127 


255 


#define DELT F2 


( 1 ,0/(FLOAT64)DELT_F) 


10 


15 tfdefine PAST_PGAIN_MIN 


#define PAST_PGAIN_MAX 


20 


DEFINITIONS FOR GAIN MA-VQ ===== 


0.2 


1.0 


/* minimum value of the past quantized */ 
/* pitch gain for the adaptive prefilter */ 
/* in the algebraic codebok search */ 

7* maximum value of the past quantized */ 
/* pitch gain for the adaptive prefilter */ 
/+ in the algebraic codebok search */ 


^define MSMAXJ_64 
25 #defineMSMAX_l_32 
#define MSMAX_2_64 
#define MSMAX_2_128 
#defme MSMAX_3_256 
^define MSMAX_4_1024 

30 


64 

32 

64 

128 

256 


1024 


#define GP_BUF_SIZE 8 
^define BETA_BUF_SIZE 4 


35 


#define GVQ_VEC_SIZE_2D 2 

#defme GVQ_VEC_S12E_3D 3 
#define TAB_SIZE_GVQ_3D 1 6 


40 
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#defme GVQ_VEC_SIZE_4D 4 
#dcfine TAB_SLZE_GVQ_4D 64 

#define CORR_SlZE 6 

/*==============:=================== SMOOTHING 


10 #define DSP_BUFF_SIZE 
^define SMO_BUFF_SIZE 
#define MAX_GRP_SIZE 
#dcfincHL COUNT MAX 


15 


15 


15 #define ADAPT THRESHOLDS 1 


^define N_MODE_SUB JSTART -4 
^define UPDATEMAX 1 5 

^define CONSEC MAX 31 


20 


/*- 

/* 

/*- 


Smooth LSF 


25 ^define BETA_FRM 0.90 

#define BETA_SUB 0.70 

#define dSPl 0.0015 

^define dSP2 0.0025 

tfdefine dSPJntl 0.0024 

30 Adeline Rllim 0.50 


/*« 
/*== 
/*== 


==*/ 


35 

#define MAX_CAND_LSFQ 
#defme N_LSFVQCDBK 5 
#dcfinc MAXLNp 
tfdefine MAXLTT_08k 3 
40 #dcfinc MAXLTT 40k 3 


DEFINITIONS FOR LSF MA-VQ ; 


10 /* the maximal number of condidate per stage */ 

/* number of LSF codebooks */ 
10 /* maximal order of LPC */ 
/* Uie maximal number of codebooks V 
/* the maximal number of codebooks */ 
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^define MAXLTT_85k 


70 

/* the maximal number of codebooks */ 


tfdefine LPJ)8k 1 
#dcfine LPL_08k 1 
5 #defineLMSlJ)8k 16 
#definc LMS2^08k 16 
#define LMS3_08k 8 
#define LMSMAX_08k 16 
^define LQMA_08k 4 

10 

#define LP_40k 2 
#dcfinc LPL_40k 2 
#defineLMSl_40k 128 
#dcfine LMS2_40k 128 
15 ^define LMS3_40k 64 
#define LMSMAX_40k 128 
#define LQMA_40k 4 


/* number of switch predictors */ 
/* the number of delayed predictors */ 
/* the number of entries for the 1 code */ 
/* the number of entries for the 2 code */ 
/* the number of entries for the 3 code */ 


/* number of switch predictors */ 
/* the number of delayed predictors */ 
/* the number of entries for the 1 code */ 
/* the number of entries for the 2 code */ 
/* the number of entries for the 3 code */ 


#define LP_85k 1 
20 #dcfine LPL_85k 1 
#defineLMSl_85k 128 
#definc LMS2_85k 64 
tfdefinc LMS3_85k 64 
#defineLMS4_85k 64 
25 #define LMSMAX_85k 128 
#dcfine LQMA_85k 2 


/* number of switch predictors */ 
/* the number of delayed predictors */ 
/* the number of entries for the 1 code */ 
/* the number of entries for the 2 code */ 
/* the number of entries for the 3 code */ 
/* the number of entries for the 4 code */ 


#definc LTT_08k 3 /* the number of stages for T */ 

30 #define LTT_40k 3 /* the number of stages for T */ 

^define LTT_85k 4 /* the number of stages for T */ 


/♦================================= 

/*=========================== DEFINITIONS FOR VAD === 

35 /*==-=============~========================= ===== ^ == ^ = 

#definc VOICE I 
#define NOISE 0 

40 #define INTT_FRAME 32 
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#dcfine VAD_LPC__ORDER 4 

5 tfdefine LTP_BUFF_SIZE 5 

#definc FLAG_VAD_MEM_SIZE 2 
tfdefine VAD_MEM_SIZE 3 
#define VAD_MIN_MEM_SIZE 8 


71 


10 

tfdefine MAXENERGY 1 .0e30 

#define MIN_LAG 17 /* minimum pitch lag */ 

15 /*=======================^ 

DEFINITIONS FOR BAD FRAME HANDLING ===============*/ 

#definc BFH_OH 1 /* LSF: bad frame handling overhang */ 

20 #define ERNG_MEM_SIZE 3 
Adeline MAX_BFI_COUNT 5 

,* === _ == _ === _™ 

/*==================== ENCODER / DECODER INDEX STRUCTURE ================*/ 

25 

^define PACK WDSNUM 12 /* the number of words to pack the SMV bits 
(1 for rate/erasure control, 11*16=171 for data */ 

typedef struct { 
30 INT16idx_lsiTN_LSFVQCDBK+l]; 

INT16 idx_SVS_deci; 
INT16 idxJtp__dcci[N_SF_MAX]; 
INT16 idx_pi(ch[N - SF_MAX]; 
INT16 idx_Gp_VQ; 
35 INT16 idx_Gc_VQ; 

INT 16 idx_gainVQfN__SF_MAX]; 
INT16 idx_subcpcb[N_SF_MAX][5]; 
1NT16 idx_cpcbsign[N_SF_MAX][20]; 
INT 16 idx_cpcb[N_SF_MAX][20J; 
40 INT16 idx_ccntcr[N_SF_MAX]; 
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TNT 16 fix rate; 


10 


INT 16 idxjpcjnt; 
INT16 idx_vad; 

INT16 idx_pitchgainQ[N_SF_MAXl; 
INT 16 ltp_mode; 
INT 16 idx__pit_frac[N_SF_MAX]; 
INT16 idx_piMnt[N_SF_MAX], 
INT 16 idx_fcbpit_fracrN_SF_MAX][2]; 
INT16 idx_fcbpit_int[N_SF_MAX][21; 
} PARAMETER; 


/*= 
15 /*- 


==«==*/ 


■END- 


-*/ 
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=*/ 


/ * :====r===:======:==:==== == = 

/* Conexant System Inc. 
5 /♦ 43 1 1 Jamboree Road 
/* Newport Beach, CA 92660 
/♦ 


*/ 


/* Copyright(C) 2000 Conexant System Inc. 
/* 


*/ 
-*/ 


*/ 


10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 


15 /* FILE: decoder.c 
/+============ 


*/ 


/*— 
/*— 
20 /*— 


INCLUDE 


-*/ 


^include "typcdef.h" 
#includc "inain.h" 
25 #includc "const, h" 
^include "mcutil.ir 
^include "gputil.h" 

^include M ext_var.h" 

30 

#include "libjpc.h" 
include "Iib_qlsf.h" 
^include "lib jgeq.h" 
^include "HbJ>it.h" 

35 include "lib_cla.h" 
#include "Iib_pit.h M 
^include "libjtp.h" 
#include "iib_ppr.h" 
#includc "libjcs.h" 

40 include "lib _gcb.h" 
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#include "libjlth" 


#ifdcfDlAG_SMV 


^include "lib dia.h M 


#endif 


10 /*- 
/♦- 
/*- 


FUNCTIONS 


-*/ 


15 /* FUNCTION : dec_smv_frame 0. 
/* 


/* PURPOSE : Perfonns processing on one frame. 

/* 

/* ALGORITHM : 
20 /* 


*/ 


-*/ 


*/ 


-*/ 


--*/ 


/* INPUT ARGUMENTS : * ! 
/* (INT16 []) serial: intput frame bitstream. */ 

/* 


*/ 


/* OUTPUT ARGUMENTS : m/ 
25 /* _ (FLOAT64 []) sigoul: output decoded frame. */ 

/* : */ 

/* INPUT/OUTPUT ARGUMENTS : *> 
f* _ None. 

/* 

30 /* RETURN ARGUMENTS : 
/* _ None. 


*/ 


*/ 


*/ 


void dec_smv Jrame (INT 16 PackedWords [], FLOAT64 *sigout, INT16 switchjlag) 
35 { 


*/ 


INT 16 Lsf,i_s, l_sf, ij, n_sf; 
FLOAT64 x, y; 


40 
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/* . */ 

/* Parameters for bitstrcam processing */ 
/* */ 

INT16 parm[3J; 
INT16 shft_count; 

INT16 PackWdsPtr[2J; 
PARAMETER channel; 

/* */ 

/* Gain MA-VQ */ 

/* */ 


15 FLOAT64 ga i nQ [N_S F_M AX] ; 

/* LSF quantisation */ 

/* */ 

20 

INT16exp_flg; 

FLOAT64 lsfq_ne\v_dec[NP], lpcgain_q; 

/* */ 

25 /* Bad Frame Conccalcmcnt */ 
/* */ 


INT16 bfi; 
INT 16 update; 

FLOAT64 enrg; 
FLOAT64 fec_refirNPl; 
FLOAT64 tempjagf; 
FLOAT64 ET_buffN_SF_MAX] ; 


30 


35 


FLOAT64 ForPitch_dec[L_FRM]; 
FLOAT64 ForPitch_decTEMP[L_FRM], 


40 
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/ * =CT ======================= = ==== ========= ' 

/* nnnnnDDgaaQgnnnnDanacnjnannn ^ 

/* annnnnannnnnnnnnan^ annnnnnnnnc^^ */ 

/♦ annnnnannnnnnnnnnnaannn^ DECOUtR 

i it II ii ji n inannnnnnnnp"""nnnn r " » m */ 

,. n ^ t _ Tr ^__^^ v " nwrinnnnna n */ 


/ 


= */ 


==*/ 


10 /* 


ctnnnaaa BFI MANAGEMENT annannnnnannnnnannaa 


20 


30 


bfi = 0; 
15 update = 0; 


/* 


PackWdsPtrlO] = 16; 
PackWdsPtr[l] = 1; 

switch (PackcdWordslO]) 

25 t 

case 0: nrerrorfBlank detected..."); 

break; 

case 1: channel. fix_rate = RATE0 SK; 

if (bfli_oh>0) 
{ 

Nbfi = 0; 

bfh_oh~; 

} 

35 break; 

case 2: channel. fix_ratc ■= RATE2_0K; 

if (bfh_oh > 0) 

{ 

40 N - M -°- 


-*/ 


/* lnitalizing bit un-packing parameters */ 

*/ 
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bfh_oh»; 
} 

break; 

case 3: channel. fix_ratc = RATE4 0K; 

if (bfh_oh > 0) 
{ 

N_bfi = 0; 

bfh_oh»; 

} 

break; 

case 4: channel, fixrate = RATE8_5K; 

if (bfli_oh> 0) 

{ 

N_bfl = 0; 
bfli oh— ; 

} 

break; 
case 14: bfi = 1; 


break; 

case 15: nrenror("Full Rate Portable detected... 7\n"); 
break; 

default: nrerroiflHegal control word\n"); 
break; 

} 


if(bfi == I) 

nbfl_count = 0; 
else if (nbfi_count < 5) 

nbfi_count-M-; 

if (nbfi_count > 3) 

bfi_caution = 0; 


N_bfit+; 

bfli_oh = BFH_OH+l; 
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if (bfi== 1) 
{ 

frm_erasure++; 
5 channel.fix_rate - fix_rate_mem; 

channel jdx_SVS_deci = SVS_deci_mem; 

} 


/* Decode bit-stream if is a good frame 


if(bfi== 0) 
{ 

BTT_bits_to_cdbk__indcx(PackedWords, PackWdsPtr, &channel); 


if (channcLflwatc = RATE20K) 
{ 

parm[0] = channel.idxJsflO]; 
20 parm[l] = channel. idx_lsf[l]; 

parm[2] = channel. idx_lpc__int; 
seed_dec = 0x00000000; 
shft_count =15; 
for(j = 0;j<3;j++) 

25 { 

shil_count -= bitnoOLj]; 

secd_dec = seed^dec A (((long) parm|j] ) « shft_count); 
} 


30 ) 
else 

{ 

if (channel.fix_rate == RATE08K) 
{ 

3^ parmlO] = channel. idx_lsf[0]; 

parm[l] = channel.idxJsfUl; 

pann[2] = channel. idx_lsf[2]; 

seed_dec - 0x00000000; 

shft_. count = 11; 
40 for(j = 0;j<3;j++) 
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{ 

slifi_count -= bitnolUJ; 

seed_dcc = seed_dec A (((long) parni[j] ) « shfl_count); 
} 

5 

} 

> 

} 

else 


10 { 

/* */ 

/* Save adaptive codebook temporaly */ 
/* */ 

15 cpy__dvector(ext_dec, ext__dec_mem, 0, MAX_LAG-1); 

} 

/* nnnnnnnnnnnonnon LSF INVERSE QUANTIZATION AND INTERPOLATION nnnnnnnnnnoonnn*/ 

/* */ 

/* Get the quantized lsf */ 
25 /* */ 

LSF_Q_lsf_dccodc (bfi_caution, &exp_flg, lsfq_ne\v_dec, channel. idxjsf, 
bfi, nbfi_count, clianncl.fix_rate); 

30 /* */ 

/* Interpolate the QUANTIZED lsf and calculate corresponding */ 

/* the LPC coefficients */ 

/* V 


35 

if (channel.fix_rate == RATE40K) 
{ 

if (channel. idx_SVS_deci ™ 1) 

LPC_interpolate_lpc_4to3 (lsfq_new_dec, (FLOAT64 *)NULL, 
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lsfq__old_dcc, pdcfq_dec, 


else 

LPCJntcrpolateJpc_4to2 (lsfq_new_dec, (FLOAT64 *)NULL, 

lsfq_old_dec, pdcfq_dec, 


} 

else 

10 { 

if ((channel.fix_rate == RATE20K) || 

((channel.fix_rate = RATE8_5K) && 
(channelJdx_SVS_deci == 0))) 

#ifdcf ALGO_BUG_FIX 
l5 if(bfi==0) 


20 


25 

#else 


#cndif 

30 


{ 

LPC_adplive_intcrp_dec(lsfq_new_dec, 
lsfq_old_dec, pdcfq_dec, 

channel .idx_lpc_int); 

} 

else 

LPC_adplive_interp_dec(lsfq_ncw_dec, 
lsfq_old_dcc, pdcfq_dec, 0); 


LPC_adptive_interp_dcc(lsfq_new_dec, lsfq_old_dec, 
pdcfq_dec, channel. idx_lpc_int); 


else 


LPC_adptivc_inierp_dec(lsfq_new_dec, lsfq_old_dec, 

pdcfq_dec, 0); 


35 


40 / 


LPC _pred2refl (pdcfq_dec[0], fec_rcfl, NP); 

,* */ 

* Determination of the flatness of the input speech */ 
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/* •/ 


CLAJdcnlifyJnput (channel. idx_SVS_dcci, pdcfq_declOJ, lsfq_new_dcc[0], 

pgain_past_dec, &lpcgain_q, channel. fix_ratc, &FlatSp_Flag); 


5 


-*/ 


/* Interpolation of Pitch Lag */ 
/* */ 

10 if (channcl.idx_S VS_deci == 1 ) 

{ 

PIT_pitchjrack_recons (fix_ra(c_mcm ( bfi, past_bfi, ppast_bfi, 

lag_f, SVS_deci_mem, qua_gainQ, channel, 
&pitchf, pitch Jf_mem, 

15 ForPitch_decTEMP); 

PIT_Pitchlnterpolat (pitchf, pitch Jjnem, ForPitch_dec, 0); 
} 

20 if ((channel. idx_SVS_deci == 0) && (channel. fixratc == RATE8 5K)) 

tempjagf = PitLagTab8b [channel, idx _pitch[0]]; 
else if ((channcl.idx_SVS_dcci == 0) && (channcl.fix_ratc == RATE4 0K)) 
tempjagf = PitLagTab7b[channclidx_pitch[0]]; 

25 LTP_adap_cbk_corrcction (fix_rate_mem, bfi, past J>fi, ppastj>fi, 

qua^gainQ, gainQ, SVS_dect_mcm, tempjagf, 
&update, pitch J_mem, lag, lag_f, 
ForPitchdecTEMP, ext_dec_mem, ext_dec, 
unfcod_dcc, channel); 


30 


/* 


/ 


/* Gaussian excitation for very low bit rates */ 
/• */ 

35 if ((channel .fix_ratc == RATE2 0K) || (channel.fix_ratc == RATE0_8K)) 

{ 

cpy_dvcctor(gpJ>uf+4, gp_buf, 0, 4-1); 
ini_dvector(gp_buf+4, 0, 4-1, 0.0); 

40 GCB_gauss_excit_dcc (&seed_dec, channel. fix j-ate, qua_unfcod[ 1 ]); 
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if (channel.fix_rate == RATE2_0K) 
{ 

/* */ 

/* Decode the fixed codebook gain for sub-frame */ 
/+ # 1 and # 3 coded with 6 + 6 bits */ 


if ((fix_ratc_mem == RATE8_5K) || (fix_rate_mcm ==RATE0_8K)) 

GEQ - update_mem_4d_lo_2dO; 
else if ((fix_raie_mcm == RATE4 OK) && (SVS_deci_mem != 0)) 

GEQ_updatc_mem_3d_to_2d(); 

GEQ_dec_gains_l_6 (0, channel.idx _gainVQ[0], qua_gainQ, 

qua_unfcod[l], N_bfi); 

GEQ_dec_gains_l J5 (2, channel. idx_gainVQ[ 1J, qua_gainQ, 

qua_unfcod[ 11, N_bfi); 


qua_gainQll][l] = qua_gainQ[l][0]; 
qua_gainQ[I)l3] = qua_gainQ[l]l2J; 

> 

else 

{ 

/* */ 

/* Decode the fixed codebook gain for sub-frame */ 
/+ #1 coded with 6 bits */ 


if ((fix_rate_mem == RATE4_0K) || (fix_rate_mcm == RATE2 0K)) 
{ 

if (SVS_deci_mcm — 0) 

GEQ_update_mem_2d_to_4d0; 

else 

GEQ_update_mem_3d_to_4dO; 

} 

GEQ_dec_gains_l_5 (channel.idx _gainVQ[0], qua_gainQ, 

qua_unfcod[l], NJbfi); 

for (i = 0; i < N_SF4; i++) 
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qua_gainQ[l](i] = qua_gainQ| 1][0J; 

} 

} 

5 

/* nnn n r« it » » ip rinr if w n sir Jonnnnngn SUB-FRAME PROCESSING DnCKKimnUUUDDDC^^ */ 

10 

/* */ 

/* VARIABLE DESCRIPTION V 

/* */ 

/* " */ 

15 /* pdcfq_dec - quantized prediction coefficients */ 

/* unfcod_dec(0] - adaptive codebook (ACB) vector */ 

f* unfcod_dec[l] - algebraic codebook (CDBK) vector */ 

/* gainQfO] - ACB gain */ 

/* gainQfll - CDBK gain */ 

20 /* */ 

/* ext_dec - adaptive codebook */ 

/* lag[i_sf] - integral lag of the current subframe */ 

/* lagfTi_sfl - fractional lag of the current subframe */ 

/* */ 
25 /* */ 

/* */ 

/* Set number of subframes */ 

30 /* : */ 

if (channel.fix_ratc != RATE4_0K) 
n_sf=N_SF4; 

else 

35 { 

if (channcl.idx_SVS_deci == I) 
n_sf=N_SF3; 

else 

n_sf-N_SF2; 

40 } 
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/♦annnnnno First decoding loop for the decoder classification purpose 

*/ 


3*/ 


10 


15 


20 


25 


30 


35 


i_s = 0; 

for (i_sf = 0; i_sf < n_sf; i_sf++) 
{ 


/* 

/* Set length of subframc */ 

/* 

if (channel.fix_rate != RATE4_0K) 
l_sf=L_SF4; 

else 

{ 

if(channel.idx_SVS_deci = 1) 
{ 

if(i_sf-= N_SF3-1) 
l_sf=L_SF3; 

else 

l^sf =L_SF0; 

} 

else 

l_sf = L_SF; 

} 


-*/ 


*/ 


/* 

/* Adaptive Codebook Contribution 

/* 


--*/ 
— */ 


if ((channel fix__ratc == RATE8_5K) || 

(channel. fix_rate == RATE4_0K)) 

{ 

if (channel.idx_SVS_dcci == 1) 


====*/ 


40 


{ 

LTP J>P>tch_cxi_decod (ForPitch_dcc+i_s, ext.dec, 

isf, unfcod_dec[0], lag, lag J, LsO; 
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cpy_dvcctor (unfcod_dec[0], qua_unfcod[0]+i_s, 0, 

Lsf-1); 

lag[i_sfl = (INT16)(ForPitch_dcclLs^2+i_s]+0.5); 
} 


else 


{ 

if (channel. fix ratc — RATE8_5K) 
10 LTP_8_5k_pitch_decod (bfi, exl__dec, i_sf, 

unfcod_dec[0], lag, lag_f, l_sf, 
channel . idx_p i ten) ; 

else 

LTP_7b_pitch_decod (bfi, ext_dec, i_sf, 
15 unfcod_dec[0], lag, lag_f, l_sf, 

channel. idx__p itch); 

cpy_dvcctor(unfcod_dec[0], qua_unfcodlO]+i_s, 

0, l_sf-l); 

20 } 

} 

else 

{ 

gainQ[0] = 0.0; 

25 qua_gainQ[0][i_sf] = 0.0; 

ini_dvcctor(unfcod_declO], 0, l_sf-l, 0.0); 
ini_dvector(qua_unfcod[01+i_s, 0, l_sf-l, 0.0); 

} 

30 

/* ♦/ 

/* Fixed Codcbook Contribution */ 
/* */ 

35 switch (channel.fix_rate) 

{ 

/+ */ 


/* RATE 8.5 kps */ 
,* V 


40 
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case RATE8 5K: 

if (channel.idx_SVS_dcci ™ 1) 
{ 

GECLDec_PitchGain_4D (N_bfi, i_sf, channcl.idx_Gp_VQ, 

gainQ); 

if (bfi == 0) 

FCS_cdbk_decod_30b_sub40 (unfcod_dec[l], 

l_sf, i_sf, lag[i_sf], gainQ[0], &channel); 

} 


else 


{ 

if(bfi== 0) 

FCS_cdbk_decod_22b_sub40(unfcod_dec[ll, 

l_sf, i__sf, lag[i_sf], pgain_past_dec, 
&channel); 

} 


break; 


*/ 


/* RATE 4.0 kps */ 


/*- 


25 case RATE4_0K: 


if (channcl.idx_SVS_deci = 1) 
{ 

GEQ__Dcc_PitchGain_3D (N_bfi, i_sf, channel.idx_Gp_VQ, 

gainQ); 

if(bfi==0) 

FCS_cdbk_dccod_ 1 3b_sub54(ext_dec, 

pdcfq_dec[i_sf], unfcod_dcc[l], l__sf, 
i_sf, lagti.sf], gainQ[0], 

fix_rate_mem, lpcgainq, 
&channel); 


else 


40 
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if(bfi== 0) 

FCS_cdbk_decod_l 5b_sub80(ex\_dec, 

pdcfq_dec[i_sfl, unfcod_dcc[l], l_sf, 

i_sf, lag[i_sfl, pgain__past_dec, 

fix_ratc_mem, lpcgain_q, 
&channel); 

} 


10 


/*- 

/* 

/*- 


break; 


RATE 2.0 kps 


-*/ 


*/ 


15 


20 


case RATE2_0K: 

cpy_d vector (qua_unfcod[l]+i_s, unfcod_dec[l], 0, 

gainQ[l]=qua _gainQ[l][i_sf]; 
break; 


/* 

/*- 


RATE 0.8 kps 


--*/ 


-*/ 


Lsf-l); 


25 


case RATE0_8K: 
break; 


30 


default: nrerror ("Invalid rale !!"); 
break; 

} 


35 


if ((bfi == 1) && ((channel.fix_rate ~ RATE85K) || 

(channel.fix_rate == RATE4_0K))) 

{ 

for (i = 0; i < l_sf; i++) 

unfcod_dec[l][i] = GCB_gauss_noisc(&seed_bfi_exc); 

} 


40 
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/* Adaptive and Fixed Codebook Gains 


if ((channel.fix_rate == RATE85K) || 

(channel. fix_ratc RATE4_0K)) 

{ 

/* RATE 8.5 kbps and 4.0 kbps 


cpy_dveclor (unfcod_decll], qua_unfcod[l]+i_s, 0, 

Lsf-1); 


-*/ 

*/ 


x 5 if (channcUdx_S VS_deci = 0) 

{ 


20 


25 


30 


35 


40 


if (channeLfixrale == RATE85K) 
{ 

if(((nx_raie_mem = RATE4 0K) || 

(fix_rate_mem == RATE2_0K)) && 
(i_sf== 0)) 

{ 

if (S VS_deci_mem == 0) 

GEQ__updatc_mem_2d_to_4dO; 

else 

GEQ_update_mein_3d_to_4dO; 

} 

GEQ_dcc_ j gains_2_7 (channel.fix__raic,1agl0] , 

channel.idx_gainVQ[i_sf], gainQ, 

N bfi, unfcod_dec[l], i_sf,l_sf); 


if ((fec_refl[0] > 0.0) && (Nbfi > 0)) 
gainQ[0] = 0.4; 

} 
{ 

if (((fix_rate_mem == RATE 8 5 K) || 

(fix_rate_mem =RATE0_8K)) && 
(i_sf== 0)) 


else 
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10 


GEQ_update_mem_3d_to_2d(); 


else 


{ 

GEQ_updaie_niem_4d_to_2dO, 


} 


{ 

if ((fix_rate_mem == RATE4_0K) && 

(SVS_deci_mem != 0) && 
(Lsf— 0)) 
{ 


15 


GEQ_dcc_gains_2_7(channel.fix__rate,lag[0] t 


channel . idx_gai n VQ[ i_sfl , 


unfcod_dec[lh 


20 


l_sf); 


gainQ, N_bfi, 


i sf, 


25 


if ((fec_refl[OJ > 0.0) && (NJbfi > 0)) 
gainQ[0] = 0.4; 

} 


else 


30 


== 0)) 


35 


40 


{ 

if (channel . fix_rate ===== RATE8_5K) 
{ 

if (((fix_rale_mcm == RATE4 0K) || 

(fix_rate_mem == RATE2_0K))&& (i_sf 

{ 

if (SVS_dcci_mem == 0) 

GEQ_updatc_mem_2d_to_4d() ; 

else 

GEQ_update_mem_3d_to_4dO; 

> 

GEQ_dec_gc_4_10 (channeLidx_Gc_VQ, &(gainQ[l]), 
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15 #ifdefPROG_BUGJFIX 
#endif 


20 


25 

else 


30 


35 
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N bfi, unfcod_dec, i_sf) 


} 


{ 

if (((fix_rate_mem == RATE8_5K) || 

(fix^rate.mcm == RATE0_8K)) && (i_sf == 0)) 
GEQ_update_mem_4d_to_3dO; 
else if (SVS_deci_mem = 0) 

GEQ_update_mem_2d_to_3dO; 

GEQ_dec_gc_3_8(channel.idx_Gc_VQ, &(gainQ[l]), 
N_bfi,unfcod_dec, i_sf); 

} 


} 

qua_gainQ[l][Lsf] = gainQ[l]; 


qua_gainQ[0][i_sf] = gainQ[0]; 

pgain_past_dcc = gainQ[0]; 

if (pgain_past_dec < PAST_PGAIN_MIN) 

pgain _past_dec = P AST J>GATN_MIN; 

if (pgain_past_dec > PAST_PGAIN_MAX) 

pgain _past_dcc = PAST_PGAIN_MAX; 

> 


f * */ 

/* RATE 2.0 kbps and 0.8 kbps */ 

*/ 

/* ' 


gainQ[0] = 0.0; 
pgain_past_dcc = 0.0; 
qua_gainQ[0]li_sfl=0.0; 
gainQ[ 1 ]=qua_ J gainQ[ 1 ] I i_sfl; 
} 

*/ 

Build the excitation */ 
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if( cxpjlg == 1 ) 

wad_dvector(qua_unfcodIO]+i_s, gainQ[0], 
5 qua_unfcodll]+i__s, 0.7*gainQ[l], 

cxt_dcc+MAX_LAG, 0, l_sf-l); 

else 

wad_dveclor(qua_unfcod[0]+i_s f gainQfOJ, 
10 qua_unfcodll]+i_s, gainQfl], 

ext_dec+MAX_LAG, 0, 

Lsf-1); 

#ifdef PROG BUG FIX 


15 


#else 

20 


#endif 


30 


GEQ_cncrgy_cxlrapolation (i_s, i_sf, l_sf, gainQ, 

qua_unfcod, bfi, lag, ext_dec, Prev_Beta_Pitch, 

ET_buf, ForPitchdec, channel); 


GEQ_cncrgy_extrapolation (i_s, i_sf, l_sf, gainQ, bfi, lag, 

ext_dec, Prev_Bcta_Pitch, ET_buf, channel); 


25 /* *' 

/* Temporary buffer V 
/* */ 


cpy_dvcctor(e\l_dec+MAX_LAG, sigout+i_s, 0, l_sf-l); 

/♦ */ 

/* Update the adaptive codebook */ 
/* */ 

35 cpy_dvcctor(cxt_dec+i_sf, ext_dec, 0, MAXLAG-l); 

i_s += l_sf; 

40 } 
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if ((channel. fix_ratc = RATE4_0K) && (channel. idx_SVS_deci == 1)) 
{ 

cpy_dvector(gpbuf+4, gp buf, 0, 4-1); 

gp_bufI4] = qua_gainQ[0][0]; 

gp_bufl5] = gp_buf|6] = qua _gainQ[0][l]; 

gp_buf[7] = qua_gainQ[0] [2]; 

} 

else 

{ 

if ((channel. fix_ratc — RATE40K) && 
(channel.idx_SVS_dcci!= 1 )) 
{ 

cpy_dvector(gp_buf+4,gp_buf, 0, 4-1); 

if ((ETbuqO] < 40.0) && (qua_gainQ[0][0] > 0.7)) 
gp_bufI41 = gp_buf[5] = 0.4; 

else 

gp_bufl4] = gp_bufI5] = qua _gainQ[0][0]; 

if ((ET_bufll] < 40.0) && (qua_gainQ[0]f 1] > 0.7)) 
gp_buf[6] = gp_buf[7] = 0.4; 

else 

gp_buf!6] - gp_bufT7] = qua _gainQ[OJ[ 1]; 

} 

else 

{ 

if (channel. fix_rate == RATE8_5K) 
{ 

cpy_dvector(gp_buf+4, gp_buf, 0, 4-1); 
for (i « 0; i < 4; i++) 
{ 

if ((ETbufli] < 40.0) && (qua_gainQ[0][i] > 0.7) 
&& (cliannel.idx_SVS_deci != 1)) 
gp_buffi+4] = 0.4; 

else 

gp_btifU+4J = qua_gainQ[0]fi]; 

} 

} 

} 
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/* */ 

5 /» DnnDnn nannnnnnnnaam3Dm Second decoding loop uuuj^mn n x mu ut^uuuuuuaDuuuu*/ 


i_s = 0; 

10 for (i_sf = 0; i_sf < n_sf; i_sf++) 

{ 

/* 


/* Set the subframe length */ 
/* */ 


15 

if (channel. fix_rate!= RATE4 0K) 
l_sf=L_SF4; 

else 

{ 

20 if (channeUdx_SVS_deci — 1) 

{ 

if (i_sf — N_SF3-1) 
l_sf=L_SF3; 

else 

25 Lsf = L_SF0; 

} 

else 

l_sf=L_SF; 

} 

30 

cpy_dvector(sigoul+i_s, sigsyn_dec+NP, 0, l_sf-l); 


35 /' 


/* Synthesis filter */ 

/* */ 

FLT allsyn (sigsyn_dec+NP, l_sf, pdcfq_dec[i_sf], NP, 
40 sigsyn_dcc+NP t synth_mem_dec); 
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Post processing 


-*/ 


10 


15 


20 


switch (channel.fix^rate) 
{ 

case RATE8 5K: 


else 


if(FlaiSp_Flag == 0) 
{ 

x = 0.65; 
y = 0.4; 

} 


{ 

x = 0.63; 
y = 0.4; 
} 


break; 

case RATE4_0K: x = 0.63; 
break; 


y = 0.5; 


25 


30 


case RATE2 0K: x = 0.63; 


break; 


case RATE0_8K: x = 0.63; 


break; 


y = 0.0; 


y-0.0; 


35 


default: nrerror ("Invalid fix_ratc !!!"); 
break; 

} 

PPR_post_process (sigsyn_dec, pdcfq_dec[i_sf], x, y, 

lagJIi_sfl, l_s£ FlalSp_Flag, channel.fix_rate); 


40 


-*/ 
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/* Update the synthesized speech buffer */ 
/♦ */ 

cpy_dvector(sigsyn_dec+NP, sigout+i_s, 0, l_sf-l); 

/* */ 

i s += 1 sf ; 


10 

} 

dot_dvcclor(sigout, sigout, &enrg, 0, LJFRM-1); 

1 5 enrg_bufIIO] = enrg_buffl 1 ] ; 

enrg_bufill] = enrg_buffT2]; 

enrg_bulT[2] = 10.0*logl0(enrg/L_FRM+EPSI); 

if ((enrg_buffJ2| < 45.0) && (bfi == 1) && (cliaiuiel.fi x_rate == RATE8 5K) 
20 && (channcl.idx_SVS_deci == 0)) 

{ 

ini_dvector(past_energyq_4d, 0, G VQ_VEC_SIZE_4D- 1 , -30.0); 

bfi_caution = 1; 

} 

25 else if ((cnrg_bufTI2] < 45.0) && (bfi == 1) && 

(channel.fix_raie == RATC4 J)K) && (channel.idx_SVS_deci == 0)) 

{ 

ini_dvcctor(past_encrgyq_2d, 0, G VQ_ VEC_SIZE_2D- 1 , -30.0); 
bfi_caution =1; 
30 } 


ppast_bfi = pasl_bfi; 
pastbfi = bfi; 

35 

SVS_deci_mem = channel. idx_SVS_deci; 
fix rate mem = channel, fixrate; 


40 tfifdef MEM_TEST 
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for (i =0; i < 2; i++) 

ini_dvector(unfcod_dec[i], 0, L_SF-1, -1.0); 

5 for (i = 0; i < 2; i++) 

ini_dvector(qua_unfcod[iJ, 0, LFRM-l, -1.0); 

for (i = 0; i < N_SF_MAX; i++) 

ini_dvector(pdcfq_dec[i], 0, NP-1, -1.0); 

10 

ini_dvector(ext_dec, MAXLAG, MAX_LAG+L_SF-1, -1.0); 
ini_dvector(sigsyn_dec, NP, NP+L_SF-1, -1.0); 
ini_dvector(lsfq_new_dec, 0, NP-1, -1.0); 


15 #cndif 

/♦ */ 

return; 

20 /* */ 

} 

/* END */ 

25 /*==========:==:======================^ 


NSDOCID: <WO 01224O2A1 I > 


WO 01/22402 PCT/USOO/25182 


97 


==*/ 


/* Conexant System Inc. 
5 /* 43 1 1 Jamboree Road 
/* Newport Beach, CA 92660 
/♦ 


*/ 


/* Copyrighl(C) 2000 Conexant System Inc. 
/* 


*/ 
-*/ 

-*/ 


10 /* ALL RIGHTS RESERVED: */ 

/* No pan of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 


15 /* FILE : dccoder.h 


•7 


=*/ 


/*- 

/*• 
20 /*- 


FUNCTIONS 


void dec smv_frainc (INT16 [], FLOAT64 [], INT16); 


/*= 
25 /*- 
/*= 


END 
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==*/ 


/*---=-========-=============== 

/* Conexant System Inc. *' 
5 /* 43 1 1 Jamboree Road *' 
/* Newport Beach, CA 92660 */ 
/* 


♦/ 


/* Copyright(C) 2000 Conexant System Inc. 
/♦ 


7 


-*/ 


* 


I 


10 /* ALL RIGHTS RESERVED: 

/* No part of this software may be reproduced in any form or by any ♦/ 
/* means or used to make any derivative work (such as transformation */ 
/+ or adaptation) without the authorisation of Conexant System Inc. */ 

/ * ===========:======== =.===============-===========-===== 

15 /* FILE: encoder.c *' 

============= 


/* ' 

/* INCLUDE *' 

20 /* 7 


^include "typedef.h" 
^include w main.h M 
^include "const.rT 
25 ^include "gputil.h" 
#includc "mcutil.h" 
^include M cxt_var.h w 

#includc "lib.qlsf.h" 
30 include "lib _geq.h" 
^include M !ib_vad.h" 
^include "libjpc.h" 
^include "lib_cla.h M 
^include "Iib_snr.h M 
35 ^include H lib_pwf JT 
^include "lib.bii.h" 
^include "lib _pit.li" 
#includc "lib_smo.h" 
#include M Iib_prc.h" 
40 #includc "lib^flt.h" 
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include "libjcs.h" 
^include "libjtp.h" 
^include "libjjpr.h" 
^include M lib_ppp.h" 
5 ^include "lib _gcb.h" 

#ifdefDIAG_SMV 
10 ^include "lib_dia.h M 
#endif 


15 /* FUNCTIONS */ 

/* V 

/* FUNCTION : enc_smv_framc 0- 

20 /* *' 

/* PURPOSE : Performs processing on one frame. */ 

/* -*/ 

/* ALGORITHM : */ 
/* */ 


25 /* INPUT ARGUMENTS : */ 
/* _ (FLOAT64 []) sigpp : input frame. */ 

/* _ (INT16 ) smv_mode : selected SMV mode. ♦/ 

/* _ (INT16 ) swilchjlag: switching mode flag. */ 

/* _ (char ) signaling : signal information. */ 

30 /* */ 

/* OUTPUT ARGUMENTS : */ 
/* _ (INT16 []) PackcdWords : output frame bitstream. */ 

/* _ (FLOAT64 []) cnc_sigout ; output processed frame. */ 

/* _ (INTI6 *) FlatSpFlag : flat input speech flag. */ 

35 /* _ (FLOAT64 *) avg_rate : average bit rate. */ 

/* (INT16 *) VoicingClass: Frame classification. */ 


/* INPUT/OUTPUT ARGUMENTS : 

/* _ None. */ 
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/* RETURN ARGUMENTS : */ 
/* _ None. */ 


5 void cnc_smv_frame (FLOAT64 sigpp [], INT16 PackcdWords [], FLOAT64 enc_sigout fj, 

INT16 smvmode, INT16 switch_flag, INT 16 *FlatSpFlag, 

char signaling, FLOAT64 *avg_ratc, INT 16 *VoicingClass) 


{ 

/* */ 

10 /* Misc. parameters */ 

/* */ 


FLOAT64 *px, *buf; 
FLOAT64 gl, g2, vail, val2; 

15 

INT 16 i_sf, i, j, k, 1, i_s, l_sf, n_sf; 
FLOAT64 x; 

#ifdcfDIAG_SMV 

20 

FLOAT64 y; 

#endif 


/* ~ */ 

25 /* Variables for Voice Activity Detection */ 
/* */ 

INT 16 avgjag; 

30 /* */ 

/* Variables for classification */ 
/♦ ♦/ 

INT 1 6 Noisy VJlag, OnSetFlag; 
35 FLO AT64 FrmRcsEng, ResEngfN_SF2] ; 

FLOAT64 lpcgain_q; 

/* V 

/* Variables for LPC smoothing */ 
40 /* */ 
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FLOAT64 beta_frm, beta_sub; 
FLOAT64 rcflO [N SF_MAX] ; 

5 /* V 

/* Parameters for LPC smoothing */ 
/♦„ V 

FLOAT64 LP_CF[N_SF_MAX+1]; 
10 FLOAT64 lsfjnt [NPJ; 

/* V 

/* Variables for Smoothing */ 
/* V 

15 

INT 16 exc_modc, speech_mode; 
FLOAT64 pitch_corrl2); 

> */ 

20 /* Parameters for LPC analysis and quantization */ 
/* V 

FLOAT64 lsf_new2[NP], lsf_ne\v3[NP], lsfq_new[NP]; 


25 /*- 


30 


/* Variables for Pitch Interpolation */ 
/* */ 

FLOAT64 ForPi tch [L_FRM+L_FRM/2 J ; 

/* */ 

/* Parameters for pitch pre-processing */ 
/* V 


35 FLOAT64 gp_pp[N_SF_MAX]; 

/* */ 

/* Parameters for pitch open loop */ 
/+ */ 

40 
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INT 16 pre Jag; 


/* 


/* Parameters for LTP */ 
/* */ 

FLOAT64 Rp; 


10 /* Parameters for Closed Loop processing */ 
/* ♦/ 

FLOAT64 gainQ [N_SF_MAX]; 
FLOAT64 hh[L_SF], hh_w[L_SF], hh_m[L_FRM); 
15 FLOAT64 Tg[L_SFl, TgsfL_SF], Tgs_m[L_SF]; 

FLOAT64 rcs2[L_SF]; 
FLOAT64 nsr = 0.0; 

20 FLOAT64 Rp_Wn, ac_sharp, fnn_stiarp; 

FLOAT64 quaJTg [L_FRM]; 

/* */ 

25 /* Variables for Signal Sinthesis */ 
/* */ 

FLOAT64 sigsyn[L_SF+NP]; 
FLOAT64 qua_sigsyn[L_SF+NP]; 

30 

/* */ 

/* Parameters for bitstream processing */ 
/* */ 


35 

INT64 sccd_cnc; 
INT 16 pann(3J; 
INT 16 slift_count; 

40 INT16 PackWdsPtr[2]; 
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PARAMETER channel; 

/ * ====== = == ============ = =============================^ 

5 /* mt tt y i r « imnnrfpr^nnmnnnrirTr^ DDonnDnnnnnnnrTnnnn^ */ 

/* fffm nr ^nn nM n U umunnnpg ENCODER nnnnnnnnanna^ */ 
/* uuu uuuu uum f UKinnnn un nw n n nnnuu unrKinn no ii u */ 

/« annnnDnnn nr^ V 

10 

/* DDnnannnnrmannnnnronnDanaDDnn LPC ANALYSIS DauumuuuaDnaBanDnttt^^^ */ 
/ *. a _ a _ = _ M _^ 

15 


20 

LPC_anaiysis(L_LPC, sigpp, lpc_window, rxx, bwe_faclor, 
rcflfl], &pderr, pdcqi], lsf_new2, NP, &x, 
(♦FlatSpFlag)); 

25 /* */ 

/* First subframc LPC */ 
/♦ */ 

for (i = 0; i < NP; i++) 
30 refl[0Hi] = 0.5*(refl[I][i] + rcnrN_SF4-ll(i]); 

for (i = 0; i < NP; i++) 

lsf_int |i] - 0.5*(lsf_new[i] + lsf_new2fi]); 

35 LPCJsftop(!sf_int, pdcflO], NP); 

/* */ 

/* Fourth subframe LPC analysis, used for LSF quantization */ 
/* V 

40 
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LPC_analysis(L_LPC, sigpp+L_PP-L_LPC, lpc_\vindowl, rxx, bwejactor, 

refl[N_SF4-lJ, &pdcn\ pdcfIN_SF4-l], lsf_ne\v, NP, 
&lpcgain, (*FlatSpFlag)); 

5 /♦ */ 

/* VAD based on the fourth subframe LPC LPC */ 
/* */ 

flag_vad_mem 11] = flag_vad_mcm [0]; 
10 flag_vad_mcm [0] = Vad; 

px = sigpp + L_PP-LJFRM-L_LPCLHD; 


15 VAD_voice_dctcclion (px, refl[N_SF4-l], pderr, lag_buf, pgain_buf, 

lsf_new, rxx, frm_count, &Vad, flag_vad_mcm); 

/* ♦/ 

/* Tliird subframe LPC */ 
20 /*-- */ 

for (i = 0; i < NP; i++) 

rcfll2Hi] = 0.5*(rcfl[l][i] + refirN_SF4-l][i]); 

25 for (i = 0; i < NP; i++) 

lsf_int HI = 0.5*(lsf_new[i]+lsf_new2[i]); 


35 


LPC_lsftop(lsf_int, pdcq2], NP); 


30 /' 


/* LPC analysis for Look-Ahead */ 
/♦ */ 

cncrgy_m - energy; 

LPC_analysis (L_LPC, sigpp+LJ'P-LJ-PC, lpc_window2, rxx, bwejactor, 

renfN_SF4), &pderr, pdcf[N_SF4J, lsf_ne\v3, NP, &x, 
(*FlalSpFlag)); 


40 energy = rxx[0J; 
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/*==============-================================-=-== 

/* aEKKosnnnnDnnnnnannnD WEIGHTING SPEECH AND CLASSIFICATION i 
/*=^==================================================== 

5 


#ifhdefMEMJTEST 

/♦ */ 

10 /* Update the weighted speech buffer */ 
/♦ */ 

cpy_dvcctor(wspecch+L_FRM, wspeech, 0, LOLPIT-LFRM -LLPCLHD - 1 ); 

tfendif 

15 

/* */ 

/* Generate the residual */ 

/* */ 

20 PWF_spcech_to_residu (sigpp, wspeech, pdcf, wpdefzero, GAMMA 1); 


-*/ 


25 


/* Temporal noise-like unvoied speech detector */ 
/♦ */ 

VUV= 3; 

1 = LFRM + LLPCLHD; 

CLA_NoisUnvoiceDetect (wspeech+ L_OLPIT-i, sigpp+L_PP-l, &VUV, ResEng, 
30 &frm_sharp, L FRM); 

FnnResEng = ResEng(01 + RcsEng[l]; 

/* */ 

/* Generate the weighted speech */ 
35 /+ */ 

PWF_residu_to_wspeech((*FlaiSpFlag), wspeech, wspeech, rcfl, pdcf, 

wpdcf_pole, LP_CF, wspeech_mem, &Zl_ws_l); 
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/* annQnQD ^^ OPEN-LOOP INTER PITCH LAG SEARCH annnnaanananaanaannn */ 


pre_lag = ol_lag[l]; 

PIT_oL2pitclis(wspeech, L_OLPlT, oljag, Rp_sub, frame_class, HI_LAG2); 

for (i = 0; i<3;i++) 

lagjwfji] = lag_bufli+2]; 


10 #ifndef COMPLEX1TYREDUC 

avgjag = AVG(lag_bu(l0], la&Jbuf[l], lagJmfUl); 


if( abs((short) (ol Jag[0)/2.0) - avg Jag)<=2) 
15 lag_buq3] - (INT16) (oljag[0]/2.0); 

else 

{ 

if (abs((INT16) (oljag|0]/3.0) - avgjag) <= 2) 
lagjmfp] = (INT16) (ol Jag[0]/3.0); 

20 else 

lag_buf[3] = oljag[0]; 


if (abs((INT16) (ol Jag[ l]/2.0) - avg_lag)<=2) 
25 lag_buf!41 = (short) (ol Jag[ 1 ]/2.0); 

else 

{ 

if( abs((INT16) (ol_lag[l]/3.0) - avgjag) <= 2) 
lag_bufl4] = (short) (ol_lag[l]/3.0); 

30 else 

lag_bufI4] = olJag[l]; 

} 

#else 

lag_bufT3] = ol_lagl0|; 
35 Iag_bufl41 = olJag[ll; 

tfendif 


===*/ 


40 /* annnaannananaannnaanaannan™ CLASSIFICATON annnann^^ */ 
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franic_class_m = frame_class; 

frame_class = CLA_signal_classificr(sigpp + L_PP-L_FRM - L_LPCLHD, 


5 Rp_sub[l], (double)(ol Jagl 1]), Vad); 

/* 1 */ 

/* Background Noise Level */ 
/* */ 

10 

SNR_Calc NSR_enc (sigpp+L_PP-L_FRM, lsf_new3, Vad, framc_class, 

&nsr, L FRM); 

/* */ 

15 /* Class correction */ 

/* */ 

CLA_Class_Corrccl(&frame_class, &frame_class_pp, &Vad, &VUV, 

&OnSclFlag, frame_class_m, Rp_sub, nsr, refl, 
20 frm sharp, smv_mode, energym, energy, 

FrmResEng, Ipcgain, &NoisyV_flag); 

25 /* nnnnnnnnnr innnnnnnmnuannpaa CODEC BIT-RATE SELECTION m rttttg« IUUTB H B^^ */ 

/* */ 

/* Fixed rate selection */ 
30 /* */ 

fix_rate_mem = fix_ralc; 

if (smvmode <= 1) 
35 fix_rate *= RATE85K; 

else 

fixralc = RATE40K; 

if (switch_flag) 
40 { 
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CLA_Rate_Selcct (smv mode, frame_class, frame_c!ass_m, 

OnSelFlag, Rp_sub, nsr, frm_sharp, 
refl[2][0], FrmResEng, &fix_rate); 

if ((signaling =*= (char) I) && (fix_rate = RATE8_5K)) 
fix rate = RATE40K; 


} 


10 /* nnnnnnannnannrinnnnannD FINE PITCH AND INTERPOLATION anuuuuuuuuujuuuuuuunnaa */ 

========= =^^==================-======-====*/ 


if ((fix_rate == RATE4_0K) && (olJag[l] > HI.LAG) && (frame_class_pp>0)) 
1 5 frame_class_pp = 0 ; 

,* . */ 

/* Forward fine pilch */ 

/* *' 

20 

if (framc_class_pp > 0) 
{ 

low_pit = MAX(min_pil, ol_lag[l] - 5); 
if (fix_rate == RATE8_5K) 
25 high_pit = MIN(HI_LAG2, ol Jag[ 1 ] + 5); 

else 

high_pit « MIN(HI_LAG, ol_lag[l] + 5); 


30 


35 


pre__pitch_indcx = pilch_index; 

pitch_f_mem [1] = pitch_f_mem [0]; 
pitch_f_mem [0] = pitclif; 

I = L_OLPIT-L_LPCLHD; 

lagl = PIT_FinePitch (fix_ratc, low_pit, high_pit, wspeech, 

1, Delay_pp, &Rp, &pitchf, &pitch_index); 

channcl.idx_piich[0] = pitch_index; 


40 
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i09 

/* - */ 

/* Pitch interpolation and modify pitch index to avoid too */ 

/* large delay */ 

/* */ 

if ((fix_rate_mem == RATE2 0K) || (rix_rate_mem == RATE0 8K)) 
{ 

pitch_f_mem [1] = pitchf; 
pitch_fmem JO] = pitchf; 


} 

else if (frainc_class_m < 6) 
{ 

if (fix_ra(e inem != RATE8_5K) 

15 { 

pitch_f_mem f 1] = lagJIN_SF2-l]; 
pitch_f_mem [0] - lagJIN_SF2-l]; 


20 else 


} 


{ 

pitch_f_mem II] = lagJlN_SF4-l]; 
* pitch JT_mcm [0] = lagJIN_SF4-l]; 
} 


25 } 


PIT_PitchInterpolat (pitchf, pitch_fmem, ForPitch, 1); 
} 


30 /*= 


=*/ 


35 


/* fyvini «nirmrinnnHnneir«ine3 u aon uuuD LT PROCESSING W " " " " n 1 * " " 11 " mmr rt^^ */ 
/♦ = ============================^==^^ 

cpy_dvector (NcwTg+L_FRM, NewTg, 0, NP-1); 

PPP__pitch_preproc (smvjnode, fix_ratc, (*FlatSpFlag), nsr, wspeech, 

NewTg+NP, ForPitch, &Dclay_pp, frame_class_pp, 
&frame_class, &VUV, gp_pp); 

40 /* */ 
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/* framc_class correction */ 

, " •/ 


10 


if ((VUV == 2) && (framc_class > 1) && (OnSetFlag !- 1)) 
frame_class= 1 ; 

if((frame_class == 6) && ((fixjraiemem — RATE20K) || 

(f.x_rate_mem == RATE08K) || (fix.rate «= RATE2_0K) || 
(fix_ratc == RATE0_8K))) 
frame__class = 5; 

if ((framc_class == 6) && (frame_class_m < 3) && (switchjlag != 0)) 
frame class = 5; 


15 /* 

/* Rate modification because of the complexity */ 

/• */ 


if (s\vitch_flag) 

20 { 

if ((smv_modc >= 1) && (fix_rate — RATE8_5K) && 

(framc_class = I)) 

fix_rate=RATE4_0K; 

if ((frame_class_pp > 0) && (frame_class < 6) && 
25 (fix_rate == RATE4_0K) && 

((olJaglOl < 3 °) H (oijagll] < 30))) 
fix rate = RATE8_5K; 


30 #ifdefPROGJ8UG_FIX 


if ((signaling == (char)l) && fix_rate == RATE8 5K) 
{ 

fix_rale = RATE40K; 
if (frameciass == 6) 

frameclass = 5; 

if (fraine_class_j)p > 0) 
{ 

if (olJaglO] <30) 
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ol_!ag[0] *=2; 

if(o!Jag[I]<30) 

oi_lag[l] *=2; 

} 

} 


#else 


if ((signaling == (char)l) && (fix_rate == RATE8 5K)) 

10 { 

fixratc = RATE40K; 
if (frame_class == 6) 

framcclass = 5; 

15 if ((frame_class_pp > 0) && 

((ol_lag[0] < 30) || (oljagfl] < 30))) 
ol_lag[0] *= 2; 

} 

#endif 

20 

PRC_average_rate (fix_ratc t avg_rate); 
} 

channel. fixrate = fixratc; 

25 


/* */ 

/* Reset open-loop pitch */ 
/* */ 

30 if (fixrate == RATE8_5K) 

{ 

for (i = 0; i < 2; i++) 

lag[i] = ol_lag[0]; 

35 for (i = 2; i < N_SF4; i++) 

iag[i] = oljaglll; 

} 

else 

{ 

40 lag|0] = oljag[0]; 
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lag|l] = oI_lag[l]; 
} 

if (frame_class_pp > 0) 
{ 

if (fix_raie == RATE85K) 
lag[N_SF4-l] = lagl; 

elseif(1agl >= 30) 

lagrN_SF2-ll = lagl; 

} 


/* Quantize 3 stable LTP gains with 4bits */ 
/* */ 

if ((frame_class 6) && (fix_rate != RATE2_0K) && 
(fix_rate != RATE0 8K)) 
{ 

channel.idx_SVS_deci = 1; 
if (Noisy VJlag = 1) 

for (i = 0; i < N_SF4; i++) 
gp_pp[i] *= 0.95; 
else if (Noisy V_£lag == 2) 

for (i = 0; i < N_SF4; i++) 
gp_pp[i] *= 0.92; 
if((*FiatSpFlag) = 0) 
{ 

if (smvmode — 0) 
{ 

for (i = 0; i < N_SF4; i++) 
gp_pp[i] ♦= 0.95; 

} 

else 

{ 

for (i = 0; i < N_SF4; i++) 
gp_pp[i] ♦« 0.97; 

} 

} 

if (fix_rate != RATES 5K) 
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{ 

/* */ 

/* 4 bits to quantize 3 gp */ 
/♦ ♦/ 

5 

GEQ_Quant_PitchGain_3D(gp_pp, &(channcl.idx_Gp_VQ)); 
} 

else 

{ 

10 /* *' 

/* 6 bits to quantize 4 gp */ 

GEQ_Quanl_PilchGain_4D(gp_pp, &(channct.idx_Gp_VQ)); 
15 } 

} 

else 

channcI.idx_SVS_.deci = 0; 

20 

/* */ 

/* Back to speech domain */ 
/*„ */ 

25 PWF_\vspccchJo_speech(NewTg+NP, wpdcf_zero, wpdcf_pole, LP_CF, &Zl_ws_2); 

/* f W 1TV1 f .M M M M. ..^nnnnnn L pc QUANTIZATION AND INTERPOLATION mr ifWHHwninn mrgTnnnn */ 

30 


/* */ 

/* Estimate frame based and initial subframe based smoothing V 
/* 


-*/ 


35 SMO_lsf_smooth_est (Vad, flag_yad_mem [01, refl[l][0], lsf_new, 

&beta__frm); 


-*/ 


/* 

/* Smooth LSF, smoothing not active for coder_mode >= 3 */ 
40 /* : *' 
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for (i = 0; i < NP; i++) 

lsf_smooth[i] = betaJrm*lsf_smooth[i] + 

(L.O-beta_fnn)*lsf_ne\v[i], 


/*_ ; */ 

/* LSF quantization */ 

/* *' 


10 LSF_QJsfqnt(lsf_smooth, lsfq_new, channel.idxjsf, fix_rate); 


15 


25 


/* Interpolation of LSF and weighting filter coefficients extraction */ 
/* 


-*/ 


if((*FlatSpFlag) == 0) 
{ 

if (Noisy VJlag>0) 

x = 0.55; 

20 else 

x = 0.6; 

} 

else 

x = 0.5; 


r_pole_ws = 0.25*r_pole_\vs + 0.75*x; 


30 if ((fix_rate == RATE85K) || (fix_ratc == RATE2_0K) || 

(fix_ratc == RATE08K)) 
{ 


-*/ 


35 /* Interpolate the QUANTIZED lsf and get the LPC coefficients */ 
/* */ 

if ((fix_rate = RATE2_0K) || 

((fix_rate == RATE8__5K) && (frame_class != 6))) 
40 LPC_adptive_interp(Isfq__ncw, lsf_new2, lsfq_old, pdcfq, 
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&(channel . idx_I pc_i nt)) ; 


else 

LPC_adplivc_interp__dcc(lsfq_ncw, lsfq_old, pdcfq, 0); 


/* 


for (i = 0; i < N_SF4; i++) 
reflOfi] = ren[i][0]; 


/♦ */ 

/* Perceptual weighting filter coefficients calculation */ 


15 for (i = 0; i < N_SF4; i++) 

\ 

vail = 1.0; 


forG = 0;j <NP;j++) 
20 { 

vail *= r_pole_ws; 

wpdcf_polc|i)[j] = pdc(Ii]UJ*vaU; 

} 

. } 

25 } 
else 

{ 

if (fraine_class==6) 
{ 

30 /* 


/* Interpolate the QUANTIZED Isf and get the LPC */ 

/* coefficients */ 

/♦ */ 


35 LPC_interpolateJpc_4to3 (lsfq_new, (FLOAT64 *)NULL, 


i); 


-*/ 


40 /* Interpolate the UNQUANTIZED lsf and get the LPC */ 


lsfq_old, pdcfq, 
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/* coefficients 

*/ 

/* 


LPC_interpolateJpc_4io3 (lsfnew, lsfnew2, lsf.old. 


*/ 

/* 


x = 6.5 I 40; 

refl0(01 * (l-x)*refll0][0] + x*refl[H[0]; 
flOll] = 0.5*(refllll[01 + refl[2]I0]); 
A0121 = (l-x)*refl[3H01 + x*refl[2U0]; 


rc1 
rel 


-*/ 


/* Perceptual weighting filter coefficients calculation */ 

*/ 

/* « 


for (i = 0;i<N_SF3;i++) 
{ 

vail = 1.0; 
val2 = 1.0; 

for(j = 0;j<NP;j++) 
{ 

vail *= GAMMA 1; 
val2 *= r_pole_ws; 
wpdcf_zero[i]U) = pdcqi]lj]*vall; 
wpdcf_pole[i][j] = pdcni][j]*val2; 

} 


} 


else 


} 
{ 

/*- 


-*/ 


40 


/* Interpolate the QUANTIZED lsf and get the LPC */ 
/* coefficients 

-«7 

/* — 

LPCJnterpolatcJpc.4to2 (lsfq^ncw, (FLOAT64 *)NULL. 


pdcf, 0); 
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lsfq_old, pdcfq, 1); 


/* */ 

/* Interpolate the UNQUANT1ZED lsf and get the LPC */ 

/* coefficients */ 

/* */ 


LPC_interpolateJpc_4to2 (lsf_new, lsf_ncw2, lsfold, 


/*- 


rcOOlO] = 0.5*(rcfl[0][0] + refl[ll(0J); 
reflO[l] = 0.5*(refl[2]l0] + refl(3][0]); 


/♦ V 

/* Perceptual weighting filter coefficients calculation */ 
/* V 

20 for (i = 0; i < N_SF2; i++) 

{ 

vail = 1.0; 
val2= 1.0; 

25 forG = 0;j<NP;j++) 

{ 

vail *= GAMMA1; 
val2 *= r_pole_ws; 
wpdcf_zcro[i]U) = pdcf[illj]*vall; 
30 \vpdcf_polc[i][j] = pdcfli][j]*val2; 


} 


} 


/* Flat input speech identifier */ 
/* */ 

40 CLA_Identify_Input (channel.idx_SVS_deci, pdcfq[0], lsfq_new[0), 


pdcf, 0); 
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pgain_pasi, &lpcgain_q, fix_ratc, FlatSpFlag); 


if (fix_rate == RATE2_0K ) 
{ 

parm[01 = channel. idxJsflOj; 
parm[l] = channel- idxjsfll]; 
parm[2] « channel, idx J pc_int; 
secd.cnc = 0x00000000; 
shft_count =15; 
for(j = 0;j<3;j++) 
{ 

shft_count -= bitnoO[j]; 

sccd_enc - seed_enc -(((long) parm[j] ) « shfl_count); 
} 


} 

else if (fix_rate RATE0_8K ) 
{ 

parmlOJ = channel. idx_lsf[01; 
2Q parm[l] = channel. idx_lsf[l]; 

parml2] = channel.idxjsfpi; 
seed enc *= 0x00000000; 
shfl_count = 11; 
for0 = 0;j<3;j++) 

25 < 

shfl.count -=bitnolUl; 

seed.cnc = seed.cnc -(((long) parmUl ) « shfl.count); 
> 


} 


*/ 


Gaussian cxciiauon for very low bit rates ♦/ 
*/ 


35 if (nsr> 0.125) 

x= 1.0 -0.6*nsr; 


else 

x= 1.0; 


40 


if ((fix_rate -= RATE0_SK) && (nsr > 0.125)) 
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x = 0.4; 


if (frame_class == 6) 
x= 1.0; 


5 


NoiseGainFactor = 0.5* NoiseGainFactor + 0.5*x; 


if ((fix_rate RATE2_0K) || (fix_rate RATE0_8K)) 
{ 

GCB_gauss_excit (&seed_enc, fix__rate, fix_rate_mcm, nsr, RcsEng, 

qua_unfcod[lJ, qua _gainQ[l]); 
qua_gainQ[l][0] *= NoiseGainFactor; 

if (fix_rate = RATE2_0K) 


if ((fix_rate_mem == RATE8_5K) || (fix_ralc_mem = RATE0_8K)) * 

GEQ_updatc_inem_4d_to_2dO; 
else if ((fix_ratc_mem == RATE4 0K) && (fraine_class_m == 6)) 

GEQ_update_mem_3d_lo_2d0; 

qua_gainQ[l][2] *= NoiseGainFactor; 

GEQ_gainNSQMA_l_6 (0, qua_unrcod[l], qua_gainQ, 

&(channel.idx_gainVQ[0])); 

GEQ_gainNSQMA_l_6 (2, qua_unfcodll], qua_gainQ, 

&(channel.idx _gainVQ[l])); 

qua_gainQ[l][l] = qua_gainQI 1][0]; 
qua_gainQ[l)[3] = qua__gainQ[l]f2]; 

} 


15 



35 


else 


/* 


*/ 


/* 


Quantize 'qua_gainQ[l][0]' 5 bits 


/*■ 


40 
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m — RATE^OK) H (fix rate^mem « RATE2_0K)) 

{ 

if (frame_class_ni != 6) 

GEQ_updaie_mcm_2dJo_4dO; 

else 

GEQ_update_mcm_3d_to__4dO; 

} 


10 


for(i-l;i<N_SF4;i++) 

qua_gainQ[lllil = qua_£ainQ[lU01, 

} 

15 > 

(*VoicingClass) = framc_class; 

20 #ifdefMEM_TE ST 

/* 

update the weighted speech buffer 

« w „k n I OLPIT-L FRM-L_LPCLHD-D, 

c P y_dvcclor( W speech + L_FBM ) vvspeech 1 0,L_OLPn . 


#endif 


30 „ =: ==========-=== =====s====r== " === 


===*/ 


35 /♦=========== ====: " ===== 


'* ~" VARIABLE DESCRIPTION 

/* — _ ..*/ 

y #/ 

40 /* 


JNSPCC1D i.WO_...0l22 An9Al 
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/* 
/* 
/* 
/* 

5 /* 
/* 
/* 
/* 
/* 

10 /* 
/* 
/* 
/* 
/* 

15 /* 
/* 
/* 
/* 
/* 

20 /* 
/*- 


Tgs 

Tg., 
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pdcfq - quantized prediction coefficients 
\vpdcfjK>lc - poles of the perceptual weighting filter 
wpdcf_zcro - zeros of the perceptual weighting filler 

*/ 

- target signal */ 

- target signal for codebook search * 
(no pitch contribution) */ 

hh - impulse response of the combined synthesis and 

perceptual weighting filter */ 
unfcod[0] - adaptive codebook (ACB) vector 
unfcod[l] - algebraic codebook (CDBK) vector 
fcod[0] - filtered ACB vector 
fcodfl] - filtered CDBK vector 
gainQ[0] - ACB gain 
gainQfll - CDBK gain 
gainQ(2] - CDBK gain 

*/ 

ext - adaptive codebook 
lag[i_sf] - integral lag of the current subframe 
lagf[i_sfl - fractional lag of the current subframe 


*/ 
*/ 

*/ 
*/ 
*/ 


*/ 
*/ 


*/ 
*/ 


*/ 
*/ 


25 /*nnnnnnnnDnnnannan First Loop Willi Unquantized Fixed CB Gains i 


3onn*/ 


if (fix ratc != RATE4_0K) 
30 n_sf=N_SF4; 
else 

{ 

if (frame__class — 6) 
n_sf=N_SF3; 

35 else 

n_sf=N_SF2; 

> 

i_s = 0; 

40 for (i_sf = 0; i_sf < n_sf; i_sf++) 
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< •/ 

,* Set-up of the sub-frame parameters */ 
/* 

if(fix_rate!=RATE4_0K) 
l_sf=L__SF4; 

else 

{ 

if (frame_class == 6) 
{ 

if(i_sf==N_SF3-l) 
l_sf =L_SF3; 

else 

1 sf=L_SF0; 
> 

else 

1 sf = L_SF; 

> 

20 _*/ 

'/* The impulse response with the all pole synthesis filter */ 
/* and the percerptual weighting filter* */ 

*/ 


10 


15 


25 


35 


/* 


- r pdcfq li_sfL Lsf), 


cpy_dvector(hh, hh_m+i_s, 0, l_sf-l); 

30 +/ 

/* 

/* Target signal *' 

*/ 

/* 


dif mem, target_mem, l__sD, 


40 


if(i,sf=- 0) 

cpy_dvcctor (Tgs, Tgs_m, 0, l_sf-l); 
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25 


/* Ideal excitation */ 

/* V 

PRC_Ideal_Excit (Tgs, pdcfq[i_sf|, wpdcf_pole[i_sf], 

wpdcf_zeroli_sf], res2, l_sf); 


10 /* */ 

/* LTP Contribution */ 
/* */ 

if ((fix_ratc RATE8_5K) || (fix_ratc == RATE4_0K)) 

15 { 

if (frameclass == 6) 

{ 

/* */ 

/* Pitch lag interpolation */ 
20 /* *' 


LTP_PP_pilch_exl (ForPilch+i_s, Tgs, cxt, hh, i_sf, 

unfcod|0], fcod[0], lag, lag_f> 
&Rp_Wn, l_s0; 

/* */ 

/* Pitch gain */ 

/* */ 


30 gainQ(0J = gpjpJLsf]; 

if(NoisyV_flag<2) 


gainQ[0] *= 0.25*Rp_Wn + 0,75; 

} 


else 

35 { 


/* */ 

/* Close-loop search */ 
/* */ 


40 if (fix_rate == RATE85K) 
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else 


124 

LTP_close_8_5kj>itch (Tgs, ext, hh, i_sf, unfcodfO], 
fcod[0], lag, lag_f, &(gainQ[0]), &Rp_Wn, l_sf, 
framc_ciass__pp, channel. idx_pitch); 

LTP_close_7b_pitch (Tgs, ext, hh, i_sf, unfcod[0], 

fcod[0], lag, lagJF, &(gainQ[0]), 

&Rp_Wn, l_sf, fraine_class_pp, 
channel. idx_pitch); 


-*/ 


/* Modify the gainQ[0] to de-emphasize the pilch */ 
/* contribution in the cdbk search */ 
/* 


-*/ 


15 gp_PP[LsH = gainQ[0]; 

ac_sharp = PPP_sharpness(l_sf, unfcod[0]); 

if ((framc_class > 1) && (ac_sharp < 0.25)) 

20 { 

x = MAX(MTN(5*ac_sharp-0.25, 1.0), 0.0); 

gainQ[0] *= (1 - x)*Rp_Wn + x; 
} 

} 


25 /*- 


/* Save the results for tlic second loop */ 


/*— 


-*/ 


cpy_dvector (unfood[0], qua_unfcodlO]+i_s, 0, l_sf-l); 
30 cpy dveclor (fcodlO], qua_fcod[0]+i_s, 0, l_sf-l); 

> 

else 

{ 

gainQfO] = 0.0; 
35 gp_pp[i_sf| = 0.0; 

Rp_Wn = 0.0; 

lag_f[Lsfl = !a fi [L sf U 
ini_dvector(unfcod[0], 0, l_sf-l, 0.0); 
ini_dvector(qua_unfcod[0]+i_s, 0, l_sf-l, 0.0); 
40 ini_dveclor(fcodIO], 0, l_sf-l, 0.0); 
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ini_dvector(qua_fcod(0], 0, l_sM, 0.0); 
} 

/* */ 

5 /* Classify the speech subframe, used for excitation */ 
/* preselection */ 
/* */ 

SMO_iniUaLanalysis (NevvTg+i_s+NP, Vad, lagJILsf], 
10 reflO[i_sf], &spccch_mode, 

pitch_corr, l_sf); 

/* */ 

/* Calculate the Target for codebook search */ 
15 /* *' 

for (i = 0; i < l_sf; i++) 
{ 

Tg[i] = Tgs|i] - gainQ[0I*fcod[0][i]; 
20 res21i| -= gainQlO]*unfcod[0][i]; 

} 

/* */ 

/* Mode selection of fixed excitation: */ 
25 /* mixed search vs pure Gaussian */ 
/* . */ 

SMO_refined__analysis (rcs2, speech mode, pitch_corr, &exc_mode, 

&beta_sub, l_s0; 


30 


/* . */ 

/* Fixed Codebook search */ 
/* */ 


35 k = cxc_mode*frame_class; 

if (Noisy V_flag== 1) 

k = 2; 
if (Noisy VJlag == 2) 

k= 1; 

40 
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10 


15 


switch (fixratc) 
{ 

case RATE8 5K: 


if (framcclass =f 6) 
{ 

FCS_cdbk_scarch_30b_sub40 (ext, pdcfqli_sf], 

Tg, res2, hh, unfcodll], l_sf, i_sf, 
lagli_sf], K gp^PPlLsf], 

nsr, RpWn, ^channel); 

} 


else 


break; 


{ 

FCS_cdbk_scarch_22b_sub40 (ext, pdcfq[i_sfl, 

Tg, rcs2, hh, unfcod[l], l_sf, i_sf, 
lag[i_sf], k > pgain_past, 
nsr, Rp_Wn, &channcl); 

} 


20 


case RATE4 OK: 


25 


30 &chaniiel); 


#ifdef MEM TEST 


35 


if (frameclass == 6) 
{ 

FCS_cdbk_scarch_13b_sub54 (exl, pdcfqli_sf], 
Tg, res2, hh, unfcod[l], 

l_sf, i_sf, lag[i_sfl,k, 

gp_pp[i_sf], nsr, Rp_Wn, 
fix_rate_mem, 
lpcgain_q, 


else 


ini_dvector(&sigsyn[NP], 0, L_SF-1, -1.0); 
ini_dvector(&qua_sigsyn[NP], 0,L_SF-1, -1.0); 
ini_dvcctor(dif_mem, 0, L_SF+NP-1, -1.0); 
ini_dvector(qua_dif_mem, 0, L_SF+NP-1, -1.0); 


40 


px - &wspeechfL_OLPIT-L_FRM-L_LPCLHD] ; 
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ini_dvector(px, 0, L_FRM+L_LPCLHD- 1 , -1 .0); 

ini_dvcclor(hh_u\ 0, LJSF-I, -1.0); 
ini_dvector(ForPitch, 0, L_FRM+L_FRM/2- 1 , -1.0); 

5 

px = &qua_unfcod[0J[0]; 
ini_dvcctor(px, i_s, L_FRM-1, -1.0); 
px = &qua_unfcod[l][0]; 
ini_dvector(px, i_s, L_FRM-1, -1.0); 
10 px = &qua_fcod[0J|0J; 

ini_dvector(px, i_s, L_FRM-1, -1.0); 
px = &qua_fcod[l]lOJ; 
ini_dvector(px, i_s, L__FRM-1, -1.0); 

15 

ini_dvecior(qua_ext, 0, MAX_LAG+L_SF-1, -1 .0); 

ini_dvcctor(qua_Tg, 0, LJSF-1, -1.0); 

20 ini_dvcctor(rxx, 0, NP, -1.0); 

ini_dvcctor(refl0, 0, NJSFJUAX-l, -1.0); 

for (i=0;i<N_SF_MAX+l;i++) 
{ 

25 px = &pdcfTi][0]; 

ini_dvector(px, 0, NP-1, -1.0); 
} 

ini_dvcctor(lsfq_new, 0, NP-l, -1.0); 
30 ini_dvector(lsf_new2, 0, NP-1, -1.0); 

ini_dvcctor(lsf_new3, 0, NP-1, -1.0); 
ini_dvector(lsf_int, 0, NP-1, -1.0); 
ini_dvector(sigpp, i_s, L__FRM-1, -1.0); 

35 

#endif 

FCS_cdbk_scarch_15b_sub80 (ext. pdcfqfLsfl, 
40 Tg, res2, hli, unfcodfl], l_sf, i_sf, 
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break; 


lag[i_sf|, k, pgain_pasl, 
nsr, RpJWn, 


lpcgain_q, 


10 


15 


20 


25 


case RATE2_0K: case RATE0_8K: 

cpy_dvcclor(qua_unfcod[l]+i_s, unfcodfl], 0, l__sf-l); 

gainQ[l] = quajeainQ[l]lLsf|; 

break; 

default: nrerror ("Invalid fix_rate !!\n°); 
break; 

} 


*/ 


/* Filter the selected excitation vector */ 
*/ 


buf = dvector (0, l_sf-l); 

fillcrAZ (hh, unfcodll], fcodU], buf, (INT16)(Lsf-l), l_sf); 


free dvector (buf, 0, l_sf-l); 


30 /* 

/* Gains */ 

if ((fix.nrte = RATE8_5K) || (fix^ratc — RATE40K)) 
35 t 


40 


/* 

/* Unquantized gains */ 

•/ 

GainModiDeci = 1; 
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if ((framc_class < 6) && (frame_class > 1)) 

GEQ_gain_reopt_2 (fcod[0], fcod[l], Tgs, gainQ, 

gainQ+1, l_sO; 

else 

5 { 

gainQ[0] = gp_pp[i_sfl; 
for(i = 0; i < l_sf; 

Tg[il = Tgs[i] - gainQ[0]*fcod[0][ij; 

10 doi_dvector (Tg, fcod[l], &gainQ[l], 0, l_sf-l); 

dot_dvcctor (fcod[l], fcod[l], &vall, 0, 1_sf-L); 

gainQfl] /= MAX(vall, 0.01); 
15 } 


/* */ 

/* Gain normalization */ 
20 /* — *' 

if (framc_class < 6) 
{ 

if (GainNormDcci == 0) 
25 beta_sub = 0.0; 

GainNorniDeci = 0; 

if ((nsr > 0.125) || (frarne_class <= 1) || 

((fix_rate ~ RATE4_0K) && (Rp_Wn < 0.5))) 

{ 

30 GainNorniDeci = 1; 

if (fix_rate == RATE85K) 

x = ResEng[(short)(i_sf/2)]; 

else 

x = ResEng[i_sf]; 


35 


40 


PRC_GainsNorm_Gc_Gp (nsr, x, ext+MAX_LAG, gainQ, 
unfcod, fcod, Tgs, Vad*exc_mode, 
betasub, l__sf); 

} 
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gainQ[0] *= NoiscGainFactor, 
gainQll] *= NoiscGainFactor, 
} 

else 

{ 

if(nsr>0.25) 

PRC_GainNorm_Gc (ext+MAXLAG, gainQ, unfcod, 


food, Tg, l_s0; 
10 #ifdefPROG_BUG_FIX 

#endif 


15 


20 


30 


GainNormDeci = 0; 


I 


25 if(gainQl0]<0.0) 

gainQ[0] = 0.0; 

if(gainQ[0]> 1.2) 

gainQ[01 = 1.2; 


*/ 


/* Gain Quantization */ 
/* */ 


-*/ 


/* 

/* Limit pitch gain */ 
,* */ 


for (i = 0; i < LTP_BUFF_SIZE-1; i++) 
pgain_buf[i] = pgain_bufli+l]; 


pgain J>uf[LTP_BUFF_SIZE- 1 ] = gainQlO]; 

35 

if(gainQ[l]<0.0) 

FCS_ChangeSign (&channel, i_sf, l_sf, unfcodl 1 ], fcod[ 1], 

gainQ+1); 


♦/ 
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cpy_dvcctor (unfcodfO], qua_uafcod[0]+i_s, 0, l_sf-l); 
cpy_dvector (fcod[0], qua_fcod[0J+i_s, 0, Lsf-1); 


cpy dvcctor (unfcodfl], qua_unfcodl 1 ]+i_s, 0, l_sf-l); 
cpy_dvector (fcod[l] t qua_fcod[l]+Ls, 0, l_sf-l); 

10 

if (GainModiDeci == 0) 

cpy_dvector (Tgs, Tg, 0, Lsf-1); 

else 

vvad_dvector (fcod[0], gainQ[0], fcodf 11, gainQ[l], 
15 Tg, 0, i_sf-i); 

cpy_dvector (Tg, &qua_Tgfi_sl, 0, Lsf-1); 


/*- 


if (frame_class != 6) 
{ 

if (fix_rate != RATE85K) 
{ 

25 if (((fix__rate_mem == RATE8_5K) || 

(fix_raie_mcm = RATE0_8K)) && (i_sf == 0)) 
GEQ_update_meiti_4d_to_2d(); 
else if ((fix_rate_mem == RATE4_0K) && 

(frainc_class_m 6) && (i_sf == 0)) 
30 GEQ_update_mcm_3d_to_2d(); 

GEQ__gainVQMA_2 (Tg, unfcod, fcod, gainQ, 

&(channcl.idx_gainVQ[i_sfl), 
l_sf, fix ratc); 

35 } 

else 

{ 

if (((fix_ralc_mem == RATE4_0K) || 

(fix_rate_mem RATE2_0K)) && (i_sf 0)) 
40 { 
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if (frame_class_m != 6) 

GEQ_update_mem_2d_to_4dO; 

else 

GEQ_update_rnern_3d_to_4d(); 

5 > 

GEO gainVQMA 2 (Tg, unfcod, fcod, gainQ, 

&(clianncl.idx_gainVQ[i_sf]), 
lsf, fix_rate); 

10 } 

> 


40 


-*/ 


/* Update the past quantized pitch gain for cdbk search */ 
15 /* */ 

pgain_past = gainQlOJ; 

if (pgain_past < PAST_PGAIN_MIN) 

pgain_past = PAST_PGAIN_MTN; 
20 if (pgain_past > PAST_PGAIN_MAX) 

pgain_past = PAST_PGAIN_MAX; 

qua_gainQlO][i_sf] = gainQ[0]; 
qua_gainQ[l][i_sf] = gainQfl]; 

25 } 
else 

{ 

/* ♦/ 

/* fix_rate==RATE2_0K || fi x_rate==RATE0_8K */ 

30 /* *' 

GainNormDeci = 0; 
gainQfO] = 0.0; 
pgain_past = gainQ[0]; 
35 qua _gainQl0](i_sfhO; 

gairtQ[ 1 ]=qua_gai nQf 1 ](i_sf| ; 
cpy_dvector(fcod[l], qua_fcod[l]+i_s, 0, l_sf-l); 

} 
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/* Build the excitation and synthesized signal */ 
/* . */ 

\vad_dvector (unfcod(0]> gainQ[0], unfcodll], gainQ[l], 
5 ext+M AX_L AG , 0, l_sf-l); 

•/ 

/* Update memoiy */ 


10 

FLT_allsyn (cxt+MAXLAG, l_sf, pdcfq[i_sQ, NP, sigsyn+NP, 
synih_mcm); 

15 for (i = l_sf-NP, j=0; i < l_sf; i++j++) 

{ 

difmcin[j] = Ne\vTg[i_s+NP+i] - sigsyn[i+NP]; 
targct_mem[j] = Tgs[i] - gainQ[0]*fcod[0][i] 

-gainQ[l]*fcod[l][i], 

20 } 


/* */ 

/* Update the adaptive codebook */ 
/* */ 

25 

cpy_dvector (ext+l_sf, cxt, 0, MAX_LAG-1); 


30 i_s += l_sf; 


} 

_ =—================*/ 

35 

/♦ uuuuuuuu nnnnnnc^^ Second Loop Willi Quantized Fixed CB Gains annnnnnnnnonnna*/ 

if ((frame_class == 6) && (fix^raic != RATE20K) && (fix_ratc != RATE0_8K)) 
40 { 
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/♦ V 

/* Quantize 3 fixed CB gains */ 
/♦ v 

5 if (fix_rate != RATE8 5K) 

{ 

if( ((fix_rate_mem == RATE8 5K) || (fix_ratc_mcm = RATE0 8K))) 

GEQ_updaie_mcm_4d_to_3dO; 
else if (frame_dass_m != 6 ) 
jq GEQ_update_mem_2d_to_3d(); 

GEQ_gainVQMA_3(qua_Tg, qua_unfcod, qua_fcod, qua_gainQ, 

&(channel.idx_Gc_VQ)); 

15 > 
else 

{ 

if( ((fix_ratc_mem = RATE4 0K) || (fix_raie_mcm == RATE2_0K))) 
{ 

20 if (frame_class_m != 6) 

GEQ_update_mcm_2d_to_4d(); 

else 

GEQ_update_mem_3d_to_4d(); 

} 


25 


35 


GEQ_gainVQMA_4(qua_Tg, qua_unfcod, quajcod, qua_gainQ, 

&(channel.idx_Gc_VQ)); 

} 


30 


i_s = 0; 

for (i_sf = 0; i_sf < n_sf; i_sf++) 
{ 

/*=-============== 


40 


if (fixratc == RATE8_5K) 
l_sf=L_SF4; 

else 

{ 

if(i_sf== N_SF3-l) 
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Isf = L_SF3; 

else 

l_sf = L_SFO; 

} 


/* . */ 

/* Target signal */ 

/* •/ 

10 if(i_sf>0) 

{ 

PRC_TargctSignaI (wpdcf_zero[i_sf], \vpdcf_pole[i_sf], 

pdcfq[i_sf], NewTg+i_s, ext+MAX_LAG, Tgs, 
quadifjnem, qua_target_mem, l_sf); 

15 } 

else 

cpy_dvector (Tgs_m, Tgs, 0, l_sf-l); 

/* */ 

20 /* Re-build adaptive CB excitation */ 

/* - */ 

if(i_sf>0) 
{ 

25 LTPJPPjpitch_ext_decod (ForPitch+i s, qua_exl, i_sf, 

qua_unfcod[0]+i_s, lag, lag_f, l_sO; 


/*- 


30 buf = dvector (0; l_sf-l); 

filterAZ (hh_m+i_s, qua_unfcod[01+i_s, quajcodl0]+i_s, 


buf, 


(lNT16)(l__sf-l), l_sf); 

35 


free_dvector (buf, 0, l_sf-l); 


40 
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/* V 

/* Build the excitation and synthesized signal */ 
/* ♦/ 


wad_dvcctor(qua_unfcodlO]+i_s, qua _gainQ[0][i_sf], 

qua unfcod[l]+i s, qua_gainQ[l][i_sf], 
qua_ext+MAX_LAG, 0, l_sf-l); 


/* */ 

/* Update memory */ 
/* */ 

FLT_allsyn (qua_ext+MAX_LAG, l_sf, pdcfq[i_sf], NP, 

qua_sigsyn+NP, qua_synth_mem); 

gl = qua _gainQ[0][i_sf]; 
g2 = qua_gainQ[l][i_sf]; 

for (i = l_sf-NP, j = 0; i < l_sf; j++) 
{ 

qua_dif_mem[j] = NcwTg[i_s+NP+i] - qua_sigsyn[i+NPJ; 

qua_target_mcm[jj = Tgs[i] - gl * qua_fcod[0][i+i_sj 
- g2 * qua_fcod[l][i+i_sl; 

} 


/♦ */ 

/* Update the adaptive codebook */ 
/* */ 


cpy_dvector (qua_exl+l_sf, quaext, 0, MAX_LAG-1); 
i_s += l_sf; 
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/* Modify the inemorys for next frame */ 
/* */ 


cpy_dvector (qua_synth_rnem, synlh_mem, 0, NP-1); 
5 cpy_dvector (qua_dif_mem, difjnem, 0, NP-1); 

cpy_dvcctor (quajarge^mem, targct_mem, 0, NP-1); 
cpy_dvcctor (qua_ext, ext, 0, MAX_LAG- 1); 


10 } 
else 

{ 

/♦ */ 

/* Modify the memorys for next frame */ 
15 ,* V 

cpy_d vector (synth_mem, qua_synth_mcm, 0, NP-1); 
cpy_dvector (dif_mcm, qua_dif_mem, 0, NP-1); 

cpy_dvcctor (targct_mem, qua_targei_mcm, 0, NP- 1); 

20 cpy_dvcctor(cxt, qua_cxt, 0, MAX__LAG-1); 

} 

/* */ 

25 /* Index to bitstream convertion */ 

/* */ 


BlT_cdbkJndcxJo_bits(&channel, PackcdWords, PackWdsPtr); 

30 

#ifdefDIAG_SMV 


f y ic « it mnpnnnpnnpnnnnnnnq nfn i c mtK ^nuuunppnc ii m nr v n i nnr mrw innr int m f y »iu u nnn » LinnrjrJ Ul Ja */ 
35 /* p j » int n n irCT^aanmnDnD ni xia uuuu dodpqquuUUi u » h h » n » » iUUanuD */ 

/* aaaannnnannannnn^ DECODER rwnrrnnn^^ */ 

/* nnnnnnnf v v it k n n jrrnnnnnnrnjpna btjX3UQDQi^nnaDnDuL3UDn» ut . iu Da */ 

/* r v » » » n « i nnnnnnuraraapi^ v v w " » * » » » * k iuimnnnnnnnn */ 
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i_s = 0; 

for (i_sf = 0; i_sf < n_sf; i_sf++) 
{ 

if (fix_rate != RATE4_0K) 
5 1 sf=L_SF4; 

else 

{ 

if (framc_class == 6) 
{ 

l0 if(i_sf==N_SF3-l) 

l_sf=L_SF3; 

else 

l_sf=L_SF0; 

} 

15 else 

l_sf=L_SF; 

} 


20 


25 


cpy_dvector (qua_uiifcod[0]+i_s, unfcod[0], 0, l_sf-l); 
cpy dvector (qua_urtfcod[l]+i_s, unfcod[l], 0, ljM); 
wad_dvcctor (unfcodlOl, qua_gainQlO][Lsf] t unfcodll], 

quajgainQ[l][Lsf] t qua_sigsyn+NP, 0, 1_sf-l); 


FLT_allsyn (qua_sigsyn+NP, l_sf, pdcfq[i_sf], NP, 

qua_sigsyn+NP, synth_mem_dec); 


*/ 

30 I* ' 

/* Post processing */ 

,* •/ 


switch (fix_ratc) 

35 { 

case RATE8_5K: if ((*FlatSpFlag) 0) 

{ 

x = 0.65; 
y = 0.4; 

40 
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} 

else 

{ 

x = 0.63; 

5 y = OA- 

} 

break; 

case RATE4 0K: x = 0.63; 

10 y = o.s- 

break; 

case RATE2_0K: x = 0.63; 

y = 0.0; 

15 break; 

case RATEOJSK: x = 0.63; 

y = 0.0; 

break; 

20 default: nrerror(" Invalid fix ralc !!"); 

break; 

> 

PPR_post_process(qua_sigsyii, pdcfqli_sQ, x, y, lag_fli_sfl, 
25 l_sf, (*FlatSpFlag), fix_rate); 

/* */ 

/* Update the synthesized speech buffer */ 
/* */ 


30 


cpy_d vector (qua_sigsyn+NP, cnc_sigout+i_s, 0, l_sf-l); 


35 i_s += I_sf; 

} 

#endif 

40 
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#ifdefDIAG_SMV 

DIA_trace_data ((FLOAT64)Vad, L FRM, 10000.0, fdia_vad); 

5 #endif 


PCT/USOO/25182 


return; 

10 


,* */ 

} 


15 /* 

/*===== 


. END *' 


==*/ 
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»*/ 




/* Conexant System Inc. */ 
5 /* 43 1 1 Jamboree Road */ 
/* Newport Seach, CA 92660 • */ 
/♦ 


=*/ 


/ 


/♦ Copyright(C) 2000 Conexant System Inc. 
/♦ 


*/ 


*/ 


10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 


====*/ 


15 /* PROTOTYPE : encoder, h */ 


= */ 


/• '/ 

/* FUNCTIONS */ 

20 /* *' 

void enc_smv_frame (FLOAT64 sigpp [], INT16 PackedWords [], FLOAT64 enc_sigout [], 

INT16 smvjnode, INT16 switch_flag, INT16 *FiatSpFlag, 

char signaling, FLOAT64 *av_rat, INT16 * VoicingClass); 

25 

/* END - */ 

30 
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/*=== 


===*/ 


/ 


/ *„ ==== _ ============ ============= 

/* Conexant System Inc. 
5 /* 43 1 1 Jamboree Road */ 
/* Newport Beach, CA 92660 */ 

/* : '" 

/* Copyright(C) 2000 Conexant System Inc. */ 

*/ 

10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 
/*===============-====-===-======================== === 

15 /* FILE: cxt_var.li *' 

/1(c=:=== „ ================= =================-============ 


=*/ 


#ifdcf DIAG_SMV 

20 

— — — — — 

/*======================== DIAGNOSTICS FILE POINTERS ================— */ 

============================*/ 

/*============================== 

25 */ 

/* Encoder unquantized */ 

*/ 


extern FILE *fdia_vad; 

30 

- */ 

/* Encoder quantized */ 

— _ -*/ 

35 extern FILE *fdia_sp_cnc; 

•/ 

/* Floating point parameter dump */ 
/* V 

40 
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/* 
/*- 


Decoder 


*/ 


— */ 


#endif 


10 /*= 


FRAME COUNTERS * 


=*/ 
=*/ 
=«7 


extern INT64 frm_count; 
extern 1NT64 fnn_crasurc; 


15 /*== 
/*=== 


SMV CONTROL 


extern TNT 16 smvjnode; 
20 extern INT16 fix_rate, fix_rale_mcm; 


/*== 
/*== 


NOISE SUPRESSION = 


25 


extern FLOAT64 MIN_GAIN; 


===*/ 


/*= 
30 /*= 


PRE AND POST PROCESSING 


extern FLOAT64 *pre_fit_num; 
extern FLOAT64 *prc_flt_den; 
35 extern FLOAT64 *pre_flt_buf_z; 
extern FLOAT64 *pre_fli_buf _j>; 

extern FLOAT64 pre_gain; 


40 extern FLOAT64 *lp_flt_num; 
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extern FLOAT64 *lp_flt_buf; 


-«7 


5 extern FNT 16 *zeroed; 
extern FLOAT64 *zero_ratc; 
extern FLOAT64 *low__rate; 
extern FLOAT64 *high_rate; 

10 extern FLOAT64 *low_neg; 
extern FLOAT64 *!o\v_pos; 


extern INT32 min_delta; 
15 extern FLO AT64 zero Jevel; 

extern FLOAT64 I2_neg, ll_ncg, ll_pos, 12_pos; 


20 extern FLOAT64 tc_mem__dec; 
extern FLOAT64 tc_coefF; 
extern FLOAT64 tc_gain; 
extern FLOAT64 *tc_buff_exc; 


extern FLOAT64 *buff_LTpost; 
extern FLOAT64 *PF_mem_syn; 
extern FLOAT64 r_zcro, r_pole; 
30 extern FLOAT64 pst_scale; 
extern FLOAT64 pst_hp_mem; 


35 extern FLOAT64 *pst Jlt_num; 
extern FLOAT64 *pst_flt_den; 
extern FLOAT64 *pstjltj>uf_z; 
extern FLOAT64 *pst_flt_bufj>; 

40 extern FLOAT64 pst_gain; 


iNSUUUlD: *WO_„ 01224O2A1 l_» 


WO 01/22402 


PCT/US00/25182 


145 


/*= 


LPC ANALYSIS ==============================*/ 


5 /*================== 

extern FLOAT64 *siglpc; 


/*- 


extern FLOAT64 *lpc_window; 
extern FLOAT64 *lpc_windowl; 
15 extern FLOAT64 *Ipc_window2; 


/*- 

20 


extern FLOAT64 *tilt_window; 


25 /* 


extern FLOAT64 *bwc factor; 


-*/ 


10 /* ' LPC analysis window */ 


-*/ 


/+ Tilt analysis window */ 


/* < 

/* Bandwidth expansion factor */ 


-*/ 


30 /* LPC parameters */ 
/* 


extern FLOAT64 pderr; 

extern FLOAT64 *rxx, **refl, **pdcf, **pdcfq, **pdcfq_dcc; 
35 extern FLOAT64 *lsf_new, "Msfold, *lsf_mid; 


extern FLOAT64 erg, Ipcgain; 

40 
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/*- 


5 extern FLOAT64 *IntLSF_C; 


/*= 
/*= 
/*= 


== Weighted Speech = 


10 

extern FLOAT64 r_polc_ws; 
extern FLOAT64 **vvpdcf_zero, **\vpdcf_pole; 
extern FLOAT64 *wspeech, *wspecch_mcm; 
extern FLOAT64 Zl_ws_l, Zl_\vs_2; 
15 extern FLOAT64 *ModiSig_m, *tmp_ws_m; 


/♦= 


= Fixed codebook search = 


20 


extern FLOAT64 **fcod, **unfcod; 

extern FLOAT64 **quaJcod, **qua_unfcod; 


/*= 
25 /*= 
/*= 


Residual and target signal buffer = 


=*/ 


/*=== 
30 /*— = 
/*== 


===== Gain VQ ■■ 


=*/ 


=*/ 


extern INT 16 GainNormDeci, GainModiDeci; 

35 extern FLOAT64 pgain_past; 
extern FLOAT64 pgain_past_dcc; 

extern FLOAT64 **qua_gainQ; 

40 extern FLOAT64 *past_encrgyq_2d; 
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extern FLOAT64 *past_energyq_3d; 
extern FLOAT64 *past_cncrgyq_4d; 

extern FLOAT64 *gp_buf; 

5 

extern FLOAT64 past_fixed_energy; 
extern FLOAT64 *Prev_Bcta_Pitch; 

10 

extern FLOAT64 *energy_pred_cocfT_l; 
extern FLOAT64 *energy_pred_cocfr_2; 
extern FLOAT64 *cncrgy_pred_coeff_3; 

15 extern FLO AT64 *energy_prcd_cocff4d_l; 
extern FLOAT64 *cnergy_prcd_coeff4d_2; 
extern FLOAT64 *cnergy_pred_coeff4d_3; 
extern FLOAT64 *energy_pred_coefT4d_4; 

20 extern FLOAT64 *pred_encrgy_d38; 
extern FLOAT64 *prcd_cncrgy_d410; 
extern FLOAT64 gp_mean; 
extern FLOAT64 gp_fec; 

25 

extern FLOAT64 **gain_cb_2_128; 
extern FLOAT64 **gain_cb_2J28_8_5; 

extern FLOAT64 gp3_tab[TAB_SlZE_GVQ_3D][GVQ_VEC_SIZE_3DJ; 
30 extern FLOAT64 gp4^tabfTAB - _SlZE_GVQ_4D][GVCLVEC_SIZE_4D]; 

extern FLOAT64 gainVQ__2_128[MSMAX_2_128]lGVQ_VEC - _SIZE_2D]; 

extern FLOAT64 gainVCL2_128_8_5[MSMAX_2_128]{GVQ_VEC_SIZE_2D]; 

extern FLOAT64 gainVQ_3_256[MSMAX_3_256]lGVQ_VEC_SIZE_3D]; 

extern FLOAT64 gainVQ_4_1024[MSMAX_4_1024][GVQ_VEC_SIZE_4D); 
35 extern FLOAT64 gainSQ_l_32[MSMAX_l__32]; 

extern FLOAT64 gainSQ_l_64[MSMAX_I_64J; 


/*=================:=============== LSF quantizers ================ */ 

40 /*«==================^^ 
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extern FLOAT64 ***Isf_cb_0.8k; 
extern FLOAT64 ***!sf_cb_40k; 
extern FLOAT64 ***lsf_cb_85k; 

extern INT16 ,*stage_candj)8k; 
extern INT 16 *stage_cand_40k; 
extern INT 16 *stage_cand_85k; 


10 

extern FLOAT64 B_08k[LP_08k][LQMA_08kl[MAXLNp]; 
extern FLOAT64 B_40kfLP_40k]lLQMA_40k][MAXLNp]; 
extern FLOAT64 B_85klLP_85k][LQMA_85k]rMAXLNp]; 

15 extern FLOAT64 CBes_08k|MAXLTT_08k][LMSMAX_08k][MAXLNp]; 
extern FLOAT64 CBes_40kIMAXLTT_40k][LMSMAX_40k][MAXLNp]; 
extern FLOAT64 CBes_85k[MAXLTT_85kl [LMSMAX_85k][MAXLNp] ; 


extern INT 16 *MS_08k; 
20 extern INT 16 *MS_40k; 
extern INT 16 *MS_85k: 


extern FLOAT64 *last_qlsf; 
extern FLOAT64 *lsfq_old, *lsfq_old_dec; 
25 extern FLOAT64 *Mean; 

extern FLOAT64 **qes; 
extern FLOAT64 **qes_dec; 


30 

extern FLOAT64 *lsfq_mcm_dec; 
extern FLOAT64 *lsfq_mem_enc; 


35 I*- 

/ „ =============== ====== S :=========== PITCH OPEN LOOP ===== 

/*======================== =============================== 

extern INT 16 *olJag; 
40 extern INT 16 *lag; 
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extern INT16 lagl, Iow_pit, high_pit; 
exiern FLOAT64 *Rp_sub; 

extern FLO AT64 pitclif; 

5 

/* - 


/♦ 

10 

extern FLOAT64 *PitLagTab5b; 
extern FLOAT64 *PitLagTab7b; 
extern FLOAT64 *PitLagTab8b; 

15 extern FLOAT64 *SincWindows; 


extern INT16 VUVmm, pitch_m, pitclwnin, IoptO; 

20 

extern INT16 *PlTnmx0; 

extern INT16 LagCount, VadCount, Avjag; 

extern FLOAT64 Rp_m; 
25 extern FLOAT64 *Rmax0; 


/*- 


extern FLOAT64 *pitch__f_mcm; 

30 

CLOSED PITCH PROCESSING 


35 extern FLOAT64 *cxl; 

extern FLOAT64 *SincWindows_E; 
extern FLOAT64 *NewTg; 
extern FLOAT64 *!ag_f; 

extern TNT16 pitchjndex, pre_pitch_indcx; 

40 
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/♦= = ==============================-== 5= === =========:============== 

/ * ============ ===============-= PITCH PRE-PROCESSING ========= 


==*/ 

=*/ 

==*/ 


5 extern FLOAT64 *SincWindows_PP; 

extern FLOAT64 Delay jpp, Last_Rp; 
extern INT 16 frame_class_pp_m; 
extern FLOAT64 *targ_mem; 

10 


/*======: 

/*====== 


PRC LIBRARY PROCESSING == 


==*/ 


15 

extern FLOAT64 cl_Eg, ol_Eg; 
extern FLOAT64 in Jpc_gain; 


==*/ 


*/ 


■ ======= = === ==== == ========*/ 


20 /* ========Si =================== GCB LIBRARY PROCESSING : 



/*===„=================== 

extern INT64 sccd_cxc; 
extern FLOAT64 Zl_gcb; 
25 extern FLOAT64 ref_eng_gcb; 
extern INT 16 rate_mem; 

extern INT64 secd_dec; 


= ======= ===========r===:==========*/ 

30 /*================-======== 

/*===============—========= CLA LIBRARY PROCESSING =================== */ 

==========================*/ 


/* 


extern INT 16 VUV, VUVm; 
35 extern INT16 frame_class, frame_class_m, frame_class__pp; 

extern FLOAT64 energy, cnergy_m; 

extern INT 16 frame_onset; 
40 extern INT 16 frame_pil_tnb, min__pit, max_pit; 
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extern INT 16 *framc__class_mcm, *onstplsv_mcin, ♦voiccd_mcm; 
extern FLOAT64 'window 1; 
5 extern FLOAT64 *buffer_cla; 
extern FLOAT64 *Lp buffer; 
extern FLOAT64 *bufTer_refIO; 
extern FLOAT64 *buflTer_max_cla; 

extern FLOAT64 *bufler_wtilt > *bufler_wmax, *buffer_wRp; 
10 extern FLOAT64 E_noi t T_noi, M_noi, R_noi; 

extern FLOAT64 **P_w, MA_avg_wRp, MA_min_\vtiIt; 

extern INT 16 SVS_Count, Vad_0_Count, FlatSp_Flag; 
extern FLOAT64 Av_valuc; 

15 

/* - — */ 


extern FLOAT64 Rp_m_cla, Ipcg_m_cla; 

20 /* — */ 

extern INT16 OnSct; 

extern INT16 framc_class_mm; 

25 /•__ */ 

INT 1 6 S VS_deci_meni; 

30 VAD LIBRARY PROCESSING ======-==-==============*/ 

=========== ======================================================*/ 


extern INT 16 *lagj>uf; 
extern FLOAT64 *pgain__buf; 

35 

extern INTI6 Vad, *flag_vad_mem; 

extern INT 16 flag; 
extern 1NT16 count_sil; 
40 extern INT 16 count ext; 
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extern INT 16 count_noise; 
extern INT 16 dec3 Jlg_mem; 
extern INT 16 onsctjlg, count_onscl; 

5 extern FLOAT64 pitch_gain_mean; 

extern FLOAT64 **vadjsf_mem; 

extern FLOAT64 min_energy; 

extern FLOAT64 mean_energy; 

extern FLOAT64 *prev_cml Jsf_di£f; 
10 extern FLOAT64 *prev_energy; 

extern FLOAT64 snr, 

extern FLOAT64 mcan_max; 

extern FLOAT64 mean_s_energy; 

extern FLOAT64 prev_min_encrgy; 
15 extern FLOAT64 *min_energy_mein; 

extern FLOAT64 next_min_cnergy; 

extern FLOAT64 *mcan_Isf; 

extern FLOAT64 *nonn_mean_lsf; 

extern FLOAT64 cml Jsf_diff_filt; 
20 extern FLOAT64 onset trhsd; 




/*========================-=== SNR LIBRARY PROCESSING ===== 

25 

extern FLOAT64 NoiseGainFactor; 

extern INT 16 n_nois_ext_enc; 
30 extern FLOAT64 NoisEng_cnc, eng_old_cnc, difTJsf_m_cnc, diff_eng_m_cnc; 
extern INT 16 snr_fnn_count, snr_count_vad; 
extern FLOAT64 cng_m_enc; 

SMO LIBRARY PROCESSING ===== 

extern FLOAT64 *lsf_smooth; 

40 
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extern TNT 16 N_modc_sub_est, N_modc_fnn; 
extern FLOAT64 *lsf_old_snu>, *majsf, *dSP„buf; 
extern INT 16 *N_sub; 

5 extern INT16 consccjow, consec_high, conscc_vad_0; 

extern TNT 16 updates_noise, updatesjspcech, calls, lev_reset; 
extern FLOAT64 mamaxnoise, ma_max_speech; 
extern FLOAT64 *bufler_smo, *buflerj>, ma_cp; 
extern FLOAT64 *buflcr_sum_smo, *bufIerjnax_smo; 

10 

extern TNT 1 6 N_mode_sub_ref, conscc; 
extern TOT 16 updates; 
extern FLOAT64 majnax; 

15 /*^=================================^ 

/*============================ FCS LIBRARY PROCESSING =======================*/ 

extern FLOAT64 lpcg_m, alpha; 
20 extern TNT 16 lag_m, SVSJlag_m; 

extern FLOAT64 *wsp_m; 

extern FLOAT64 *hh_hf; 

25 

extent FLOAT64 **PH1; 

extern INT16 *MaxIdx; 
extern INT16 **track; 

30 

extern INT 16 **p_track_2_5_0, **p_track_2_7_l; 
extern INT16 ***pjrack_3_2_80, ***p_lrackJ5_2_54; 

extern TNT16 **p_track_5_4_0, **p_track_5_3__l, **p_track_5_3_2, **pjrack_8_4_0; 
35 extern FLOAT64 **unfcod_dcc; 

*/ 

13 bits */ 
*/ 

40 
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extern FLOAT64 Stab_13b_enc; 
extern FLOAT64 Stab_13b_dec; 


/* 

5 /* 15 bits *> 


-V 


extern INT64 seed_bfi_exc; 
extern FLOAT64 Slab_15b_enc; 
10 extern FLOAT64 Stab_15b_dec; 


^ =========:===;=:===: ========= FRAME ERASURE CONCEALEMENT ============ */ 

/*============-============ : === = = ;==::====:=======:====== 

15 

extern INT 16 N_bfi, bfli_oh; 
extern INT 16 past_bfi, ppast_bfi; 
extern INT 16 bfi_caution, nbfi_count; 
extern FLOAT64 *enrg_buff; 
20 extern FLOAT64 *ext_dcc_mcm; 



,^™================ 

/*============================== SIGNAL SYNTHESIS ============== / 

=======: ==============-=================*/ 

/*=,============-======= 

25 

extern FLO AT64 *synth_mcm, ♦synlh_mcm_dcc, *dif_mem, *target_mem; 
extern FLOAT64 *qua_synth_mem, *qua_dif_mem, ♦qua_target_mcm, *qua_cxt; 
extern FLOAT64 *sigsyn_dec, *ext_dec; 

====== ==================================*/ 

30 « =— " " = _ = 

y* =========== ================== INDEX =================== 


extern INT 16 *bitnoO, *bitnol; 

35 

/ * ====== „ ===== := = ======= : 


/* END */ 


/ 


40 
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/♦ == ========^======================================== 

/* Conexant System Inc. */ 

5 /* 43 1 1 Jamboree Road */ 
/* Newport Beach, CA 92660 */ 

/* */ 

/* Copyright(C) 2000 Conexant System Inc. */ 
/* */ 

10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 
/* = „===============«======^^ 

15 /* FILE: gbl_var.h */ 


=*/ 


#ifdefDIAG_SMV 

20 

/♦========:===== 

/♦=========== 


25 /*- 


/* Encoder unquantized */ 
/* */ 

FILE *fdia_vad; 

30 

/* ■ ♦/ 

/* Encoder quantized */ 
/* */ 


35 FILE *fdia_sp_cnc; 


-V 


/* Floating point parameter dump */ 
/* */ 

40 


=*/ 


DIAGNOSTICS FILE POINTERS 
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,* */ 

/* Decoder */ 


/*- 

5 


#endif 


10 /' 


r *= 


/ *=^= = =================^======= FRAME COUNTERS = 

INT64 fnn_count = 0; 
15 INT64frm erasure =0; 


===*/ 
===*/ 
===*/ 


/* 
/* 

20 


—————— ————^ 

============================= SMV CONTROL ===================== */ 

======================================*/ 


TNT 1 6 smv_mode; 

INT16 fix_rate, fix_ratc_mcm; 


25 /* 


/*============================ 

======================= NOISE SUPRESSION ========================*/ 


7 


FLOAT64 M1N GAIN = -13.0; 


30 /*==== 
/*=== 
/*=== 


=*/ 


PRE AND POST PROCESSING ======================*/ 

==============================*/ 


FLOAT64 *pre_flt_num; 
35 FLOAT64 *prc_flt_den; 
FLOAT64 *pre_flt_buf_z; 
FLOAT64 *pre_flt_buf_p; 
FLOAT64 prc_gain; 

40 FLOAT64 *lp_fU_num; 
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FLOAT64 *IpJltJ>uf; 


-*/ 


5 INT16 *zcrocd; 
FLOAT64 *zero_rate; 
FLOAT64 *Iow_rate; 
FLOAT64 *high_rate; 

10 FLOAT64 *low_ncg; 
FLOAT64 *lo\v_pos; 


INT32 inin_dclta; 
15 FLOAT64 zerojevel; 

FLOAT64 12_neg, 1 l_neg, 1 1 _pos, 12_pos; 

20 FLOAT64 ic_mem_dec; 
FLOAT64 tc_coeff; 
FLOAT64 lc_gain; 
FLOAT64 *lc buff exc; 


25 /* 


FLOAT64 *buff_LTpost; 
FLOAT64 *PF_mcm_syn; 
FLOAT64 r_zcro, r_pole; 
30 FLOAT64 pst_scale; 
FLOAT64 pst_hp_mcm; 


35 FLOAT64 *pstjll_num; 
FLOAT64 *pst_fll_den; 
FLOAT64 *pst_flt_buf_z; 
FLOAT64 *psl_fll_buf_p; 

40 FLOAT64 pst^gain; 


-*/ 
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5 
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LPC ANALYSIS */ 


FLOAT64 *siglpc; 


/*- 


*_ 


25 


FLOAT64 *b\ve factor; 


FLOAT64 erg, Ipcgain; 
40 FLOAT64 subjpcg, 


/* LPC analysis window */ 

*/ 


10 /' 


FLOAT64 *lpc_window; 
FLOAT64 *lpc_windowl; 
FLOAT64 *lpc_window2; 

15 

/* 

/* Tilt analysis window */ 
/* 

20 FLOAT64 *tilt_window; 


*/ 


*/ 


/* Bandwidth expansion factor */ 


— */ 


/* LPC parameters */ 
30 /* 

FLOAT64 pderr; 

FLOAT64 *rxx, **rcfl, **pdcf, **pdcfq, **pdcfq_dcc; 
FLOAT64 *lsf_new, *lsf_old, *lsf_mid; 

35 


-«7 
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,* */ 


FLOAT64 ♦IntLSF_C; 

5 


/ 


/*============-================ Weighted Speech ========—====— —==-^ */ 

,»_„_-.-___— 

10 FLOAT64 r_polc_ws; 

FLOAT64 **wpdcf_zero, **\vpdcf_po!e; 
FLOAT64 *\vspeech, *vvspeech_mcm; 
FLOAT64 Zl_ws_l, Zl_\vs_2; 
FLOAT64 *ModiSig_m, *tmp_\vs_in; 

15 


= */ 


/*=========================== Fixed codebook search =======—=======—— */ 

20 FLOAT64 **fcod, **unfcod; 

FLOAT64 **quaJcod, **qua_unfcod; 

/ * = =^ ======M===ra= =========^^ 

/*z==™=========™===-==== Residual and target signal buffer ====-============*/ 

25 ^ mmsm—mmss ^^ 


=*/ 


Gain VQ ==============-====-==============*/ 

=== „ === „ = ====================^ 

INT16 GainNonnDcci, GainModiDeci; 

FLOAT64 pgain_past; 
35 FLOAT64 pgain_past_dcc; 

FLOAT64 **qua_gainQ; 

FLOAT64 **gain_cb_2_128; 
40 FLOAT64 **gain_cb_2_128_8_5; 


/*= 
30 /*= 
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FLOAT64 *pasi_encrgyq_4d; 
FLOAT64 *past_encrgyq_3 d "> 
5 FLOAT64 *past_encrgyq_2d; 

FLOAT64 *gp_buf; 

FLOAT64 past_fixed_energy; 

10 

FLOAT64 *Prev_Beta_Pitch; 

FLOAT64 *energy_j>red_coeff_l; 
15 FLOAT64 *encrgy_pred_coeff_2; 
FLOAT64 *cnergy_pred_cocff_3; 

FLOAT64 *energy_pred_coeff4d_l; 
FLOAT64 *energy_pred_cocfT4d_2; 
20 FLOAT64 *energy_pred_coefT4d_3; 
FLOAT64 *cnergy_pred_cocfT4d_4; 

FLOAT64 *pred_energy_d38; 
FLOAT64 *prcd_encrgy_d410; 
25 FLOAT64 gp_incan; 
FLOAT64 gpjec; 

tfinclude "gain^vq.tab" 

30 




^* === = == — ========:======— ========== LSF quantizers 

35 

FLOAT64 ***Isf_cb_08k; 
FLOAT64 ***Isf_cb_40k; 
FLOAT64 ***lsf_cb_85k; 

40 INT 16 *stage_cand_08k; 


===*/ 
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1NT16 *stage_cand_40k; 
INT16 *stage_cand_85k; 


5 ^include M lsf_vq.tab" 


INT16 *MSJ)8k; 
INT16 *MS_40k; 
10 1NT16 *MS_85k; 

FLOAT64 *last_qlsf; 

FLOAT64 *lsfq_old, *lsfq_old_dec; 

FLOAT64 *Mcan; 

15 

FLOAT64 **qes; 
FLOAT64 **qes_dec; 


20 FLOAT64 *lsfq_mcni_dcc; 
FLOAT64 *lsfq_mem_enc; 


/»==„================================================== ======== — •/ 

25 /*=============================== PITCH OPEN LOOP ============================*/ 

/ , ========== =™= == == = ===™====™^ 


INT16 *o1Jag; 
INT16 *lag; 
30 1NT16 lagl, lovv_pit, highjrit; 
FLOAT64 *Rp_sub; 


FLOAT64 pitchf; 

35 

/* 


40 FLOAT64 *PitLagTab5b; 
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FLOAT64 *PitLagTab7b; 
FLOAT64 *PitLagTab8b; 

FLOAT64 *SincWindows; 


/*- 


INT16 VOJVmm, pitch_m, pitch_mm, loplO; 

10 INT16 *PITma\0; 

INT16 LagCount, VadCount, Avjag; 


FLOAT64 Rp_jn; 
FLOAT64 *RinaxO; 


15 


FLOAT64 *pitch_f_mcm; 


20 /-*= 
/*= 
/*= 


=== CLOSED PITCH PROCESSING = 


FLOAT64 *cxt; 
25 FLOAT64 *SincWindo\vs_E; 
FLOAT64 *NewTg; 
FLOAT64 *lag_f; 

INT 16 pitch_index, pre_pitch_index; 


30 /*== 
/*== 
/*== 


PITCH PRE-PROCESSING = 


FLOAT64 *SincWindows_PP; 

35 

FLOAT64 Dclay_pp, Last_Rp; 
INT 16 framc_class __pp_m; 
FLO AT64 * targ_mem; 
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/*=========================== PRC LIBRARY PROCESSING =====================-==*/ 

FLOAT64 clJEg, o1_Eg; 
5 FLOAT64 m_lpc _gain; 

GCB LIBRARY PROCESSING ========================*/ 


10 

INT64 sccd_exc; 
FLOAT64Zl_gcb; 
FLOAT64 rcf_eng_gcb; 
INT16 rate mem; 

15 

INT64 secd_dcc; 

/♦==^======================== CLA LIBRARY PROCESSING ======================*/ 

20 /*=========^==========^ 

INT16 VUV, VUVm; 

INT16 frame_class, frame_class_m, framc_class_pp; 
25 FLOAT64 energy, energy_in; 
INT16 framc_onsel; 

INT16 frame_pit_tab, min_pit, inax__pit; 

30 INT 16 *frame_class_niem, *onstplsv_mem, *voiced_mcm; 

FLOAT64 *\vindowl; 

FLOAT64 *buffer_cla; 

FLOAT64 *Lp_buflcr; 

FLOAT64 *buffer_reflO; 
35 FLOAT64 *bufiFer_max_cla; 

FLOAT64 *buffcr_wtilt, *bufTer_\vmax, *bufTer_wRp; 

FLOAT64 E_noi, T_noi, M_noi, R_noi; 

FLOAT64 **P_w, MA_avg_wRp, MA_min_wtilt; 

40 INT16 SVS_Count, Vad_0_Count, FlatSp_Flag; 
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FLOAT64 Av_va!uc; 


, •/ 


5 FLOAT64 Rp_m_cla, Ipcg_m_cla; 


/*- 


FLOAT64 av_pitjag, av_pit_g; 
10 INT16 PP_model__m, PPJnn_count; 


//INT 16 SVS_deci_m; 

15 


INT16 OnSet; 
20 INT 16 frame class mm; 


INT 1 6 S VS_dcci_mcm; 

25 

/* 


-V 


— +/ 


-*/ 


30 VAD LIBRARY PROCESSING = 

/+========= ^ ========== ====== = ============================= 

INT 16 *lag_buf; 
FLOAT64 *pgain_buf; 

35 

INT16 Vad, *flag_vad_mem; 

INT 16 flag; 
INT 16 count_sil; 
40 INT16 count ext; 
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INT 16 count_noisc; 
INT16 dec3_ng_mem; 
INT16 onset_flg t count_onscl; 

5 FLOAT64 pitch _gain_mean; 

FLOAT64 **vadjsf_mem; 

FLOAT64 min_cnergy; 

FLOAT64 mean encrgy; 

FLOAT64 *prev_cml_lsf_difl; 
10 FLOAT64 *prcv_cnergy; 

FLOAT64 snr; 

FLOAT64 mean_max; 

FLOAT64 mean_s_energy; 

FLOAT64 prev_min_cncrgy; 
15 FLOAT64 *min_cnergy_mem; 

FLOAT64 next_min_energy; 

FLOAT64 *meanjsf; 

FLOAT64 *norm_mcan_lsf; 

FLOAT64 cmljsf_diff_iilt; 
20 FLOAT64 onsctjrhsd; 


25 / 


/+== ^ ============£============= ===== == SNR LIBRARY PROCESSING ====================—*/ 


FLOAT64 NoiseGainFactor; 


INT 16 n_nois_ext_cnc; 
30 FLOAT64 NoisEng_enc, eng_old_enc, difr_lsf_m_enc, diff_eng_m_enc; 
INT16 snr_fnn_count, snr_count_vad; 
FLOAT64 eng_m_enc; 


35 /te ™™==™=™=====™^^ 

SMO LIBRARY PROCESSING 

FLOAT64 *lsf_smooth; 

40 
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INT 16 N_mode_sub_est, N_inode_frm; 
FLOAT64 *lsf_old_smo, *ma_lsf, *dSP_buf; 
INT 16 *N_sub; 


5 INT 16 consccjow, consec_high, consec_vad_0; 
INT16 updatcs_noise, updaies_spcech, calls, lev_reset; 
FLOAT64 ma__max_noise, ma max speech; 
FLOAT64 *buflcr_smo, *buffer_p, ma cp; 
FLOAT64 *bufTer_sum_smo, *bufTcr_max_smo; 


INT 16 N_modc_sub_rcf, consec; 
1NT16 updates; 
FLOAT64 ma_max; 

/*======================= 


FCS LIBRARY PROCESSING 


20 FLOAT64 lpcg_m, alpha; 
INT16 lag_m, SVS_flag_m; 

FLOAT64 *\vsp_m; 

25 FLOAT64 *hhjif; 

FLOAT64 **PHI; 


INT 16 *MaxIdx; 
INT16 **track; 

30 

INT16 **p_track_2_5J) ( **p_track_2_7_l; 
INT16 ***pjrack_3_2_80, ***p_track_3_2_54; 

INT 16 **p_lrack_5_4_0, **p_track_5_3_l, **p_track_5_3J2, **p_track__8_4_0; 
35 FLOAT64 **unfcod__dec; 


/* 13 bits */ 
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FLOAT64 StabJ3b_enc; 
FLOAT64 Stab 13b dec; 


167 


/* 

5 /* 

/* 


15 bits 


INT64 seed_bfi_exc; 
FLOAT64 Stab_l 5b_cnc; 

10 FLOAT64 Stab_15b_dcc; 


• FRAME ERASURE CONCE ALEMENT === 


15 

INT 1 6 N_bfi, bni_oh; 
INT16 past_bfi, ppast_bfi; 
INT16 bfi_caution, nbficount; 
FLOAT64 *cnrg_bufT; 
20 FLOAT64 *ext dec mem; 


25 


FLOAT64 *$ynlh_iiicm, *synth_in 
FLOAT64 *qua_synth_mcm, *qua 
FLOAT64 *sigsyn_dec, *ext_dec; 


SIGNAL SYNTHESIS 

======= =================^==================-=*/ 


cin^dec, *dif_mem, *target_mem; 
_dif_mem, *qua_targct_mem 1 *qua_cxl; 


30 /*= 
/*= 
/*= 


INDEX 


==*/ 


INT16 *bitnoO t *bitnol; 


35 


/* 

/ * SSSS=SB „„ M== 


END 


40 
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/* Conexant System Inc. *' 
5 /* 43 1 1 Jamboree Road *' 
/* Newport Beach, CA 92660 

/ 

/* Copyright(C) 2000 Conexant System Inc. */ 

/ 

10 /* ALL RIGHTS RESERVED: *' 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

/ * = ============:=================== : ===== ==1=:============== 

15 /* LIBRARY: gputilx *' 

/* = ====:=========================== := = ====================: 

•/ 

/* INCLUDE * 7 

*/ 

20 /* 


#include "typcdcf.h" 

#include "main-h" 
25 #include "mcutil.h" 
#include "gputil.h" 


/*- 
/*- 
30 /*- 


FUNCTIONS 


/* FUNCTIONS file_opcn__r 0 


♦/ 


-*/ 


35 /* PURPOSE : These functions open the file named filc_name,V 
/* and return a pointer to this file. */ 

/* 

/* INPUT ARGUMENTS : _ file name. 
/♦ — 

40 /* OUTPUT ARGUMENTS : _Nonc. 


*/ 
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--*/ 


/* RETURN ARGUMENTS : _ pointer lo the file. 


5 FILE *file_ppen_r ( char *file_name ) 

{ - 

/* 


-*/ 


10 


FILE *file_ptr; 


/* 


if ( (file_ptr = fopen ( file_name, V ) ) == NULL) 
{ 

15 tfifdef VERBOSE 

printf("\niile name : %s\n'\ file_name); 
nrerror ("error opening file (r) ..."); 

#endif 

} 

20 

/* 


-*/ 


return (filc_ptr); 


25 


/*- 


30 

/* FUNCTIONS : file open w () 


-*/ 


/* PURPOSE These functions open the file named file_name,*/ 

/* and return a pointer to this file. */ 

35 /* 

/* INPUT ARGUMENTS : _ file name. 
/* 


/* OUTPUT ARGUMENTS : _ None. 
/* 


40 /* RETURN ARGUMENTS : _ pointer to the file. 


-*/ 


*/ 


-*/ 


*/ 
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FILE *file_open_\v ( char *file_name ) 
{ 

/* 


FILE *file_ptr; 


/*- 


10 

if ( (file_ptr = fopen ( filename, "w" ) ) == NULL) 
{ 

#ifdef VERBOSE 

printf("\nfile name : %s\n'\ file_namc); 
15 nrerror Terror opening file (w) ..."); 

#endif 

} 


20 


return (filc_ptr); 


/*- 


-*/ 


25 


*/ 


30 /*- 


/* FUNCTIONS : file_open_rb 0 


*/ 


/* PURPOSE : These functions open the file named filc_namc,*/ 
/* and return a pointer to this file. */ 
/* 


/* INPUT ARGUMENTS : _ file name. 
35 /* 


/* OUTPUT ARGUMENTS : _ None. 

/* RETURN ARGUMENTS : _ pointer to the file. 

/ +========================== == === ==== 


40 


-V 


*/ 


*/ 
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FILE *file_open_rb ( char *file_naine ) 
{ 

/* 


FILE *fi1e_ptr; 


+/ 


if ( (filc_ptr = fopen ( filc_namc, "rb" ) ) = NULL) 
10 { 
#ifdef VERBOSE 

printf( M \nfile name : %s\n*\ file_name); 
nrerror ("error opening file (rb) ..."); 

#cndif 
15 } 


/* 


-*/ 


20 


return (file_ptr); 


/*- 


/* 


25 


/*============================ 

/* FUNCTIONS : file_open_wb 0 
/* 


*/ 


-*/ 


/* PURPOSE These functions open the file named fllc_namc,V 

30 /* and return a pointer to this file. */ 

/* */ 

/* INPUT ARGUMENTS : _ file name. */ 


/* 

/* OUTPUT ARGUMENTS : _ None. 
35 /* 


/* RETURN ARGUMENTS : _ pointer to the file. 


-*/ 


FILE *file_open_wb ( char *filc_name ) 
40 { 
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/* V 


FILE *file_ptr; 


/*- 


if ( (file_ptr = fopen ( file_name, "wb w ) ) == NULL) 
{ 

#ifdef VERBOSE 
10 printf( H \nfilc name : %s\ir, filc_name); 

nrerror ("error opening file (wb) 

tfcndif 

} 


15 


return (filc_plr); 


20 } 


*/ 


25 /* FUNCTIONS output_\vavcs_file () */ 


/* 

/* PURPOSE These functions writes an array of double in */ 

/* XWAVES format file. */ 

*/ 

30 /* INPUT ARGUMENTS : _ (char *) file_name : name of the xwaves file.*/ 
/♦ ; _ (FLOAT64 *) x : array of double. */ 

:_(INT32)N : size of the x array. */ 

(FLOAT64) scale : scale value. */ 
(FLOAT64) min : min range value. */ 
35 /* : _ (FLOAT64) max : max range value. */ 

/* V 

/* OUTPUT ARGUMENTS : _ None. */ 

/* */ 

/* RETURN ARGUMENTS : _ pointer to the file. */ 
40 /♦= ====«====^====»— ============ = = =SM!=S==5=S=S 


/* 
/* 
/* 
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void output_wavcs _file ( char *filc_namc, FLOAT64 *x, INT32 N, FLOAT64 scale, \ 

FLOAT64 inin, FLOAT64 max ) 


10 


FILE *filc_pir; 
INT32 i; 
INT16 *waves; 


-*/ 


waves = svector (0, N-l); 


15 


file_ptr = filc_opcn_wb (file_name); 


waves 101 = (INT16)(max); 
waves (1] = (INT16)(inin); 


20 


fwrile (waves, sizeof (INT16), 2L, file_ptr); 


for ( i = 0; i < N; i -M- ) 

waves [i] = (INT16)(scale * x [i]); 


25 


fwrite (waves, sizeof (INT 16), N, file_ptr); 


30 


fclose (file_ptr); 


free svector (waves, 0, N-l); 


return; 


-*/ 


35 


-*/ 


40 /* 


=*/ 
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/♦ 
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/* PURPOSE This function returns the length of a file in */ 

y* bytes. *' 


5 /* 


*/ 


-*/ 


*/ 


/* INPUT ARGUMENTS : __ Pointer to a file. 

/* 

/* OUTPUT ARGUMENTS : _ None. 

/* 

10 /* RETURN ARGUMENTS : _ Length of the file in bytes. */ 


INT64 filejength ( FILE *filc_ptr ) 
{ 

15 /* 


20 


INT64 file size; 


file size = ftcll(file_ptr); 


-*/ 


/* 


25 


return (file_size); 


-*/ 


30 /*- 


/* FUNCTION 
/* 


rcad_signal_double () 


-*/ 


35 /* PURPOSE This function reads short samples from a file */ 

/* stores them in an array of double. */ 

,* */ 

/* INPUT ARGUMENTS : _ Name of the signal file. */ 
/* _ Number of samples. */ 
40 /* 


•*/ 
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/♦ OUTPUT ARGUMENTS : _ Array of double. */ 

/♦ */ 

/* RETURN ARGUMENTS : _ None. */ 

5 

void rcad_signal_double ( FILE *filc__ptr, FLOAT64 *array, INT64 N ) 
{ 

/* «7 

10 INT16 *array_shorl; 

INT64 i; 

/* */ 

15 array_short = svecior (0, N-l); 

if ( ( fread (array_short, sizeof (INT 16), (INT32) N, file_ptr) ) != 
(sizc_t)N) 

20 nrerror ("error reading file ..."); 

for ( i = 0; i < N; i ++ ) 

*(array+i) = (FLOAT64) (*(array_short+i)); 

25 free svector (array_short, 0, N-l); 

return; 

30 

/* =*/ 

} 

35 

/* FUNCTION \vrilc_signal_double () */ 
,* */ 

/* PURPOSE This function writes short samples to a file */ — ' 

40 /* from an array of double. */ 
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/* 

/* INPUT ARGUMENTS : _ Array of double. 
/* _ Number of samples. - *' 

: •/ 

5 /* OUTPUT ARGUMENTS : _ Output short file. *' 



/* RETURN ARGUMENTS : _ None. *' _ 

/♦========================== ========= 

10 void write_signal_double ( FILE *f.le_ptr, FLOAT64 'array, INT64 N ) 
{ 

" 

INT16 *array_short; 
15 INT64 i; 


20 


25 


30 


40 /* 


/*- 


arrayjshort = svector (0, N-l); 

for(i=0;i<N;i++) 

*(array_short+i) = (INT 16) nint (*(array+i)); 

if ( ( f\vritc (array.short, sizeof (INT16), (INT32) N, filcjtr) ) != 

(sizcJ)N) 
nrcrror Terror writing file ..."); 

free svector (array_short, 0, N-l); 


/*- 


-*/ 


return; 


35 /* 
} 


— */ 
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/♦FUNCTION : gct_int (). */ 

/* */ 

/* PURPOSE These function read a value from a text file. */ 

/* */ 

5 /* INPUT ARGUMENTS : _ file pointer. */ 

/* OUTPUT ARGUMENTS : _ (1NT32*) val : output value. 

/* */ 

/* RETURN ARGUMENTS : _ None. */ 

10 /*==========================================-==== : 


void get_int ( FILE *file_ptr, INT32 *val ) 
{ 


15 


char buffer [NB_MAX_CHAR] ; 


-V 


20 fgets ( buffer, NB _MAX_CHAR, filc_ptr ); 

sscanf ( buffer, "%d M , val ); 

/* */ 


25 


return; 

/* */ 

} 


30 


/♦- 


/* FUNCTION : get_two_int (). */ 

35 /♦ _ */ 

/* PURPOSE : These function read two values from a text file. */ 

/* */ 

/* INPUT ARGUMENTS : _ file pointer */ 

/* */ 

40 /* OUTPUT ARGUMENTS : */ 


: <WO 01224Q2A1 J_ > 


WO 01/22402 


178 

/* _ (INT32*) val 1 : output value. */ 

/* _ (INT32*) va!2 : output value. */ 

1 •/ 

/♦ RETURN ARGUMENTS : _ None. *' 
5 / * ======= ================================ ==== ~ 


void get_t W o_int ( FILE *file_ptr, INT32 *va!l, INT32 *val2 ) 
{ 

,* */ 

10 

char buffer [NB_M AX_CHAR] ; 


/* *' 


15 fgets ( buffer, NB.MAX JTHAR, file_ptr ); 

sscanf .( buffer, *%d %d'\ vail, vaI2 ); 

,* */ 

20 

return; 


,* •/ 

25 

/. ~ */ 




/* FUNCTION : gel Jong (). * ! 

*/ 

30 /* ' 

/* PURPOSE : These function read a value from a text file. */ 

*/ 

/* INPUT ARGUMENTS : _ file pointer. */ 

/* ' 

35 /* OUTPUT ARGUMENTS : _ (1NT64*) val : output value. */ 

*/ 


/* 

/* RETURN ARGUMENTS : _ None. 


*/ 


40 void get Jong ( FILE *file_ptr, INT64 *val ) 
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{ 

/* 

char buffer [NB_MAX_CHAR]; 


-*/ 


-*/ 


fgets ( buffer, NB_MAX_CHAR, file_ptr ); 
10 sscanf ( buffer, "%ld B , val ); 


-*/ 


return; 


15 


/*- 

} 


-*/ 


/*- 

20 


/♦FUNCTION : gcijloal 0- *' 

/* */ 

25 /* PURPOSE These function read a value from a text file. */ 

/* */ 

/* INPUT ARGUMENTS : _ file pointer. */ 

/♦ */ 

/* OUTPUT ARGUMENTS : _ (FLOAT32*) vat : output value. */ 

30 /* */ 

/* RETURN ARGUMENTS : _ None. */ 

/*===========:=====================-================== 


void get_FLOAT32 ( FILE *file_ptr, FLOAT32 *val ) 
35 { 

/♦ V 

char buffer j"NB_M AX_CH AR] ; 
40 /* */ 
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fgcis ( buffer, NBMAXCHAR, file_pir ); 


sscanf ( buffer, "%T\ val ); 


/*- 


return; 


10 


15 /*== 


/* FUNCTION 
/+ 


get_double (). 


♦/ 
-*/ 


/* PURPOSE These function read a value from a text file. */ 

/* */ 

20 /* INPUT ARGUMENTS : _ file pointer. */ 

/* */ 

/* OUTPUT ARGUMENTS : _ (FLOAT64*) va! : output value. 
/* -*/ 

/* RETURN ARGUMENTS : None. */ 


25 


*/ 


void get_doubIc ( FILE *file_ptr, FLOAT64 *val ) 
{ 


30 


char buffer [NB_M AX CHAR] ; 


-*/ 


/*- 


35 


fgets ( buffer, NB_MAX_CHAR, filc_ptr ); 


40 


sscanf ( buffer, "%\V\ val ); 


♦/ 
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/*—===«=== 
/* FUNCTION 
10 /* 


ini_d vector 0- 


*/ 
-*/ 


/* PURPOSE This function initializes a vector of FLOAT64 */ 

/* to a given value. */ 

/* •/ 

/* INPUT ARGUMENTS : _ (FLO AT64*) v vector of double. 
15 /* _(INT32)nI */ 

/* _ (TNT32) nil */ 

/* _ (FLOAT64) val */ 

/* */ 

/* OUTPUT ARGUMENTS : _ (FLOAT64*) initialized v vector. 


20 /* 


/* RETURN ARGUMENTS : _ None. 


*/ 


void ini_dvcctor ( FLOAT64 *v, TNT32 nl, INT32 nh, FLOAT64 val ) 
25 { 


-*/ 


INT32 i; 


30 


35 


for (i = nJ; i <= nh; i ++) 
v [i] = val; 


return; 


40 


/*- 
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*/ 


/*= 


=*/ 


5 /♦FUNCTION 
/* 


ini svector (). 


*/ 


/* PURPOSE This function initializes a vector of INT16 */ 

/* to a given value. */ 

/* */ 

10 /* INPUT ARGUMENTS : _ (INT16 *) v vector of int. * 
/* _(INT32 )nl V 
/♦ _ (TNT32 ) nh */ 
/* _(INT16 )val */ 
/* */ 

15 /* OUTPUT ARGUMENTS : _ (INT16 *) initialized v vector. 
/* */ 


*/ 


/* RETURN ARGUMENTS : _ None. 


*/ 


20 void ini_svcctor ( INT16 *v, INT32 nl, INT32 nh, INT16 val ) 
{ 

/* */ 


25 


INT32 i; 


-*/ 


30 


for (i = nl; i <= nh; i ++) 
v [i] = val; 


return; 


35 


/*- 


-*/ 


/*- 


40 
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/♦========= 

/* FUNCTION 
/* 


ini ivector (). 


*/ 
-*/ 


/* PURPOSE : This function initializes a vector of INT32 */ 
5 /* to a given value. */ 

/* */ 

/* INPUT ARGUMENTS : _ (1NT32 *) v vector of int. * 
/* _(INT32 )nl */ 

/* _(INT32 )nh */ 

10 /* _(INT32 )val */ 


*/ 


/* OUTPUT ARGUMENTS : _ (INT32 *) initialized v vector. 

/. */ 

/* RETURN ARGUMENTS : _ None. 

15 


*/ 


void inUvector ( INT32 *v, INT32 nl, INT32 nh, INT32 val ) 
{ 

/* 


20 


INT32 


*/ 


25 


for(i = nl; i <= nh; i ++) 
v |ij = val; 


30 


return; 


/*- 


35 /*- 


/*=======================«=== 

/* FUNCTION : cpy_svcctor (). 
/* 


40 /♦PURPOSE 


*/ 
-*/ 


This function writes vl to v2. 


*/ 
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/* */ 

/* INPUT ARGUMENTS : _ (INT16 *) vl vector of short. 
/* _ (INT16 *) v2 vector of short. */ 

/* _ (INT32) nl */ 

5 /* _ (INT32) nh */ 

/♦ . */ 

/* OUTPUT ARGUMENTS : _ (INT16*) new v2 vector. 

/* */ 

/* RETURN ARGUMENTS : _ None. */ 

10 


15 


void cpy_svector ( INT 16 *vl, INT16 *v2, 1NT32 nl, INT32 nh ) 
{ 

/* V 

INT32 i; 


-*/ 


20 for (i = nl; i <= nh; i ++) 

v2 fi] = vl 


/*- 


25 return; 


/* */ 

} 


30 /*- 


/* */ 

/♦FUNCTION : cpyjvecior 0- */ 

/# */ 

/♦PURPOSE This function writes vl to v2. */ 
/* */ 


40 /* INPUT ARGUMENTS : _ (INT32*) vl vector of int */ 
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/* 
/* 
/*- 


_ (INT32*) v2 vcclor of int. 
_ (1NT32) nl 
_ (INT32) nh 


185 
*/ 


*/ 
♦/ 


5 /* OUTPUT ARGUMENTS : _ (INT32*) new v2 vector. 

/* */ 

/* RETURN ARGUMENTS : _ None. 


*/ 


10 void cpyjvector ( INT32 *vl, INT32 *v2, INT32 nl, 1NT32 nh ) 
{ 

f* */ 


15 


INT32 i; 


/+- 


20 


for (i = nl; i <= nh; i ++) 
v2|i] = vl [i]; 


/*— 


return; 


25 


-*/ 


30 /♦ 


/* FUNCTION : cpy_dvcctor 0- 
/♦ 


/* PURPOSE 
/* 


This function writes vl to v2. 


*/ 
-*/ 

-*/ 


*/ 


35 /* rNPUT ARGUMENTS : _ (FLO AT64*) vl vector of double. 
/* _ (FLOAT64*) v2 vector of double. */ 
/* _ (INT32) nl */ 
/* _ (INT32) nh */ 
/* 


-*/ 


40 /* OUTPUT ARGUMENTS : _ (FLOAT64*) new v2 vector. 


*/ 


BNSDOCID: <WO . _0122402A1 t .> 


WO 01/22402 


PCT/USOO/25182 


186 


/* RETURN ARGUMENTS : _ None. 


5 void cpy_dveclor ( FLOAT64 *vl, FLOAT64 *v2, INT32 nl, 1NT32 nh ) 


10 


INT32 i; 


-*/ 


15 


for (i = nl; i <= nh; i ++) 
v2 [i] = vl [i]; 


return; 


20 


/*- 


25 /*======== 

/* FUNCTION 
/* 


sfr ivector (). 


*/ 
--*/ 


/* PURPOSE : This function shift rigth v elements of n */ 
/* position. */ 
30 /* 


-*/ 


/* INPUT ARGUMENTS : _ (1NT32 *) vl vector of int. */ 
/* _ (INT32) n number of rigth shift */ 

/* _ (INT32) nl lower index */ 

/* _ (INT32) nh higher index */ 

35 /* */ 

/* OUTPUT ARGUMENTS : _ (INT32 *) v2 shifted rigth vl vector. */ 
/* */ 


/* RETURN ARGUMENTS : _ None. 


*/ 


40 


=*/ 
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void sfrjvcctor ( TNT32 *vl, INT32 *v2, INT32 n, INT32 nl, 1NT32 nil ) 
{ 


INT32 i; 


*/ 


10 


for (i = nh-n; i >= nl; i — ) 
v2U+nl=vl [ij; 


-*/ 


15 


return; 


/*- 


-*/ 


*/ 


20 /*======= 

/* FUNCTION 
/* 


sfr_dvector 0- 


*/ 


/* PURPOSE This function shift roigth v elements of n */ 

/* position. */ 
25 /* */ 

/* INPUT ARGUMENTS : _ (FLOAT64*) vl vector of double. 

/* _ (INT32) n number of rigth shift */ 

/* _ (TNT32) nl lower index 

/* _ (1NT32) nil higher index 
30 /* 


*/ 
*/ 
— */ 


/* OUTPUT ARGUMENTS : _ (FLOAT64*) v2 shifted rigth vl vector. */ 

/* *' 

/* RETURN ARGUMENTS : _ None. */ 


/*=== 


35 


void sfr_dvector ( FLOAT64 *vl, FLOAT64 *v2, 1NT32 n, INT32 nl, INT32 nh ) 
{ 

/* */ 


40 


INT32 i; 


BNSDOCID: <WO _ 0122402A1 I > 


WO 01/22402 PCT/USOO/25182 


188 


for (i = nh-n; i >= nl; i — ) 
v2 li+nl = vl [il; 


/*- 


10 


return; 


15 


/* FUNCTION 


rev dvectorO- 


*/ 
-*/ 


/* PURPOSE This function reverse the order of tlic */ 
20 /* elements of a vector. */ 
/* 


/* INPUT ARGUMENTS : _ (FLOAT64*) vl vector of double. 
/* _ (INT32) nl lower index */ 
/* _ (INT32) nh higher index 
25 /* 


*/ 


/* OUTPUT ARGUMENTS : _ (FLOAT64*) v2 reversed vl vector. 

/* */ 

/* RETURN ARGUMENTS : _ None. *' 

/+===2=s============ =====================-======== 


30 


*/ 


void rev_dvector ( FLOAT64 *vl, FLOAT64 *v2, INT32 nl, INT32 nh ) 
< 

/* 


-*/ 


35 


INT32 i; 


40 


for (i = nl;i<= nh; i++) 
v2 (i] = vl |nh-i]; 
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-*/ 


return; 


— */ 


/*- 


-*/ 


10 


/* FUNCTION 
/* 


/* PURPOSE 
15 /* s. 
/* 


sca_dvcc(or 0- 


This function scale vl into v2 by the factor */ 
*/ 

*/ 


/* INPUT ARGUMENTS : _ (FLOAT64*) vl vector of double. */ 
/* _(FLOAT64) s scale factor. */ 

/* _ (INT32) nl */ 

20 /* _(lNT32)nh */ 

/* »-*/ 

/* OUTPUT ARGUMENTS : _ (FLOAT64*) v2 scaled vector. */ 

/* ♦/ 

/* RETURN ARGUMENTS : _ None. */ 

25 /*==============================================-======== 


=*/ 


==*/ 


30 


void sca_dveclor ( FLOAT64 *vl t FLOAT64 s, FLOAT64 *v2, INT32 nl, INT32 nh ) 
{ 

/♦ */ 

1NT32 i; 


/*- 


-*/ 


35 


for (i = nl; i <= nh; i ++) 
v2 [i] = s* vJ lij; 


/*-- 


-*/ 


40 


return; 
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/*- 


-*/ 


5 /*- 


/*========== 

/* FUNCTION 
/* 


dot_d vector Q. 


*/ 
-*/ 


10 /* PURPOSE This function calculate the dot product 

/+ between vl and v2 */ 


-*/ 


*/ 


/* INPUT ARGUMENTS : _ (FLOAT64*) vl vector of double. 
/* _ (FLOAT64*) v2 vector of double. */ 
15 /* _(INT32)nl 
/* _ (INT32) nil 
/* 


*/ 
*/ 


V 


/* OUTPUT ARGUMENTS : 
/* _ (FLOAT64 *) s dot product. 
20 /* : 


*/ 


*/ 
-*/ 


/* RETURN ARGUMENTS : _ None. 


*/ 


void dot_dvector ( FLOAT64 *vl, FLOAT64 *v2, FLOAT64 *s, INT32 nl, INT32 nh ) 
25 { 

/*- 


-*/ 


INJ32 i; 


30 


/*- 


-*/ 


(♦s) = 0.0; 


35 


for (i = nl; i <= nh; i ++) 

(*s>+= vl [i] * v2 lij; 


/*- 


-*/ 


40 


return; 
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/*- 

) 


*/ 


/* 

5 

/* FUNCTION : add_dvcctor 0- +/ 

/* */ 

/* PURPOSE This function adds vl to v2 in v. */ 

10 /* */ 

/* INPUT ARGUMENTS : _ (FLOAT64*) vl vector of double. V 
/* _ (FLOAT64*) v2 vector of double. */ 

/* _ (INT32) nl */ 

/* _ (INT32) nh */ 

15 /* */ 

/* OUTPUT ARGUMENTS : _ (FLOAT64*) v=vl+v2 vector. */ 

/+ */ 

/* RETURN ARGUMENTS : _ None. */ 


=*/ 


20 

void add_dvector (FLOAT64 *vl, FLOAT64 *v2, FLOAT64 *v t rNT32 nl, INT32 nli ) 
{ 

/* */ 

25 1NT32 i; 


for (i = nl; i <= nh; i ++) 
30 v [i] = vl |ij + v2 li]; 


return; 

35 

/* ♦/ 

} 

40 
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/*========================================== 


/* FUNCTION : wad_d vector (). */ 

/* */ 

/* PURPOSE This function adds vl to v2 in v. */ 

5 /* */ 

/* INPUT ARGUMENTS : _ (FLOAT64*) vl vector of double. */ 
/* _ (FLO AT64 ) w 1 weigth for v 1 . */ 

/* _ (FLOAT64*) v2 vector of double. */ 

/* _ (FLOAT64 ) w2 weigth for v2. */ 

10 /* _(INT32)nl */ 

/* _ (INT32) nh */ 

/* */ 

/* OUTPUT ARGUMENTS : _ (FLOAT64*) v = wl * vl + w2 * v2 vector. */ 
/* */ 

15 /* RETURN ARGUMENTS : _ None. */ 


void \vad_dvector ( FLOAT64 *vl, FLOAT64 wl, FLOAT64 *v2, FLOAT64 w2, 

FLOAT64 *v t INT32 nl, INT32 nh ) 

20 { 

/* */ 

INT32 i; 

25 /* */ 

for (i = nl; i <= nh; i ++) 

v[i] = wl *vl [i] + w2 * v2 [ij; 

30 /* */ 

return; 


35 } 


/*======================= 

40 /* FUNCTION muLdvector Q- 
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— */ 


/* PURPOSE This function multiply vl by v2 in v. * 

/• •/ 

/* INPUT ARGUMENTS : _ (FLO AT64*) vl vector of double. 
5 /* _(FLOAT64*)v2 vector of double. */ 

/* _(TNT32)nl */ 

/* _ (INT32) nh */ 

/♦ •/ 

/* OUTPUT ARGUMENTS : _ (FLOAT64*) v=vl*v2 vector. 


10 /*- 


/* RETURN ARGUMENTS : _ None. 


*/ 


/* 


void mul_dvector (FLOAT64 *vl, FLOAT64 *v2, FLOAT64 *v, 1NT32 nl, INT32 nh ) 
15 { 


INT32 i; 


20 


-*/ 


for (i = nl; i <= nh; i ++) 

v[i] = vl [i]*v2 [t]; 


25 


/* 


30 


return; 


-<7 


/*- 


35 /* FUNCTION 


dif dvectorQ. 


*/ 


/* PURPOSE This function substracts v2 to vl into v. */ 

/* INPUT ARGUMENTS : _ (FLOAT64*) vl vector of double. 
40 /* _ (FLOAT64*) v2 vector of double. */ 
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/* 


(INT32) nl 
(INT32) nh 


*/ 


-*/ 


/* OUTPUT ARGUMENTS : _ (FLOAT64*) v=vl-v2 vector. 


5 /* 


/* RETURN ARGUMENTS : _ None. 


void dif_dvcctor (FLOAT64 *vl, FLOAT64 *v2, FLOAT64 *v, INT32 nl, INT32 nh ) 
10 { 


INT32 i; 


15 


-*/ 


for (i = nl; i <= nh; i ++) 

v[i] = vl ft]-v2 [i| 


20 


-*/ 


25 


return; 


-*/ 


30 /* FUNCTION 
/* 


/* PURPOSE 
/♦ 


cml_dvector (). 


*/ 


This function accumulates v2 to vl. 


/* INPUT ARGUMENTS : _ (FLO AT64*) vl vector of double. 

35 /* (FLOAT64*) v2 vector of double. */ 

/* _(lNT32)nl */ 

/♦ _(INT32)nh */ 

/* */ 

/* OUTPUT ARGUMENTS : _ (FLOAT64*) new vl=vl+v2 vector. 

40 /* */ 


*/ 
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/* RETURN ARGUMENTS : _ None, 


void cmLdvector ( FLOAT64 *vl t FLOAT64 *v2, INT32 nl, INT32 nh ) 
5 { 

/*_ */ 

INT32 i; 


10 


/*- 


-*/ 


for (i = nl; i <= nh; i ++) 
vl [i]+=v2 [i]; 


15 


/* 


20 


return; 


25 /* FUNCTION : cml_svector (). 
/* 


/* PURPOSE 
/* 


This function accumulates v2 to vl. 


*/ 
-*/ 

*/ 


/♦ INPUT ARGUMENTS : _ (INT 16*) vl vector of short. 

30 /* _(INTl6*)v2 vector of short. */ 

/* _(rNT32)nl */ 

/* _ (INT32) nh */ 

/♦ */ 

/* OUTPUT ARGUMENTS : _ (FLOAT64*) new vl=vl+v2 vector. 

35 /♦ */ 

/* RETURN ARGUMENTS : _ None. */ 


void cml_svcctor ( 1NT16 *vl, INT16 *v2, INT32 nl, INT32 nh ) 
40 { 
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-*/ 


-*/ 


for (i = nl; i <= nh; i ++) 
vl[i]+=v2 [i], 


10 


15 


return; 


/* 


-*/ 


20 /* FUNCTION 
/* 


/* PURPOSE 
/* 


maxdveclor 0- 


-*/ 


This function finds the maximum of v. 
*/ 


/* INPUT ARGUMENTS : _ (FLO AT64*) v vector of double. 
25 /* _(INT32) nl 
/* _(INT32) nh 
/* 


*/ 


*/ 


/* OUTPUT ARGUMENTS : _ (FLOAT64*) max. 


/*- 


*/ 


*/ 


*/ 


30 /* RETURN ARGUMENTS : _ None. 


35 


void max_dvcctor ( FLOAT64 *v, FLOAT64 *max, INT32 nl, INT32 nh ) 
{ 


INT32 i; 


40 


3NSDOCID: <WO 0122402A1 I > 


WO 01/22402 


PCT7US00/25182 


197 

for ( i = nl+l, *max = *(v+nl); i <= nh; i ++ ) 

♦max = ((*(v+i) > *max) ? *(v+i) : *max); 


return; 


10 


/*- 


/*== 


/* FUNCTION min_dvcctor 0- 
15 /* 


-*/ 


/* PURPOSE This function finds the minimum of v. 

/♦ V 

/* INPUT ARGUMENTS : _ (FLO AT64*) v vector of double. 
/* _(INT32) nl */ 

20 /* _(INT32) nh */ 

/* */ 

/* OUTPUT ARGUMENTS : _ (FLOAT64*) min. 

/* */ 


/* RETURN ARGUMENTS : _ None. 

25 /*========================= 


*/ 


void mindvccior ( FLOAT64 *v, FLOAT64 *min, INT32 nl, INT32 nh ) 
{ 

/'* */ 


30 


INT32 i; 


35 


for ( i = nl+1, *min = *(v+nl); i <= nh; i ++ ) 

*min = ((*(v+i) < *min) ? *(v+i) : *min); 


40 


return; 
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/*- 


5 /*- 


/* FUNCTION limit_dvector 0- #/ 
*/ 


/ 

10 /* PURPOSE This function limits the range of v. */ 

/* *' 

/* INPUT ARGUMENTS : _ (FLOAT64*) v vector of double. */ 
/* _(INT32) nl */ 

/* _ (INT32) nh */ 

15 /* _(FLOAT64) min */ 

/* _(FLOAT64) max */ 

/* */ 

/* */ 

/* RETURN ARGUMENTS : _ None. */ 

20 /*=====================-"=================== ==::===== 


void limit_dvector ( FLOAT64 *v, INT32 nl, INT32 nh, FLOAT64 min, FLOAT64 max ) 
{ 

/* */ 


25 


INT32 


/*- 


--*/ 


30 for ( i = nl; i <= nh; i ++ ) 

{ 

*(v+i) = ((*(v+i) < min) ? min : *(v+i)); 
*(v+i) = ((*(v+i) > max) ? max : *(v+i)); 
} 


35 


/*- 


return; 


40 
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/* END */ 

5 —————— —— =================== ^= ===== =™=*/ 
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/* Conexant System Inc. 
5 /* 43 1 1 Jamboree Road 
/* Newport Beach, CA 92660 
/♦ 


*/ 


/* Copyright(C) 2000 Conexant System Inc. 
/* 


*/ 

-V 

-*/ 


10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

15 /* PROTOYPE FILE : gputil.h V 

; * == ^ ===:========I======:=========IS==========:===:=:S======;======== 


/*- 

/*- 
20 /*- 


FUNCTIONS 


-*/ 


FILE *file_open_r 

FILE *file_opcn_w 

FILE *filc__open_rb 

25 FILE *file_open_wb 

vo id o u t pu t_wa ves_fi 1 e 


( char * ); 
( char * ); 
( char * ); 
( char * ); 

( char *, FLOAT64 *, INT32, \ 

FLOAT64, FLOAT64, FLOAT64 ); 


30 FNT64 filcjength 


( FILE * ); 


void read_signal_doubie 
void writc_signal_double 


( FILE *, FLOAT64 *, INT64 ); 
( FILE * FLOAT64 * INT64 ); 


35 void getjnl ( FILE *file_ptr, INT32 *val ); 

void gel Jong ( FILE *file_plr, INT64 *val ); 

void get_float ( FILE *file_ptr, FLOAT32 *val ); 

void get_double ( FILE *file_ptr, FLOAT64 *val ); 


40 void get_two_inl 


( FILE *filc - ptr, INT32 INT32 * ); 
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void ini_svector ( INT16 * INT32, INT32, INT16); 

void inMvector ( INT32 *, INT32, INT32, INT32); 

void ini_dvector ( FLOAT64 + y INT32, INT32, FLOAT64 ); 

5 void cpy_svector ( INT16 INT16 MNT32, INT32 ); 

void cpyjvcctor ( INT32 *. JNT32 *, INT32, INT32 ); 

void cpy_dvector ( FLOAT64 *, FLOAT64 * t INT32, INT32 ); 

void rev_dvector ( FLOAT64 * t FLOAT64 *, INT32, INT32); 

10 void sfr_dvector ( FLOAT64 *, FLOAT64 *, INT32, INT32, 1NT32); 

void sfrjvector ( INT32 *, INT32 *, INT32, INT32, INT32); 

void sca_dvcctor ( FLOAT64 *, FLOAT64, FLOAT64 * INT32, INT32); 

void dol dvcctor ( FLOAT64 *, FLOAT64 *, FLOAT64 * INT32, TNT32); 


1 5 void 
void 
void 
void 
void 

20 void 


cml_dvector 

cnil_svector 

maxdvector 

mindvector 

add_dvcctor 

wad dveclor 


void inul dvector 


( FLOAT64 *, FLOAT64 *, INT32, INT32 ); 
( INT16 * , INT16 * , INT32, TNT32 ); 
( FLOAT64 *, FLOAT64 *, INT32, INT32 ); 
( FLOAT64 *, FLOAT64 *, 1NT32, INT32 ); 
( FLOAT64 *, FLOAT64 *, FLOAT64 *, INT32, INT32 ); 
( FLOAT64 *, FLOAT64, FLOAT64 *, FLOAT64, 
FLOAT64 * INT32, INT32); 
( FLOAT64 *, FLOAT64 *, FLOAT64 *, TNT32, 1NT32 ); 


void dif dvector 


25 


( FLOAT64 *, FLOAT64 *, FLOAT64 *, INT32, 1NT32 ); 


void limit dvector ( FLOAT64 * 1NT32, INT32, FLOAT64, FLOAT64 ); 


/* 


END 


BNSOOCID: <WO 0122402A1„L> 


WO 01/22402 


PCT/US00/25182 


202 


=*/ 


/* Conexant System Inc. 
5 /* 43 1 1 Jamboree Road 
/* Newport Beach, CA 92660 
/* 


*/ 
*/ 


*/ 
-*/ 


/* Copyright(C) 2000 Conexant System Inc. */ 

/* */ 

10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 


15 /* PROTOTYPE FILE: lib_bit.c 
/*—=—==—========== 


*/ 


/*- 
/*- 
20 /*- 


INCLUDE 


^include "typedef.h" 
^include "main.h" 
^include "const. h" 
25 ^include "ext var.h" 


^include "gputil.h" 
^include "mcutil.h" 
^include "lib bit.h" 


30 


/*-- 
/*« 


FUNCTIONS 


35 /*= 


/* FUNCTION : BITJnitJib 0 
/* 


*/ 
-*/ 


/* PURPOSE : Performs the bit packing library initialisation. */ 
/* */ 


40 /* ALGORITHM 


V 
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/♦ */ 

/♦ INPUT ARGUMENTS : 

/* _None. */ 
/♦ 


15 void BITJnit Jib (void) 
{ 


bilnoO[0] = 7; 
20 bitno0[l] = 6; 

bitnoO[2J = 2; 

bitnol[0] = 4; 
bitnolll] - 4; 
25 bitnol[2] = 3; 


5 /* OUTPUT ARGUMENTS : 4/ 
/* _None. */ 

/* */ 

/* INPUT/OUTPUT ARGUMENTS : 

/* _ None. */ 

10 /* */ 

/* RETURN ARGUMENTS : */ 
/* None. */ 


return; 

30 

/• ♦/ 

} 

/* */ 

35 


/* FUNCTION : BIT_bUpack (). */ 

/* PURPOSE : This function converts the encoder indices into */ 
40 /* the bit-stream. */ 


=*/ 
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/* INPUT ARGUMENTS : 

/♦ _(INT16)in: inpul data. ♦/ 
/♦ (TNT 16 ) NoOfBits: number of bits. 
5 /♦ 


204 
„„*/ 


/♦ RETURN ARGUMENTS : 
/* _ None. 


*/ 
*/ * 
♦/ 


/* OUTPUT ARGUMENTS : 
/* _ (UNS_INT16 ♦) Tr Words : trasmitted word. 
/* _ (INT 16 ♦) ptr : bit and word pointers. */ 

/* ~ ♦/ 

10 /♦ INPUT/OUTPUT ARGUMENTS ; 

/♦ _ None. ♦/ 

/* ♦/ 


*/ 


void BIT_bitpack (TNT 16 in, UNSJNT16 ♦TrWords, INT16 NoOIBits, 
INT16 ♦ptr) 


20 


/♦- 


INT 16 temp; 

UNS INT 16 ♦WordPtr, 


25 


-♦/ 


WordPtr = TrWords + ptrjlj; 


30 


35 


40 


*ptr -= NoOfBits; 
if (*ptr >= 0) 

♦WordPtr = * WordPtr | (in « ♦ptr); 


else 


{ 

temp = in » (-♦ptr); 
♦WordPtr = *WordPtr | temp; 
WordPtr-M-; 
*ptr = 16 + ♦ptr; 

♦WordPtr = (INT16) ((INT64) ((INT64) in « ♦ptr) & Oxfffi); 
} 
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-*/ 


return; 


10 /* 


/* FUNCTION : BIT_bi(unpack (). 
/♦ 


*/ 


15 /* PURPOSE : This function converts the decoder bit-stream */ 
/* into indices. */ 
/* 


-*/ 


I* INPUT ARGUMENTS : */ 
/* _ (UNS_1NT16 *) Rec Words : received word. */ 
20 /* _ (INT 16 ) NoOfBits : number of bits. */ 

/* */ 

/* OUTPUT ARGUMENTS : *' 
/* _ (INT 16 *) out: output data. */ 
F — */ 


25 /* INPUT/OUTPUT ARGUMENTS : 

/* _ (INT 16 *) ptr: bit and word pointers. 

/* 

/* RETURN ARGUMENTS : 
/* _ None. 

30 


*/ 


«7 


-*/ 


*/ 


void BIT_bitunpack (INT16 'out, UNSJNT16 'RecWords, INT16 NoOfBits, 
INT16 *ptr) 

{ 

35 /* 


INT64 temp; 

UNS INT 16 *WordPtr; 


40 


/* 


-*/ 


owcmrin- <wn Q122402A1J,> 


WO 01/22402 


PCT/USOO/25182 


206 

WordPir = RecWords + ptr[l); 


♦ptr -= NoOfBits; 
5 if(*ptr>=0) 

temp = (INT64) (*WordPtr) « NoOfBits; 

else 

{ 

temp = (FNT64) (*WordPtr) « (NoOfBits + *ptr); 
10 WordPtr++; 

temp = (temp « (-*ptr)) | ((INT64) *WordPtr « (-*ptr)); 

*ptr = 16 + *ptr; 

} 

15 *WordPtr = (INT16) (temp & OxflTf); 

♦out = (INT16) ((INT64) ((emp & OxfEBTOOOO) » 16); 

ptr[l] = (INT16) (WordPtr - RecWords); 

20 /* */ 

return; 

/* ♦/ 

25 } 

/* */ 

/*======== == =_ ==== _ ================ _ == _ = ^ = „ =====================+/ 

30 /* FUNCTION : BIT_cdbk_index_to_bils 0- */ 

/* */ 

/* PURPOSE : This function converts the fixed codebook index */ 

/* into the bit-stream representation. */ 

/* */ 

35 /* INPUT ARGUMENTS : */ 

/* _ (PARAMETER *) indices : fixed codebook indices. */ 

/* OUTPUT ARGUMENTS : */ 
/* _ (INT16 []) packedwords: bit-stream. */ 
40 /* */ 
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/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ (INT16 []) packw_ptr: pointer to the bit-stream. */ 

/* ♦/ 

/* RETURN ARGUMENTS : * / 
5 /* _None. */ 

/* ==== „ === ===================:=====================^ 


= */ 


void BlT_cdbk_index_to_bits (PARAMETER *chan, FNT16 packedwords [], 

INT 16 packw_ptr[]) 

10 { 

/* */ 

TNT 1 6 i, i_sf; 


15 


Initalizing bit packing parameters 


-*/ 


20 


packw_ptr[0J =16; 


/* Points to the second word 


*/ 


-*/ 


25 


packwjptr[l] = 1; 


ini_svector(packedwords, 0, PACKWDSNUM-l, 0); 


30 


/^DnannnnanaaaannaaaDannaann Sleeted bitrate i 


=*/ 


35 


switch (chan->fix_rate) 
{ 

case RATE8_5K: packcdwords{01 = 4; 
break; 


40 


case RATE4_0K: packed words 10] = 3; 
break; 
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case RATE20K: packed\vords[0] = 2; 
break; 

case RATE0_8K: packedwords [0] = 1; 
break; 


10 


default: nrerror("InvaIid rate !!"); 
break; 

} 


/* DDannnonnnnnaac 


f Classification index nnnannnnnaDPnannt mtu Hxaz */ 


=*/ 


====*/ 


15 


if ((chan->fix_rate == RATE8_5K) || (chan->fix_rate==RATE4_0K)) 

BIT_bitpack(chan->idx_SVS_deci, (unsigned short *) packedwords, 

1, packw_ptr); 


20 


/*== 
/♦nnanc 


annnannnna LSF quantizer index nac 


==*/ 


====*/ 


25 


switch (chan->fix_rate) 
{ 

/* 


/*=== 
/* 


-*/ 


== case RATE8 5K = 


-*/ 


==*/ 


30 


case RATE8_5K: 

/* 

/* 

/* 


25 bits 


-*/ 


35 


BlT_biipack(chan->idx_lsf(0], (unsigned short *) packedwords, 

7, packw_ptr); 


40 


BIT_bitpack(chan->idxJsflll, (unsigned short *) packedwords, 

6, packw_ptr); 

Brr_bilpack(chan->idx_lsf]2], (unsigned short *) packedwords, 

6, packw_ptr); 
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BlT_bhpack(chan->idxJsf[3], (unsigned short *) packedwords, 

6, packw_ptr), 


/*- 

/* 

/*- 


*/ 


LSF interpolation 2 bits */ 


-*/ 


10 


if (chan->idx_SVS_deci == 0) 

BIT_bitpack(chan->idx_lpc_int, 

(unsigned short *) packedwords, 2, pack\v_ptr); 

break; 


15 


/*— 

/*== 
/*— 


case RATE4 OK : 


=*/ 


20 


case RATE4 0K: 
/* 

/* 

/* 


21 bits 


*/ 


*/ 


BIT_bitpack(chan->idxJsf[0], (unsigned short *) packedwords, 

7, packw_ptr); 


25 


BIT_bitpack(chan->idxJsfTl], (unsigned short *) packedwords, 

7, packw_ptr); 


30 


BlT_bitpack(chan->idx_lsfl2], (unsigned short *) packedwords, 

6, packw_ptr); 

BIT_bitpack(chan->idx_lsiI3], (unsigned short *) packedwords, 

1, packwjptr); 

break; 


35 


/*- 
/*= 
/*- 


= case RATE2 OK ====================*/ 


-*/ 


40 


case RATE 2 OK: 


BNSDOCID: <WO 0122402A1 .L> 


WO 01/22402 


PCT/US00/25182 


210 

/* */ 

/* 25 bits */ 

/* */ 


BlT_bitpack(chan->idx_lsflO], (unsigned short *) packedwords, 

7, packw_ptr); 

BIT_bitpack(chan->idx_lsfIl], (unsigned short *) packedwords, 

6, packw_ptr); 

BIT_bitpack(chan->idx_lsfl2], (unsigned short *) packedwords, 

6, packw_ptr); 

BIT_bitpack(chan->idx_lsfT3], (unsigned short *) packedwords, 

6, packw_ptr); 


/♦ */ 

/* LSF interpolation 2 bits V 
/* */ 

BIT_bitpack(chan->idxJpc_int, (unsigned short *) packedwords, 

2, packw_ptr); 

break; 

/* */ 

case RATE08K 
/* _*/ 

case RATE0 8K: 

/* */ 

/* 11 bits */ 

/* — V 


BlT_bi(pack(chan->idx_lsf[0), (unsigned short *) packedwords, 

4, packw_ptr); 

BITJ>itpack(chan->idxJsfll], (unsigned short *) packedwords, 

4, packw_plr); 
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BIT_bitpack(chan->idxJsfT2], (unsigned short *) packedwords, 

3, pack\v_ptr); 

break; 

default: nrerror ("Invalid rale !!"); 
break; 

} 


10 /*= 


/♦□naaanauuuuL CTin n nnn auut )t n anna pitch index i 


if ((chan->fix_rate == RATE8_5K) || (chan->fix_rate RATE4 0K)) 

15 { 

if (chan->idx_SVS_deci 1) 

{ 

if (chan->fix_rate == RATE85K) 

B lT_bitpack(chan->idx_pi tch [0] , 
20 (unsigned short *) packedwords, 8, packw_ptr); 

else if (chan->fix_ratc==RATE4_0K) 

BIT_bitpack(chan->idx_pitch|0], 

(unsigned short *) packedwords, 7, packw _ptr); 

25 } 
else 

{ 

if (chan->fix_ratc == RATE8_5K) 
{ 

30 BIT_bitpack(clian->idx_pitch[0], 

(unsigned short *) packedwords, 8, packw_ptr); 

BIT_bitpack(chan->idx_pitch[ 1], 

(unsigned short *) packedwords, 5, packw_ptr); 

35 

BIT_bitpack(chan->idx_pitch[2), 

(unsigned short *) packedwords, 8, packw_ptr); 

BIT_bitpack(chan->idx__pitchl3], 
40 (unsigned short *) packedwords, 5, packw_ptr); 
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} 

else if (chan->fL\_rate==RATE4_0K) 
{ 

for (i = 0; i < N_SF2; 

BIT_bitpack(chan->idx_pitchli], 

(unsigned short *) packedwords, 7, packw_ptr); 

} 

} 


/*= 


/♦□□QDUCK3unnuuuuuunnDnnnnnmuu Gains index nnnnoDDDnpuumc 


15 switch (chan->fix_ra(e) 

{ 


/*==================== case RATE8_5K 

/* */ 


case RATE8 5K: 

if (chan->idx_S VS_dcci== 1 ) 
{ 

BIT_bitpack(chan->idx_Gp_VQ, 
25 (unsigned short *) packedwords, 6, packw_ptr); 

BIT_bitpack(chan->idx_Gc_VQ, 

(unsigned short *) packedwords, 10, packw_ptr); 

} 

30 else 

{ 

for (i = 0; i < N_SF4; i++) 

BIT_bilpack(chan->idx_gainVQ[i], 

(unsigned short *) packedwords, 7, packw_j>tr); 

35 } 

break; 


case RATE4 OK == 


40 /* */ 
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case RATE4 0K: 

if (chan->idx_SVS_dcci== 1) 

{ 

5 BIT_bitpack(chan->idx_Gp_VQ, 

(unsigned short *) packedwords, 4, packw_ptr); 

BITJ>itpack(chan->idx_Gc_VQ, 

(unsigned short *) packedwords, 8, packw_ptr); 

10 } 

else 

{ 

for (i = 0; i < N_SF2; i++) 

BIT_bitpack(chan->idx_gainVQ[i], 
15 (unsigned short *) packedwords, 7, packw_ptr); 

} 

break; 

20 /*-- */ 

case RATE20K 


/*- 


case RATE2_0K: 
25 for (i = 0; i < NJ5F2; i++) 

BIT_bitpack(chan->idx_gainVQ[i], 

(unsigned short *) packedwords, 6, packw_ptr); 

break; 

30 case RATE0_8K: 

BIT_bitpack(chan->idx_gainVQlOJ, 

(unsigned short *) packedwords, 5, packw_ptr); 

break; 

35 default: nrerror( M Invalid rate !!"); 

break; 

} 


/♦= 


40 /»oaco3DPDCB3ar2DCtt^ Codeboks index mannnauauuuuuuL^uuuuun^ */ 
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switch (chan->Fix_rale) 
{ 

/* — 


10 


case RATE85K ======================*/ 

/* */ 

case RATE8 5K : 

if (chan->idx_SVS_deci == 1) 
{ 

/♦ */ 


/* Stationary voiced speech */ 
15 /* */ 

for (i_sf « 0; i_sf < N_SF4; i_sf++) 
{ 

/* */ 

20 /* 8 pulses CB : 6p x 3b + 2p x 4b + 4b signs = 30 bits V 

/* : */ 

for (i = 0;i<4;i++) 

BIT_bitpack((chan->idx_cpcbstgnfi_sf||i]), 
25 (UNS_INT16 *) packedwords, 1, 

packw_ptr); 

BIT_bitpack((chan->idx_cpcb[i_s£]lOJ), 

(UNS_1NT16 *) packedwords, 4, 

30 packw__ptr); 

for(i = 1; i <4; i++) 

BIT_bitpack((clian->idx_cpcb[i_sfl[i]), 

(UNS_INT16 *) packedwords, 3, 

35 packw_ptr); 

BIT_bitpack((clian->idx_cpcb[i_sf][4]), 

(UNS1NT16 *) packedwords, 4, 

packw_ptr); 

40 for(i=5;i<8;i++) 
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BIT_bitpack((chan->idx_cpcb[i_sfl(i)), 

(UNS_INT16 *) packedwords, 3, packw_ptr); 

} 

/* */ 


else 


} 


{ 

/* */ 

/* Non-Stationary voiced speech */ 
/* */ 


for (i_sf = 0; i_sf < N_SF4; i_sf++) 
{ 

BlT_bilpack((chan->idx_subcpcb[Lsf][0]) t 

(UNS_INT16 *) packedwords, 1, packw_ptr); 

if (chan->idx_subcpcb[i_sfl [0]== 1 ) 
{ 

/* */ 


/* 5 pulses CB : 3p x 4b + 2p x 3b + 3b signs */ 

/* =21 bits */ 

/* +/ 

for (i = 0; i < 3; i++) 

BIT_bitpack((chan->idx_cpcbsign[i_sf|[i]), 

(UNSJTNT16 *) packedwords, 1, pack\v_ptr); 

BIT_bitpack((chan->idx_cpcb[i_sf|fO]), 

(UNS_INT16 *) packedwords, 4, packw_ptr); 


BIT_bitpack((chan->idx_cpcb[i_sf| f 1 )), 

(UNS_TNT16 *) packedwords, 4, packw_ptr); 

BIT_bitpack((chan->idx_cpcb[i_sf|[2]), 

(UNS_INT16 *) packedwords, 3, packw_ptr); 

BIT_bitpack((chan->idx_cpcb[i_sfl[3]), 

(UNS_INT16 *) packedwords, 4, packwjrtr); 


BIT_bitpack((chan->idx_cpcb[i_sni41), 


WO 01/22402 


PCT/USOO/25182 


else 


216 

(UNS_INT16 *) packedwords, 3, pack\v__pir); 

} 
{ 

BIT_bitpack((chan->idx_subcpcb[i_sf]ll]), 

(UNS1NT16 *) packedwords, 1, packw_ptr); 

/* */ 

/* 5 pulses CB : 5p x 3b + 5b signs */ 

/* = 20 bits */ 

y* */ 


for (i = 0; i < 5; i++) 
{ 

BIT_bitpack((chan->idx_cpcbsign[i_sf][iJ), 

(UNSJNT16 *) packedwords, 1, packw_ptr); 

BIT_bitpack((chan->idx_cpcb[i_sf]fi]), 

(UNSJNT16 *) packedwords, 3, packw_ptr); 

} 

} 

} 

} 

break; 


/*=========:=========== case RATE40K ================*/ 

/* ♦/ 

case RATE4 0K : 

if (chan->idx_S VS_deci== 1 ) 
{ 

/* */ 

/* Stationary voiced speech */ 
/* */ 

for (i_sf « 0; i_sf < N_SF3; i_sf++) 
{ 

BIT^itpackC^han^iaA^subcpcbti^sflfO]), 

(UNS_INT16 *) packedwords, 1, packw_ptr); 
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if (chan->idx_subcpcb[i_sf][0] == 1) 
{ 

/♦ V 

5 /* 2 pulses CB : 2pulses x 5bits/pulse + 2 signs */ 

/* =12 bits */ 
/* */ 

for (i = 0; i < 2; i++) 

10 { 

BIT__bitpack((chan->idx_cpcbsign[i_sf][i]), 

(UNSJNT16 *) packedwords, 1, packw_ptr); 
BIT_bitpack((chan->idx_cpcb[i_sfl[i]), 

(UNS_INT16 *) packedwords, 5, pack\v_ptr); 

15 } 

} 


else 


{ 


20 /* 3 pulses CB : 3 pulses x 2 bits/pulse + */ 

/* 3 signs + 3bils center = 12 bits */ 
/* */ 

for (i = 0; i < 3; i++) 

25 { 

BIT_bitpack((chan->idx_cpcbsignri_sf] [i]), 

(UNSJNT16 *) packedwords, 1, packw _plr); 

BlT_bitpack((chan->idx_cpcb[i_sf| [i]), 

(UNS_INT16 *) packedwords, 2, packw_ptr); 

30 } 

BIT_bitpack((chan->idx_center[i_sf]X 

(UNSJNT16 *) packedwords, 3, packw_ptr); 

} 

} 

35 } 
else 

{ 

/* */ 

40 /* Non-Stationary voiced speech */ 
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for (i sf- 0; i_sf < N_SF2; i_sf++) 
{ 

BIT_bitpack((chan->idx_subcpcb[i_sfllO]), 

(UNS_INT16 *) packed words, I, pack\v_ptr); 


10 


if (chan->idx_subcpcb[i_sf]lO]-=l) 


+ 2 pulses CB : 2 pulses x 6.5bits/pulse */ 
* + 1 sign = 12 bits */ 
* */ 


15 


20 


else 


BIT_bitpack((chan->idx_q)cbsign[i_sf][OJ), 

(UNS_INT16 *) packedwords, 1, packw_ptr); 
BIT_bitpack((chan->idx_q>cb[i_sf|[0]), 

(UNS_INT16 *) packedwords, 13, packw_ptr); 

} 
{ 

BIT_bitpack((chan->idx_subcpcb[i_sf] [ 1 ]), 

(UNS_INT16 *) packedwords, 1, packw_ptr); 


25 


30 


if (chan->i&\_subcpcb[i_sf][l] == 1) 
{ 

/* 


-*/ 


/* 3 pulses CB : 3 pulses x 2 bits/pulse */ 
/* 3 signs + 4bils center =13 bits */ 
/* */ 


35 


40 


for (i - 0; i <3; i++) 
{ 

BIT_bitpack((chan->idx_cpcbsign[i_sf][i]), 
(LTNS_INT16 *) packedwords, 1, packw_ptr); 

BIT_bitpack((clian->idx_cpcb[i_sf] [i]), 
(UNS_1NT16 *) packedwords, 2, packw_ptr); 

} 

BIT_bitpack((chaji->idx_ccnter[i_sf]), 

(UNS_INT16 *) packedwords, 4, packw_ptr); 


3NSDCCID: <WO . 0122402A1 I > 


WO 01/22402 


PCT/USOO/25182 


10 


15 


20 


25 


30 


35 


40 


219 

} 

else 

{ 

/♦ */ 

/* Gaussian codebook, 13 bits */ 
/* */ 

for (i = 0; i < 2; i++) 

BlT_bitpack((chan->idx_q>cbsign[i_sf] [i] ), 
(UNS_INT16 *) packedwords, 1, packw_ptr); 

BIT_bitpack((chan->idx_cpcb[i_sf][OJ), 

(UNS_INT16 *) packedwords, 11, pack\v_ptr); 

} 

} 

} 

} 

break; 

/* */ 

/*==================== case RATE2_0K ===============—===*/ 

/* */ 

case RATE2 0K : 
break; 

/* */ 

case RATE08K 
/* V 

case RATE0_8K : 
break; 

/* — */ 

/* ==== ========r:=========-=== ERROR 

/* */ 

default: nrcrror ("Invalid rate !! M ); 
break; 
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/* 


-*/ 


return; 


10 /♦- 


/*= 


/* FUNCTION : BIT_bits_to_cdbk_indcx 0- 
/* 


15 /* PURPOSE : This function converts the Uie bit-stream */ 
/* representation into the codebook index */ 

/* */ 

/* INPUT ARGUMENTS : * f 
/* (INT 16 []) packcdwords: bit-stream. */ 


20 /* 


/* OUTPUT ARGUMENTS : *' 

/* _ (PARAMETER *) indices : fixed codebook indices. */ 


/*- 


-*/ 


/* INPUT/OUTPUT ARGUMENTS : */ 
25 /* _ (INT16 U) packw_ptr: pointer to the bit-stream. */ 

,* */ 

/* RETURN ARGUMENTS : */ 
/* _ None. */ 

/ * = _ === „ ===== ==================================== 

30 


35 


void BIT_bilsJo_cdbk_index (INT16 packedwords [], INT16 packw_ptr [], 

PARAMETER *chan) 

{ 

INT16 i, i_sf; 


■-*/ 


==*/ 


40 
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/♦aaannimnannnnnnrxjna Classification index onnnnonDuuuLiUuunnn*/ 


if ((chan->fix_rate == RATE8 5K) || 

(chan->fix_ratc == RATE4_0K)) 

BIT_bitunpack (&chan->idx_SVS_deci, 

(UNSJNT16 ♦) packedwords, 1, packw_ptr); 

else 

chan->idx SVS deci=0; 


/♦nnnnnnnnctaDaanaann LSF quantizer index to « k )C)iitmnn n nnaDDDaa */ 

/ * == === = ====^==========^===================================*/ 


15 switch (chan->fix__rate) 

{ 

/* */ 

/*==================== case RATE85K 

case RATE8_5K: 

/* */ 

/* 25 bits */ 
/* */ 

BIT_bitunpack (&chan->idxjsf[0], 

(UNSJNT16 *) packedwords, 7, packw_ptr); 

30 BlT_bitunpack (&clian->idx Jsfl 1 ], 

(UNSJNT16 *) packedwords, 6, packw_ptr); 

BlT_bitunpack (&chan->idxjsf[2], 

(UNSJNT16 *) packedwords, 6, packw_plr); 

35 

BIT_bitunpack (&chan->idxjsf[3] > 

(UNSJNT16 *) packedwords, 6, packw_j>lr); 

/* */ 

40 /* LSF interpolation 2 bits */ 
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/* */ 

if (chan->idx_SVS_dcci == 0) 

BIT_bilunpack (&chan->idx_Ipc_int, 

(UNS_INT16 *) packedwords, 2, packw_ptr); 

break; 


/♦ */ 

case RATE40K =====================*/ 

/* : V 

case RATE4_0K: 

/* */ 

/* 21 bits */ 

/* */ 


BIT_bitunpack (&chan->idx_lsflO], 

(UNSJNT16 *) packedwords, 7, packw_ptr); 

BIT bitunpack (&chan->idx_lsfll], 

(UNS_INT16 *) packedwords, 7, packw _ptr); 

BIT_bitunpack (&chan->idxjsfl2], 

(UNS_INT16 *) packedwords, 6, packw_ptr); 

BIT_birunpack (&chan->idxjsf[3|, 

(UNSJNT16 *) packedwords, 1, packw__ptr); 

break; 


/* */ 

/4£=====:==========:===== case RATE2 OK 

/* */ 

case RATE20K: 

/* */ 

/* 25 bits */ 

/* */ 
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BIT_bitunpack (&chan->idxjsf[0], 

(UNSJNT16 *) packedwords, 7, packw_plr); 

BIT bitunpack (&chan->idxjsf[l], 

(UNS_INT16 *) packedwords, 6, packw_ptr); 

BIT_bitunpack (&chan->idxjsfl2], 

(UNSJNT16 *) packedwords, 6, packw_ptr); 

BIT_bitunpack (&chan->idx_IsfI3], 

(UNSJNT16 *) packedwords, 6, pack\v_ptr); 


/* „ */ 

/* LSF interpolation 2 bits */ 
/* */ 

BIT_bitunpack (&chan->idx_Ipc_int, 

(UNSJNT16 *) packedwords, 2, packwjptr); 

break; 

/* */ 

/*================== case RATE0_8K ===================*/ 

/* */ 

case RATE0_8K: 

/* */ 

/* 1 1 bits */ 

/* */ 


BIT_bitunpack (&chan->idx_lsflO], 

(UNS INT16 *) packedwords, f y packw_ptr); 

BIT_bitunpack (&chan->idx_lsfll], 

(UNSJNT16 *) packedwords, 4, packw_ptr); 

BIT_bitunpack (&chan->idx_lsfT2], 

(UNSJNT16 *) packedwords. 3, packw_ptr); 

break; 
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default: nrerror ("Invalid rate !!"); 
break; 

} 

====OT==r== ==========*/ 

3Dnnnnnnnnnn*/ 


if ((chan->fix_rate == RATE8_5K) || 

(chan->fix_rate == RATE40K)) 

{ 

if (chan->idx_SVS_dcci == 1) 
{ 

if (chan->fix_rate == RATE8_5K) 
{ 

BlT_bitunpack (&chan->idx_pilch[OJ, 

(UNS_INT16 *) packedwords, 8, 
packw_ptr); 

} 

else if (chan->fix_rate == RATE4 0K) 
{ 

BITJ>itunpack (&chan->idx_pitch[0], 

(UNSJNT16 *) packedwords, 7, 
packw_ptr); 

} 

} 

else 

{ 

if (chan->fix,rate == RATE85K) 
{ 

BITJ>itunpack (&chan->idx __pitch[0], 

(UNSJNT16 *) packedwords, 8, 
packw_ptr); 

BIT_bitunpack (&chan->idx_pitch[ 1 1, 

(UNSJNT16 *) packedwords, 5, 
packw_ptr); 


/ * ======:==:=========== ==:==========: 

/♦co^rr' rn^ nnnuuu nna nnQDDa Pitch index J 
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BIT__bilunpack (&chan->idx_pilch[2], 

(UNSJNT16 *) packedwords, 8, 
packw_ptr); 

5 BIT_bilunpack (&chan->idx_pilch[3], 

(UNS JNT16 *) packedwords, 5, 
packw_ptr); 

} 

else if (chan->fix_rate == RATE4 J)K) 

10 < 

for (i = 0; i < N_SF2; i++) 

{ 

BIT_bitunpack (&chan->idx_pitch[ij, 

(UNS_rNT16 *) packedwords, 7, 
15 packw_ptr); 

} 

} 


20 


30 


/♦nnnDQannoacoTnrffmnanaaauuuuu Gains index i 

/ * =============:=:=========== =======:===== 


25 switch (chan->fix_ratc) 

{ 


/* */ 

/*=================== case RATE8_5K ===== 

/* */ 

case RATE8 5K: 


if (chan->idx_SVS_deci == 1) 
{ 

35 BlTJ)itunpack (&chan->idx_Gp_VQ t 

(UNS_INT16 *) packedwords, 6, packw Jir); 

BIT_bitunpack (&chan->idx_Gc_VQ, 

(UNS_INT16 *) packedwords, 10, packw_ptr); 

40 } 
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else 

{ 

for (i = 0; i < N_SF4; i++) 

BIT_bitunpack (&chan->idx w gainVQfil, 

(UNS_rNT16 *) packedwords, 7, packw_ptr); 

} 

break; 


/ 


/*==================== case RATE4_0K == 

*/ 


case RATE4_0K: 

if (chan->idx_SVS_deci — 1) 
{ 

BIT_bilunpack (&chan->idx_Gp_VQ, 

(UNS_INT16 *) packedwords, 4, packw_ptr); 

BlTJ>itunpack (&chan->idx_GcJVQ, 

(UNS_TNT16 *) packedwords, 8, packw_ptr); 

} 

else 

{ 

for (i = 0; i < N_SF2; i++) 

BIT_bitunpack (&chan->idx_gainVQ[i], 

(UNSJNT16 *) packedwords, 7, packw_ptr); 

} 

break; 

/* */ 


case RATE2_0K =================== 

case RATE20K: 

for (i = 0;i<N_SF2;i-M-) 

BIT_bitunpack (&chan->idx _gainVQ[i], 

(UNSJNT16 *) packedwords, 6, packw_ptr); 

break; 
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case RATE0_8K: 

BIT biiunpack (&chan->idx_gainVQ[0], 

(UNS_rNTI6 *) packedwords, 5, packw_ptr); 

break; 

default: nrcrrorC Invalid rale !!"); 
break; 

} 


10 /*===============================-=======================-==============*/ 

/»uui^njuuuaDiJDauuuuuuuuauunna Codeboks index nnnnnnnnnnannnnnco^ 


switch (chan->flx_ratc) 
15 { 


30 


case RATE8 5K ==== 
/* V 


20 case RATE85K: 


if (chan->idx_SVS_dcci == 1) 
{ 

/* 


25 /* Stationary voiced speech */ 

/* V 

for (i_sf = 0; i_sf < N_SF4; i_sf++) 
{ 


/* 8 pulses CB : 6p x 3b + 2p x 4b + 4b signs = 30 bits V 

/♦ ♦/ 


for (i = 0; i < 4; i++) 

35 BIT_bitunpack (&chan->idx_cpcbsign[i_sf][i], 

(UNS_INT16 *) packedwords, 1, 

packw_ptr); 


BITJjitunpack (&chan->idx_cpcb[i_sf][01, 
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packw_ptr); 


5 

packw_ptr); 


10 packw_ptr); 


15 packw_ptr); 


20 


packw_ptr); 

30 


35 


228 

(UNS_INT16 *) packedwords, 4, 


for(i= I; i<4; i++) 

BIT_bilunpack (&chan->idx_cpcb[i_sf][i], 

(UNS_rNT16 *) packedwords, 3, 


BIT bitunpack (&chan->idx_cpcb[i_sf]H], 

(UNS_INT16 *) packedwords, 4, 


for (i = 5; i < 8; i++) 

BIT_bitunpack(&chan->idx_cpcb[i_sf][i], 

(UNS_INT16 *) packedwords, 3, 


} 

else 

{ 


/* 

/* Non-Siationary voiced speech */ 


-*/ 


25 for (i_sf = 0; i_sf < N_SF4; i_sf++) 

{ 


BIT_bitunpack (&chan->idx_subcpcb[i_sf][0], 

(UNS_INT16 *) packedwords, 1, 


if (chan->idx__subcpcb[i_sf][0] == 1) 
{ 


* */ 


/* 5 pulses CB : 3p x 4b + 2p x 3b + 3b signs */ 
/* =21 bits */ 
/* 


-*/ 


for (i=0;i<3;i++) 

BIT_bitunpack(&chan->idx_cpcbsign[i_snii], 


WO 01/22402 


packw_ptr); 

5 

packw_ptr); 


10 packw_plr); 


packw_ptr); 

15 

packw_ptr); 

20 

packw_ptr); 

25 

packw_ptr); 

30 


35 


40 packw__ptr); 
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(UNS_INT16 *) packedwords, 1, 


BlT_bitunpack (&chan->idx__cpcb[i_sf|[0], 

(UNSJNT16 *) packedwords, 4, 


BIT_bitunpack (&chan->idx_cpcb[i_sf][l], 

(UNS_rNT16 *) packedwords, 4, 


BIT_bitunpack (&chan->idx_cpcb[i_sf][2], 

(UNS_INT16 *) packedwords, 3, 


BlT_bitunpack (&chan->idx_cpcbli_sf][3] f 

(UNSJNT16 *) packedwords, 4, 


BIT_bi tu npack (&chan->idx_cpcb[ i_sfj f 4] , 

(UNSJNT16 *) packedwords, 3, 


else 

{ 

BIT_bitunpack (&chan->idx_subcpcb[LsfKl], 

(UNS_rNT16 *) packedwords, 1, 


/* */ 

/* 5 pulses CB : 5p x 3b + 5b signs */ 

/* = 20 bits */ 

/* */ 

for (i = 0; i < 5; i++) 
{ 

BITJ>itunpack (&chan->idx_cpcbsignli_sf|[i]» 

(UNS_INT16 *) packedwords, 1, 
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5 
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BIT_bitunpack (&chan->idx_q5cb[i_sf]li], 

(UNS_rNT16 *) packedwords, 3, 


} 


10 break; 

/* 

/*=== 

/* 


15 


20 


packw_ptr); 

30 


35 


40 


case RATE40K 


— */ 


case RATE4_0K: 

if (chan->idx_SVS_deci == 1) 
{ 


,* */ 

/* Stationary voiced speech */ 


25 for (i_sf = 0; i_sf < N_SF3; i_sf++) 

{ 


BIT_bitunpack (&chan->idx_surjcpcb[i_sf| [0], 

(UNS_INT16 *) packedwords, 1, 


if (chan->idx_subcpcb[i_sfll01== 1) 
{ 

,* */ 

/* 2 pulses CB : 2pulses x 5bits/pulsc + 2 signs */ 

/* =12 bits */ 

,* */ 


for (i = 0; i < 2; i++) 
{ 

BIT_bitunpack (&chan->idx_cpcbsign[i_sf] [i], 
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packw_ptx); 


10 


15 


20 packw_ptr); 


else 
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(UNS_INT16 *) packedwords, 1, 


BlT_bilunpack (&chan->idx_cpcb[i_sf] [i], 

(UNS_JNT16 *) packedwords, 5, 


} 


{ 

/*- 


/* 3 pulses CB : 3 pulses x 2 bits/pulse + */ 
/* 3 signs + 3bits center = 12 bils */ 
/* */ 

for (i = 0; i < 3; i++) 
{ 

BIT_bitunpack (&chan->idx_cpcbsignli_sf][i], 

CUNS_INT16 *) packedwords, 1, 


packw_ptr); 


25 


BIT_bilunpack (&chan->idx_cpcb[i_sf][i], 

(UNS_TNT16 *) packedwords, 2 y . 


} 


packw_ptr); 


30 


BIT_bitunpack (&chan->idx_ccnter[i_sf], 

(UNSJNT16 *) packedwords, 3, 


} 


else 


35 


/*- 

/* 

/*- 


-*/ 


Non-Stationary voiced speech */ 

-*/ 


40 


for (i_sf = 0; i_sf < N_SF2; i_sf++) 
{ 


: <WO .0122402A1..I_> 


WO 01/22402 
packw_ptr); 

5 
10 

packw_ptr); 

15 

packw_plr); 

20 

packw_ptr); 

25 
30 
35 

packw_ptr); 
40 packw_ptr); 
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BlT_bitunpack (&chan->idx_subcpcb[i_sf] [0 J, 

(UNS INT16 *) packedwords, 1, 


if (chan->idx_subcpcb[i_sf|[01 == 1) 
{ 

/♦ */ 

/* 2 pulses CB : 2pulscs x 6.5bits/pulsc */ 
/* + 1 sign= 12 bits */ 


BlT_biiunpack (&chan->idx_cpcbsignl Lsf] [0] , 

(UNS_INT16 *) packedwords, 1, 


BIT_bitunpack (&chan->idx_cpcb[i_sf] [0], 

(UNS_INT16 *) packedwords, 13, 

} 

else 

{ 

BIT_bitunpack (&chan->idx_subcpcb[i_sfl[ 1], 

(UNS_INT16 *) packedwords, 1, 


if (chan->idx_subcpcb[Lsf][ll = 1) 
{ 

/* */ 

/* 3 pulses CB : 3 pulses x 2 bits/pulse */ 
/* 3 signs + 4bits center =13 bits */ 


for (i = 0;i<3;i++) 
{ 

BlT_bitunpack (&chan->idx_cpcbsignli_sf|[i], 
(UNS_1NT16 *) packedwords, 1, 

BIT_bitunpack (&chan->idx_cpcb[i_sf][i], 
(TJNSJNT16 *) packedwords, 2, 
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} 

BIT_bilunpack (&chan->idx_center[i_sfi, 

(UNSJNT16 *) packedwords, 4, 

} 
{ 

/* */ 

/* Gaussian codebook, 13 bits */ 
/* - */ 

for (i = 0; i < 2; i++) 

BIT_bitunpack (&chan->idx_cpcbsign[i_sf|[i], 
(UNSJNT16 *) packedwords, 1, 

BIT_bilunpack (&chan->idx_cpcbli_sf][0], 

(UNSJNT16 *) packedwords, 1 1, 

20 packw_ptr); 

} 

} 

} 

} 

25 

break; 


/* */ 

case RATE2 0K ======================*/ 

30 /* *' 

case RATE2_0K : 
break; 

35 /♦ */ 

/ * ==========:==== :==== == === case RATE0_8K =======================*/ 

/♦ */ 


case RATE0 8K : 
40 break; 


5 packwjrtr); 


else 


10 


15 

packwptr); 
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/* */ 

ERROR ================== *' 

,* V 

default: nrerror ("Invalid rate ! ! M ); 
break; 

} 


return; 


15 } 


=*/ 


/*======================== 

/* END *' 

===========================*/ 
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/* Conexant System Inc. 
5 /* 43 1 1 Jainborcc Road *' 
/♦ Newport Beach, CA 92660 

/* 


*/ 

■*/ 


/* Copyright(C) 2000 Conexant System Inc. */ 


10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

15 /* LIBRARY: libjrit.h */ 


/* */ 


/* FUNCTIONS 

20 /* * 7 


void BITJnit Jib (void); 

void BIT_bitpack (INT 16, UNSJNT16 *, INT16, INT16 *); 

25 

void BITJntunpack (INT16 *, UNSJNT16 *, INT16, INT16 *); 
void BIT_cdbkJndcxjo_bits (PARAMETER *, INT16 [], INT16 []); 
30 void BITJ)itsjo_cdbkJndex (INT16 [] t INT 16 [J, PARAMETER *); 

/* END */ 

/♦== == ============================-================= i 

35 


=*/ 


=*/ 
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/* Conexant System Inc. * / 
5 /* 43 1 1 Jamboree Road *' 
/* Newport Beach, CA 92660 *' 
/* 


♦/ 


/* Copyright(C) 2000 Conexant System Inc. */ 


10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

/*== == ========================-~======== : === == = =========== 

15 /* LIBRARY: lib^cla.c *' 

/* == = == ================================-======= =: = ======= 


====*/ 


/♦ •/ 


/* INCLUDE 

20 /* 


^include "typedef.li" 

#includc "tnain.h" 
25 ^include "const.h M 
^include "gpuiil.h" 
#includc "cxl_var.h" 

#include "lib_cla.h" 
30 ^include "libjpch" 


tfifdcf DIAGNOSTICS 


#include "lib.dia.h" 

35 

tfcndif 


/* 

40 /* FUNCTIONS 
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*/ 


/ * =====:=================== == = ======================== 

/* FUNCTION : CLAJnitJib (). */ 

5 /♦ */ 

/* PURPOSE : This function initialise the global variables */ 
/* of the CLA library. */ 

/* INPUT ARGUMENTS : */ 
10 /* _None. */ 

/* */ 

/* OUTPUT ARGUMENTS : 3 */ 

/* _ None. */ 

/* */ 

15 /* INPUT/OUTPUT ARGUMENTS : */ 
/* _ None. */ 

/* */ 

/* RETURN ARGUMENTS ; */ 
/* _Nonc. */ 

20 /*============"=============================== 


void CLA Jnit lib (void) 
{ 

/* 


25 

INT16 k; 
FLOAT64 x; 
30 /* 


VUV= 0; 
VUVm = 2; 
frame_class - 0; 
35 frame_onset=0; 

energy_m = 0.0; 

energy = 0.0; 

40 /* */ 
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ini_svcc(or (fraiiic_class_mcin, 0, CLA_MEM_S1ZE-1, (INT 16)0); 
ini_svcctor (onstplsvjnem, 0, CLA_MEM_SLZE-1, (1NT16)0); 

ini_svector (voiced_mem, 0, CLA_MEM_SIZE-1, (INT16)0); 

ini_dyector (bufler_cla, 0, L_FRM+MEM_CLASS+L_LPCLHD-1, 0.0); 
ini_dvector (Lp_bufler, 0, N_Lp- 1 , (FLO AT64)MIN_L AG); 

MA_avg_wRp = 0.0; 

MA_min_wtilt = 0.0; 

ini_dvector (PjvvjOl, 0, SLOPE_MAX_SIZE-l, 0.0); 
iuLdvcclor (P_w[l], 0, SLOPEJ4AXJSIZE-1, 0.0); 

/* */ 

/* Generate Hamming window */ 
/* */ 


20 for(k = 0; k < LPC_WIN 1 ; k++){ 

x = cos (2.0*PI*(FLOAT64)k /(FLOAT64) (LPC_W1N1-1)); 
\vindo\vl[k] = 0.54 - 0.46 * x; 

} 

25 ini_dveclor (buffer_rcn0, 0, CLA_MEM_SIZE-1, 0.0); 

E^noi = 1.0; 
T_noi = 0.0; 
M_noi = 0.0; 
30 R_noi = 0.0; 

ini_dveclor (buffer_wtilt, 0, MAX_N_SF-1, 0.0); 
ini_dvector (buffer_wmax, 0, MAX_N_SF- 1 , 0.0); 

ini_dvector (bufler_wRp, 0, MAX_N_SF-1, 0.0); 
35 ini_dvector (bufler_mav_cla, 0, MAX_N_SF-1, 0.0); 


SVS_Count = 0; 
40 Vad_0_Count = 0; 
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FlatSp^Flag = 0; 
Av value = 0.0; 
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-V 


Rp_m_cla = 0.0; 
Ipcg_m_cla = 0.0; 


10 


OnSct = 0; 

frame class mm = 5; 


15 


*/ 


20 


SVS deci mem = 0; 


return; 


-*/ 


25 


— */ 


/* FUNCTION : CLA_signal_classifier 0 */ 

30 /* */ 

/* PURPOSE : This function classify ten input signal frame: */ 

/* file. */ 

/* frame_class 0: silence */ 

/* frame_class 1: noisc-likc (CURRENTLY, NOT ACTIVATED) */ 

35 /* framc_class 2: unvoiced */ 
/* frame_class 3: onset */ 
/* framc_class 4: plosive (CURRENTLY, NOT ACTIVATED) */ 
/* frame_class 5: non-stationary voiced */ 
/* frame_class 6: stationary voiced (CURRENTLY, NOT DISTINGUISHED */ 

40 /* FROM CLASS 5) */ 
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/* */ 

/* INPUT ARGUMENTS : *' 
/* _ (FLOAT64 []) signal: input frame. */ 

/* _ (FLOAT64 ) Rp : Pitch correlation. */ 

5 /* _(FLOAT64) Lp : Pitch lags. */ 

/* _ (TNT 16 ) Vad : V AD of current frame. */ 

/* 1 */ 

/* OUTPUT ARGUMENTS : ' */ 

/+ _ None. */ 

10 /* *' 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ None. */ 

/* */ 

/* RETURN ARGUMENTS : */ 

15 /* _ (1NT16 ) frame_class: current fame frame_class. */ 


=*/ 


INT16 CLA_signal_classificr (FLOAT64 signa1[], FLOAT64 Rp, FLOAT64 Lp, 

INT 16 Vad) 


20 { 


/* */ 


INT 16 framc_class, i_sf, k, idx; 


25 /*- 


30 


/* Parameters for local first order LPC analysis */ 

FLOAT64 siglpcl[LPC_WINl], rxxl[2], pderr; 

V 


./ 

/* Pitch lag evolution */ 


/ 


-*/ 


35 FLOAT64 Lp_avg, Lp_std; 


*/ 


/* Maximum Tracking */ 


/ 


-*/ 


40 
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rNTl6 start, end; 
FLOAT64 val, max, den; 

/* V 

/* Weighted spectral tilt and weighted maximum */ 
/* ♦/ 


FLOAT64 E_seg, nsr, min_slope_wtilt, sum_sIope_wUU, max_slopc_wmax, 
10 sum slopc wmax; 

FLOAT64 num_tilt, num max, slope_wtilt, slopewmax; 
FLOAT64 minwtilt, avg_wtilt, max_wRp, avg_wRp; 
INT 16 onstplsv, voiced; 

15 /* */ 

/* Update signal buffer */ 

/+ */ 

for(k = 0; k < MEMCLASS; k++) 
20 buGcr_cla[k] = bufTer_cIa[k+L_FRM]; 


35 


for(k = 0; k < L FRM + LLPCLHD; k++) 

bufTcr_cla[k+MEM_CLASS] = signallk); 


25 /*- 


/+ ================ Calculate evolution of pitch lag ================ */ 

/* */ 

/* */ 

30 /* Update buffer with pitch lags */ 
/* V 


for(k=0; k<N_Lp-l; k++) 

Lp_bufferfk] = Lp_buJTcr[k+ 1 J; 

Lp_buffer[N_Lp-l] = Lp; 


/* */ 

/* Average pitch lag */ 
40 /* */ 
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for(Lp_avg=0.0, k=0; k<N_Lp; k++) 
Lpavg += Lp_buffcr[k]; 

Lp_avg /= (FLOAT64)N_Lp; 


/* 

/* 

/* 


-*/ 


Standard deviation on lag 


for(Lp_std=0.0, k=0; k<N_Lp; k++) 

Lp_std += G-P.bufler[kl-Lp_avg)*(Lp_bufler[k]-Lp_avg); 

Lp_std = sqrt(Lp_std/(FLOAT64)N_Lp)/Lp_avg; 


/* 

/* 

/♦ 


-*/ 


Buffer onset parameters of the previous frame */ 


20 


for (k = 0; k < SLOPE_MAX_SrZE; k++) 
P_w|0J|kJ = P_w[l][k]; 


25 


/*•■ 
/*- 


: Calculate spectral tilt : 


-*/ 


30 


35 


for(i_sf = 0; i_sf < CLA_MEM_SIZE; i_sf++) 
{ 


*— - 

- - - — *J 

===== Local first order LPC analysis — 

*_ _ 

— _ — *, 



* 


LPC windowing */ 

'* __ 



*/ 


mul_dvcctor (signaI+i_sf*L_LPCJSF-OVERLAP, window 1, siglpcl, 
0, LPC_W1N1-1); 


40 


10 
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/* 


/* Autocorrelation */ 
/* */ 

LPC_autocorrelation (siglpcl, LPC_WIN1, rxxl, 2); 

/♦ */ 

/* Lcroux-Gueguen recursion */ 
/* */ 

LPCJeroux_gucgucn (rxxl, &buffer_rcflO[i_sf], &pderr, 1); 
} 


15 /* ======================= Calculate Maximum ==================== */ 

/* =================== (the lookahead is utilized) ================= */ 

/* */ 

for(i_sf=0; i_sf < MAX_N_SF; i_sf++) 

20 { 

/* */ 

/* Find max in pitch cycle */ 
/* */ 

25 if(Lp > MAXLSF) 

{ 

start = MEM_CLASS+MAX_L_SF-(lNT16)(L5*Lp) + 

i_sf*MAX_L_SF+L_LPCLHD; 
30 start = (start < 0 ? 0 : start); 

} 

else 

start = MEM_CLASS+i_sf*MAX_L_SF+L_LPCLHD; 

35 end = MEM_CLASS+(i,sf+l)*MAX_L_SF+L_LPCLHD; 

for(max=-MAXFLT, k=start; k<end; k++) 
{ 

val = (buffer_cla[kl > 0.0 ? bufler_cla[kl : -buffer_cla{k]); 

40 
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if(val > max) 

max = val; 

} 


/• */ 

/* Update buffer of maxima */ 
/♦ */ 


bulfer_max_cla[i_sf| = max; 
} 


/* ===== Calculate weighted lilt, weighted maximum, and ===== 

/* ================== weighted pitch correlation ========== 

/* ========== the parametric noise component is suppressed ===== 

/* =================== (the lookahead is utilized) ========= 

/* */ 


min_slopc_wtilt = MAXFLT; 
sumslopcwtilt = 0.0; 
max_slopc_wmax = -MAXFLT; 
sum_slopc_wmax - 0.0; 
minjvvtiit = MAXFLT; 
avg_wtilt = 0.0; 
max_vvRp = -MAXFLT; 
avg_wRp = 0.0; 


for(i_sf = 0; i_sf < MAX_N_SF; i_sf++) 
{ 

/* 


/* Find energy in pitch cycle */ 
/* */ 


if(Lp > MAX__L_SF) 
{ 

start = MEM_CLASS+MAX_L^SFKINTl6)(2.0*Lp)+Lsf ,( MAX_L_SF; 
start = (start < 0 ? 0 : start); 

} 

else 

start = MEM CLASS+i sf*MAX L SF; 
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end = MEM_CLASS+(i_sf-f 1)*MAX_L_SF; 

/* */ 

5 /* Update segment energy */ 
/* */ 

E_seg = 0.0; 
for(k=start; k<end; k++) 
10 E_scg += buffer_cla[k]*bufTer_cla[k]; 

/* */ 

/* Normalize energy */ 
/* */ 


15 


30 


Escg » 1 .0+E_seg/(FLOAT64)(cnd-start+l); 


-*/ 


/* Update noise level, noise tilt, noise max */ 
20 /* */ 

if (fmi_oount < 6 && bulfer_refl0[(INT16)((FLOAT64)i_sf/2.0)] < 
-0.4 &&Rp<0.50) 

{ 

25 /* V 

/* Relaxed update with fast adaptation */ 
/* */ 


E_noi = 0.8O*E_noi+0.20*E_seg; 


idx = (INT16)((FLOAT64)i_sf72.0); 
T_noi « 0.75 * T_noi + 0.25 * buflcr_rcflO [idx]; 
M_noi = 0.75*M_noi+0.25*bufTer_max_cla(i_sf]; 
R_noi = 0.75*R_noi-K).25*Rp; 
35 } 

else if(Vad == 0) 
{ 

/* */ 

/* Stringent update with slow adaptation */ 
40 /* */ 
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E^noi = 0.999*E_noi+0.001*E_seg; 

idx = (INT16)((FLOAT64)i_sf/2.0); 

T_noi = 0.990 * T_noi + 0.010 * bufrer_reflO[idx]; 

M_noi = 0.990*M_noi+0.010*buffer_max_cla[i_sfl; 

R_noi = 0.990*R_noi+0.010*Rp; 

} 


-*/ 


/* 

/* Calculate weighting factor */ 

,* •/ 


nsr = sqrt(E_noi/E_scg); 


15 /** 


*7 


/* Limit noise suppression to 30dB. */ 
/* nsrJim=l-10 A (-dBJim/20) */ 
/* lOdB: 0.684, 20dB: 0.900, 30dB: 0.968 */ 
/* - */ 

nsr = (nsr > 0.968 ? 0.968 : nsr); 


/* Update buffer of weighted lilt, weighted maximum, and 
/* weighted pitch correlation */ 


for(k - 0; k < MAX_N_SF-1; k++) 
{ 

30 buflcr_\vtilt[k] = buffer_\vtilt[k+ll; 

buffer_wmax[k] = buffcr_wmaxfk+11; 
buffcr_wRp[k] = buffer_wRp[k+l]; 

} 


35 /* ' 

/* Suppress noise component in tilt, maximum, and pitch 

/* correlation */ 

i* — *' 


40 idx = (lNT16)((FLOAT64)i_sf/2.0); 
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buffer \vliltIMAX_N_SF-l] = bufifer_reflO|idx] - nsr*T^noi; 
bulTcr_wmax[MAX_N_SF-l] = bufTer_max_clali_sf| - nsr*M_noi; 
bufTer_\vRpfMAX_N_SF-l] = Rp - nsr*R_noi; 

5 /* V 

/* Calculate slope of weighted tilt and weighted maximum */ 

num_tilt = 0.0; 
10 num_max = 0.0; 

den « 0,0; 

for (k = 0; k < MAXJM_SF; k++) 
{ 

num_tilt += (FLOAT64)k*(buflcr_wlilt[k]-buffer_wtiIt|0]); 
15 numjnax += (FLOAT64)k*(bufTer_wmax|k]-bufTer_wmaxfO]); 

den += (FLOAT64)(k*k); 
} 


25 


30 


35 


*/ 


20 /* Update sum, max, min, avg, etc of weighted tilt, */ 

/* weighted maximum, and weighted pitch correlation */ 
/* */ 


slope_wtilt = numJilt/(den+EPSI); 

if(slope_wtilt < min_slopc_wtill) 

min_slopc_wtilt = slope_wtill; 

sum_sIopc_wtilt += slopc_wU1t; 

slope wmax = num_max/(den+EPSI); 
if(slopc_wmax > max slopc jvmax) 

maxslopcwmax - slopewmax; 
sum slopc wmax += s!opc_wmax; 

/* . */ 

/* Update minimum and average of weighted tilt */ 
/* */ 


40 if(buffer_wtiIt[MAX_N_SF-l| < min__wlilt) 
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inin_wtilt = buffcr_wlilt[MAX_N_SF-l]; 
avg_wtilt += buffer_\vtilt[MAX_N_SF-l]; 


/* 

/* Update maximum and average of weighted pitch correlation 1 

if(bu£fer_wRprMAX_N_SF-l] > max_wRp) 

max_wRp - buffer_wRp[MAX_N_SF-l]; 

avg_wRp += buffer_wRpfMAX_N„SF-l]; 

•/ 

} 


/* Normalize average weighted tilt and pitch correlation */ 
,* * 

avg_wRp /= (FLOAT64)MAX„N_SF; 

aV g_wtilt /= <FIX> AT64)MAX_N_SF; 

,* -*/ 

/* Update moving average of weighted spectral tilt */ 

*/ 


MA_min_wtilt = 0.75*MA_min_wtilt + 0.25*min_wtilt; 

— */ 

/* Update moving average of pitch correlation */ 
,* */ 

MA_avg_wRp = 0.75*MA_avg_wRp + 0.25*avg_wRp; 

*/ 


35 /* 


/* The first reflection coefficient of the last subframe with */ 
/* inverted sign for probability interpretation, */ 

/* i.e. mapped to [-1:1] *' 

— •/ 
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P_w[l]I4] = -bufTer_\vtiltfMAX_N_SF-l]; 


/* . */ 

/* Limit sum of slopes to min of -1.0, max of 1.0, mapped to [-1:11 */ 
/* inverted sign for probability interpretation, */ 
/* */ 


P_w[ I][0] = -sumslopcwlilt; 

if(P_w[lJI0]> 1.0) 

P_w[l][0] = 1.0; 

else if(P_w[l][0] <- 1.0) 
P_w[l][01 = -1.0; 

P_\v[ll[0] *= 1.0; 


/*._ */ 

/* Limit sum of slopes to min of -0.5, max of 0.5, mapped to [-1:11 */ 
/* inverted sign for probability interpretation, */ 
/* */ 


P_\v| X I f 1 J = -min_slope_wtilt; 
if(P_w[l][l]>0.5) 

P_w[lJ[ll =0.5; 
else if(P_w(l][ll < -0.5) 

P_w[l][l) = -0.5; 
P_w[l]|l] *=2; 


/* */ 

/* Limit sum of slopes to min of -10000, max of 10000, */ 
/* mapped to [-1:1] */ 


P_w[lJ[2J = sum_slope_wmax; 
if(P_w[l]|2] > 10000.0) 

P_w[l][21 = 10000.0; 
else if(P_w[l][2] < -10000.0) 

P_w[ 1][2] = -10000.0; 
P_w[l][2] *= 0.0001; 
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*/ 


-*/ 


/+ Limit sum of slopes to min of -1000, max of 1000, */ 
/* mapped to [-1: 1] *' 
/* 

5 

p_wll][3] = max__slope_wmax; 
if(P_w[l][31> 1000.0) 

P_w[l][3I = 1000.0; 
else if(P_w[l][3]< -1000.0) 
10 P_w[l][3] =-1000.0; 

P_\v[l)[3] *= 0.001; 


onstplsv = 0; 


/* ' 

/* Rewritten in order to output criterion that triggers onset */ 

/» */ 

20 if(P_w[l][I] > 0.3409 && P_wjl]|2| > 0.025 && P_wll][4] > -0.075) 

{ 

onstplsv = 1 ; 
} 

else if(P_w( 1 H 11 > 0.2273 && P_w[l]l2J > 0.027 && P_w[ 1][4] > -0.075) 

25 { 

onstplsv = 1; 

} 

else if(P_w[ 1][1] > 0.1818 && P_w[lJl2] > 0.031 && P_w[l][4] > -0.075) 
{ 

30 onstplsv = 1; 

} 

else if(P_w[l]ll] > 0.0909 && P_wll](21 > 0.040 && P_wll][4] > 0.075) 
{ 

onstplsv = 1; 

35 > 

else ir(P_w[l][l] > 0.0773 && P_wll)l21 > 0.060 &&P_\v[l][4] > 0.075) 

{ 

onstplsv = 1; 
> 

40 elseiffP_w[l][l]> 0.0591 && P_w[lH21 > 0.080 && P_w[llf41 > 0.100) 
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{ 

onstplsv = 1; 
} 

else if(P_w[lJ[l] > 0.03636 && P_w[l J12) > 0.100 && P_w[M[4] > 0.100) 

5 { 

onstplsv = 1; 

else if(P_w[ 1 ] [ 1 ] > 0. 1 8 1 8 && P_w[ 1 ] [2] > 0.025 && P_w[ 1 ][3] > 0. 100 && 
P_w|l][4]> -0.075) 

10 { 

onstplsv = 1 ; 

} 

else if(P_wl 1 ] { 1 ] > 0 A 364 && P__w|0| [ 1 ] > 0. 1 364 && 

P_w[l][2] > 0.015 && P_w[01[2J > 0.015 && P_w[l]l4] > -0.015) 

15 { 

onstplsv = 1; 

} 

else if(P_w[l][l] > 0.1364 && P_w[lH3] > 0.120 && P_w[l}[4] > 0.150) 
{ 

20 onstplsv = 1; 

} 

else if(P_wll][l] > 0.2273 && P_w|ll[3] > 0.070 && P_w[l][4] > 0.150) 
{ 

onstplsv = 1; 

25 } 

else if(P_w[l][l)> 0.2500 &&P„w[l][3]> 0.060 &&P_w[lH4]> 0.150) 

{ 

onstplsv = 1 ; 
} 

30 else if(P_w[l][ll> 0.4091 &&P_w(lJ[31> 0.030 &&P_\v[l][4]> 0.150) 

{ 

onstplsv ~ 1; 
} 

■ else if(P_w| 1][1] > 0 .1818 && P_w|0]|3] > 0.30 && P__wf 1][4] > 0.000) 

35 { 

onstplsv = 1; 

} 

voiced = 0; 
40 if(avg_wRp >= 0.70) 
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{ 

voiced = 1; 
} 

else if(avg_wRp >= 0.5 && Lp_std < 0. 10) 

5 { 

voiced = 1; 

> 

else if(MA_avg_wRp >= 0.6 && Lp_std < 0. 10) 
{ 

10 voiced = 1; 

> 

else if(avg_wtilt < -0.50 && avg_wRp >= 0.2) 
{ 

voiced = 1; 

15 ) 

else if(min_wtilt < -0.70 && avg_wRp >= 0.2) 

{ 

voiced = 1; 
} 

20 else ir(avg_\vtilt < -0.75) 

{ 

voiced = 1; 
} 

else if(MA_avg_wRp > 0.50 && max_wRp > 0.40 && minwlilt < -0.40) 

25 { 

voiced = 1 ; 

> 

else if(avg_wRp > 0.50 && min_wlill < -0.35) 
{ 

30 voiced = 1 ; 

else if(avg_wRp > 0.50 && min_wtilt < -0.05) 
{ 

voiced = 1 ; 
35 ) 

*/ 

/* Offset handling */ 

, */ 

40 
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else if(voiccd_mem(3) == 1 && voiced_mem|2j == 1) 
{ 

if(MA_avg_wRp > 0.55 && MA_min_wtiIt < -0. 10 && Lp_sid < 0.05) 
{ 

5 voiced = 1; 

} 

} 

if(Vad==0) 
10 { 

voiced = 0; 
} 

* */ 


/' 


15 /*= 
/*- 


Make frameclass decision =========== */ 

*/ 


frame class - 2; 


20 /* 


-*/ 


/* Onset frame_classification */ 


/' 


-*/ 


if ((framc_class_mem[3J == 0 || framc_class_mem[3] == 1 1| 
25 frame_class_mcml3] = 2) && voiced = 1) 

frameclass = 3; 
else if (onstplsv == 1 && (framc_class_mem[3] != 5 || 

frarne__class_mcm[31 != 6 || voiced != 1)) 
frame_class = 3; 

30 

/* */ 

/* Voiced fraine_classification */ 
f* •/ 

35 else if(onstplsv_mcm[3] == 1 && voiced — 0) 

frame__class = 5; 
else if( voiced — 1) 

frame_class = 5; 

40 if(Vad == 0) 
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frame class = 0; 


/♦ '/ 

/+ Updalc fraine_class buffer */ 
5 /* *' 

for ( k = 0; k < CLA_MEM_SIZE-1; k++) 
{ 

frarne_class_mcm[k] = frame_class_mem[k+ll; 
10 onstplsv_inem[k] - onstplsv_mem[k+l]; 

voiced_mcin[k] = voiced_mem[k-H]; 
} 

framc_class_mem |CLA_MEM_SIZE-1] = frame_class; 
15 onstplsv_mem [CLA_MEM_SIZE-1] = onstplsv; 

voiced_mem |CLA_MEM_SIZE-1] = voiced; 


-*/ 


/* frame_classO: silence */ 
20 /* ftame_class 1: noisc-iikc (CURRENTLY, NOT ACTIVATED) */ 
/* frame_class 2: unvoiced */ 
/* framc_class 3: onset */ 
/* frame_class 4: plosive (CURRENTLY, NOT ACTIVATED) */ 
/* frame_class 5: non-stationary voiced */ 
25 /* frame_class 6: stationary voiced (CURRENTLY, NOT DISTINGUISHED */ 
/* FROM CLASS 5 */ 
/♦ */ 


return frame_class; 


} 


-+/ 


/* FUNCTION; CLA_NoisUnvoiceDctcct 0- 
40 /* — 


-*/ 
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/* PURPOSE: This function temporally detects noise-like unvoiced */ 

/* speech to reset the delay for the LT preprocessing and */ 

/* control the excitation weighting. The decision will be */ 

/* finalized after pitch-preprocessing. */ 
5 /• •/ 

/* INPUT ARGUMENTS : */ 

/* _ (FLOAT64 0) residu: input residual signal. */ 

/* _ (FLOAT64 []) sig: input speech signal. */ 

/* __ (INT16) I_frm: input frame size. */ 
10 /* */ 

/* OUTPUT ARGUMENTS : */ 

/* (INT16 *) framc_class: frame_class frame. */ 

/* •/ 

/* INPUT/OUTPUT ARGUMENTS : */ 
15 /* _None. */ 

/* */ 

/* RETURN ARGUMENTS : */ 

/* _ None. */ 

20 

void CLA_NoisUnvoiccDctcct (FLOAT64 residu[], FLOAT64 sig[], INT16 *uv_mode, 

FLOAT64 *fnn_erg, FLOAT64 *frm_sharp, INT 16 I Jan) 

{ 

I* */ 

25 

FLOAT64 P1_SHP, P2_R1, P3_ZC, P4 RE; 
FLOAT64 X, XI, X2, Max, M, val; 
INT16 i, N; 

30 /* */ 

/* Calculate parameter 1 : PIJ5HP */ 
/♦ */ 

X = 0; 
35 Max = 0; 

for (i = 0; i < l_fnn; 
{ 

M = fabs(rcsidu[i]); 
X+= M; 

40 if(M>Max) 
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Max - M; 


P1_SHP - X / (l_frm*MAX(1.0, Max)); 
(*frm_sharp) = Pl_SHP; 


10 


/*- 

/* 

/*- 


Calculate parameter 2 : P2 JU 


doi_dvector (sig+1 Jrm/2, sig+1 Jrm/2+ 1 , &X, 
dot_dvector (sig+l_frm/2, sig+1 Jrm/2, 
P2_R1 =X/MAX(X2, 1.0); 


-*/ 


0, l_frm/2-2); 
&X2, 0, l_frm/2-l); 


15 


/* 
/*- 


Calculate parameter 3 : P3_ZC 


-*/ 
-*/ 


N = 0; 

20 for (i = 0; i < l_fnn/2- 1 ; i++) 

{ 

if (sig[i+Lfnn/2]*sig[i+lJnn/2+i] < 0) 
N++; 

} 


25 


P3 ZC = (FLOAT64)N/(Mrm/2-L0); 


/*- 


* 


/* Calculate parameter 4 : P4 RE */ 
30 /* *' 

dot^dvector (residu, residu, frm_erg, 0, l_frm/2-l); 

dot_dvector (rcsidu+IJrm/2, residu+1 Jrm/2, frm_erg+l, 0, 1 Jrm/2-1); 

35 XI = fnn_erg[l]; 

XI = sqrt(Xl/MAX(1.0, X2)); 
P4 RE = 1.0-MIN(1.0, XI); 


,* -•/ 


40 /* 


Make noise-like decision */ 
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/* V 


N-0; 

5 

for (i = 0; i < l_fmi; i++) 
{ 

if(fabs(sig[i])<0.1) 
N++; 

10 } 

dot_dvcclor (sig, sig, &val, 0, (INT32)(lJnn*0.75)-l); 
X2= val/(l_fnn*0.75); 
if(X2 < 1000.0 || N*1.0/l_fnn > 0.5) 
15 *uv_modc=0; 

if (P1_SHP>0.15) *uv_mode=l; 

if ((P2_R1 < 0.60) && (P1_SHP > 0.20)) 
(*uv_modc) = 2; 
20 if ((P3_ZC > 0.40) && (P1_SHP > 0. 18)) 

(*uv_modc) = 2; 
if ((P4_RE < 0.40) && (P1_SHP > 0.20)) 
(*uv_mode) = 2; 


25 /* 


-*/ 


return; 


/*- 

30 } 


/*- 


35 /*= 


/* FUNCTION: CLAJdentiry_InpulSpcech (). */ 

,* */ 

/+ PURPOSE: This function idcntifys input speech as flat speech. */ 
/* The decision needs at least two sentences to update */ 

40 /* the memory. */ 
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— */ 


/♦ INPUT ARGUMENTS : 

/* _(INT16) pp_mode: = mode 1 or mode 0 
/+ (FLOAT64)reflO : first reflecuon coeff. 

5 /* _ (FLOAT64) IsfO : first lsf *' 
_ (FLOAT64) Up _g : past LTP gain. 
_ (FLOAT64) lpc_g : current LPC gain. 
/* (INT16) vad : vad decision. 

10 /* OUTPUT ARGUMENTS : 

/* _(INT16 *) flat_dcci: flat speech decision 


*/ 

♦/ 

*/ 
*/ 

*/ 

♦/ 

-*/ 


/ 


*/ 


/* INPUT/OUTPUT ARGUMENTS : 
y* _ None. 


*/ 


*/ 


15 /*- 


/* RETURN ARGUMENTS : 
/* None. 


*/ 

*/ 


20 voidCLA ^J^^^W^™*^"'-* 

FLOAT64 *lpc _g, INT16 f.x.ratc, INT16 *nat_dcc») 


{ */ 


25 1NT16 i; 

FLOAT64 sub__refl[NPl, x; 


30 LPC_pred2refl(pdcfq, sub_refl, NP); 

(♦lpcjB)= l0 * 
for (i = 0; i < NP; i++) 
(*lpc_g) *= (1.0-sqr(sub_rcn[iD); 


35 


*lpc__g) = -10.0*logl0((«ipc_g)+EPSI); 


/* 

1+ Vad counter 

40 /* 


*/ 

*/ 

-*/ 
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if (fix_rate==RATE0_8K) 
Vad_0_Count++; 

else 

5 Vad_0_Count = 0; 

if (pp_mode==l) { 
x=Mm((*lpcj)/35.0, 1.0) - 2.0*sub_refl[0]+ MIN(Up_g, 1.0) - lsfO*15; 
x ♦= 2.5; 
10 if(SVS_Count==0) 
Av_value = 0.75 *x; 
else { 

if (SVS_Counl<10) 

Avjvalue = 0.9*Av_valuc + 0.1 *x; 
15 clsc{ 

if(SVS_Counl<100) 

Av_valuc = 0.99*Av_value + 0.0 1+x; 
else Av_value = 0.998* Av_value + 0.002*x; 
} 

20 } 

SVS_Count++; 

SVS_Count - MlN(SVS_Count, 10000); 

} 

else { 

25 if ((Av_valuc > 5.8) && ((*nat_deci) == 0) && (Vad_0_Count > 10) 

&& (SVS_Counl > 200)) 
(*flat_deci) = 1; 

if ((Avjvalue < 5.3) && ((*flat_deci) == 1) 8l8l (Vad_0_Count > 10) 
30 && (SVS_Counl > 200)) 

(*flat_dcci) =0; 

} 


35 


/* */ 

return ; 

/* */ 

} 


40 
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/* FUNCTION: CLA_Class_Correct 0- 
5 /* 


260 

*/ 


*/ 

-*/ 


==*/ 


/* PURPOSE: This function works for 

/♦ (1) improving voiced-unvoiced decision; */ 

/* (2) improving noise-like unvoiced decision; */ 

/* (3) detecting specific "onset"; 

10 /* (4) making classification for pitch preprocessing; •/ 

/* (5) improving vad; 

/* (6) detecting voied speech with high prediction gain ♦/ 
/* but noise-like HF excitation. */ 


/+- 


•*/ 
*/ 


15 /* INPUT ARGUMENTS : 

/* (INT 16 *) framc_class_m : vad decision. 
/* class_m, Rp_sub[], NSR, **rcfl, fnn__sharp, */ 
/* energy_m, energy, FrmResEng, Ipcgain 
/* 

20 /* OUTPUT ARGUMENTS : 

/* *OnSetFlag, *NoisyV_ilag *' 


*/ 
*/ 


/* 


/* INPUT/OUTPUT ARGUMENTS : 

/* *class, *class_pp, *Vad, *VUV */ 


25 /*- 


-*/ 


/* RETURN ARGUMENTS : 
/* _None 


*/ 


*/ 


30 void CLA_Class.Correct(INT16 *frame_class, INT16 *framc_class_pp, INT16 *Vad, 

TNT16 *VUV, INT16 *OnSetFlag, 

1NT16 frame_class_m, FLOAT64 R PJ mb[], FLOAT64 NSR, 
FLOAT64 **rcfl, FLOAT64 frm,sharp, INT 16 smv_mode,FLOAT64 energy_m, 
FLOAT64 energy, FLOAT64 FrmResEng, FLOAT64 Ipcgain, 
35 INT16*NoisyV_flag) 


{ 


FLOAT64 x, y; 

40 
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*/ 


/* 

/* Class correction */ 

/* +/ 


/ 


/* ^ unvoiced to voiced */ 

/* */ 

if (((*franie_c!ass) < 3) && (frame_class_m > 2) && 
10 (Rp_sub[0] > 0.43) && (Rp_sub(l| > 0.43)) 

{ 

if ((fnnjsharp < 0. 1 5) && ((Rp_sub[0] + Rp_sub[ 1 ]) > 0.9) && 
(rcfl[2][0J > -0.4)) 

(*frame_class) = 5; 

15 if ((fnnjsharp < 0.25) && ((Rp_sub[0]+Rp_sub[lJ) > 1.0) && 

(rcfl[2]|0]>-0.1)) 

(*frame_class) = 5; 
if ((fnn_sharp < 0.3) && ((Rp_sub[0]+Rp_sub[l]) > 1.15) && 
(refl[2][0]>-0.1)) 
20 (*frame_class) = 5; 

} 

/* */ 

/* voiced to unvoiced */ 
25 /* */ 

x = MIN(3*frm_sharp-0.2, 0.65); 

if ((*framc_class>2) && (Rp_m_cla<x) && (Rp_sub[0]<x) && 
30 (Rp_sub[ 1 ]<x) && (Rp_sub[2]<x)) 

(*framc_class) = 2; 


/* noisc-Iikc unvoiced */ 
35 /* */ 

if ((*VUV==2) && ((Rp_subl0]>0.75) || (Rp_subfl]>0.75))) 
(* VU V) = 3; 

40 if ((*VUV==2) && (refl|2]l()l>-0.1) && 
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((Rp_subl0]>0.55) || (Rp_sub[l]>0.55))) 
(*VUV) = 3; 

if (CVOV-2) && (fnn_sharp>0.2) && (<Rp_m„cla>0.75) || (Rp.sub[21>0.75))) 
(*VUV) = 3; 

if ((*frame_class<3) && (*framc_class>0) && 

(((NSR < 0.25) && (Rp_sublU<0.7) && (fnn,sharp>0.16)) || 
((Rp_sub[l]<0.5) && ((*VUV)==2)))) 
(*frame_class) = 1; 


*/ 

/* 

/* Onset detection *' 

*/ 

/* 


x = encrgy/MAX(cnergy_m, 0.1); 
y = r eniO][0]-rcnfN_SF4-l][0]; 

(♦OnSclFlag) - (*framc_dass~3) && <y+0.2*x*.6>0) && (Rp_sub[2]>0.5); 


/* Classification for pitch preprocessing */ 

*/ 

/* 


25 if (*frameclass>=3) 

{ 

(*frame_class__pp) = 2; 
if(Rp_sub[l]>0.5) 

(*framc_class _j>p) = 3; 
30 if(Rp_sub[ll>0.75) 

(*frame_class_pp) = 4; 

} 

else 

(*frainc_class__pp) = 0; 
35 if((*VUV)==0) 

(*framc_class _pp) = 0; 
if ((frame_class_m < 3) 8l8l 
((*frame_class < 2) || (((*frame_class) == 2) && (Rp,sub[U < 0.5)))) 
(*framc_classjpp) = -1; 

40 
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/* */ 

/* Making the VAD more agrcssive */ 

*i 

if (smv_uiode == 2) 


if ((FrmResEng < 400*L_FRM) && (reni2JlO] < 0.125) && 
(Rp_sub[lJ < 0.55) && «*framc_class) < 3) && 
(frm_sharp>0.15)) 
{ 

(*frame_class) = 0; 

(*Vad) = 0; 

} 

} 

else 

{ 

if (((NSR > 0.6) || (FrmResEng < 100*L_FRM)) && 

(refl|2][0J < 0) && (Rp_sub[l ] < 0.4) && 

((♦frame_class) < 3) &&. (frm_sharp > 0. 18)) 
{ 

(*frame_class) = 0; 

(*Vad) = 0; 

} 

} 


/* */ 

/♦ Voiced speech witli high prediction gain but noisc-like */ 

/* HF excitation */ 

/* */ 


x = 10*frm_sharp - 1.5*refl[2][0] + Rp_sub[l] + lpcgain/20.0; 
♦NoisyVJlag = 0; 
if ((♦framc_class) > 2) 
{ 

if(x>4.5) 

(♦Noisy VJlag) = 1; 
if ((x > 5.7) && (fnn_sharp > 0.29) && (refl[2][0] < -0.92)) 

(♦Noisy V_flag) = 2; 

} 
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Rp_m_cla = Rp_sub[l]; 
lpcg_m_cla = Ipcgain; 


/* 


return ; 

/* 

10 } 


/* — 


-*/ 




15 /* FUNCTION: CLA_Ratc_Sclcct 0- 


/* PURPOSE: This function select the SMV bitrate. 

*/ 

/* 


*/ 

■*/ 

*/ 


/* INPUT ARGUMENTS : 
20 /* class.m, Rp_sub[], NSR, ~refl, frm_sharp, 

/* energy.m, energy, FrmResEng, Ipcgain 


/* . 

/* OUTPUT ARGUMENTS : 

/* *OnSetFlag, *NoisyV_flag 


*/ 
*/ 
*/ 

■*/ 

*/ 

*/ 
-*/ 

V 

*/ 

-*/ 

*/ 


25 /* — 

/* INPUT/OUTPUT ARGUMENTS : 
/* *class, *class_pp, *Vad, *VUV 

/*- * — r- 

/* RETURN ARGUMENTS : 

*' 

30 /* None ___„==:=========*/ 

«-d CLA Rate Se lect(INT16 smv mode, INT 16 frame_class, INT16 framc_class_m, 
vol d CLA_Ra.c_Se.ee ^ ^ ^ ^ 

FLOAT64 reflO, FLOAT64 frmeng, INT16 *codec_rate) 
< */ 


FLOAT64 x; 

40 
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switch (smv_mode) 
{ 

5 /* */ 

/* Mode 0. Note: average rate must be equal to EVRC */ 
/* */ 


10 


25 


case 0: (*codec_rate) = RATE85K; 


if ((framc_class == 1)&& (sharp > 0.2) && 

(Rp[l 1< 0.32) && (Rp[2] < 0.3)) 

(*codcc_rate) = RATE4_0K; 

15 if ((frame_c1ass == 1) && (NSR > 0. 15) && 

(Rp[ 1 ] < 0.5) && (Rp[2] < 0.5)) 

(*codcc_ratc) = RATE4 _0K; 

if ((frame_class < 3) && (NSR > 0.5) && (reflO < 0.0) 
20 &&(Rp[ll<0.5)) 

(*codec_ralc) = RATE40K; 

if (frame_class==0) 

(*codec_ralc) = RATE40K; 


if ((frame_class == 0) && (framc_class_m==0)) 
(*codec_rate) = RATE0_8K; 

break; 


30 /*- 


/* Mode 1. Note: average rale must be equal to 0.7 EVRC */ 
/* V 

case 1: (*codec_ratc) = RATE8 5K; 
35 x = MAX(0.77-NSR, 0.7); 

if ((frame_class > 3) && (frame_class_m > 5) && 
(Rp[0] > x) && (Rpll] > x)) 

(*codec_rate) = RATE40K; 

40 if ((frame_class == 2) && (Rp[0J > 0.3 1) && 
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(Rp[l]>0.31)) 

(*codec_rate) = RATE40K; 

if ((frame_class = 2) && (sharp > 0. 18)) 
(*codec_rate) = RATE40K; 

if ((frame_class = 2) && (NSR > 0.5)) 
(*codcc_ratc) = RATE40K; 

if (frame_class === 1) 

(*codcc_rate) = RATE40K; 

if ((framcjdass — 1) && (Rp[0] < 0.5) && (Rp[l] < 0.5) 
&&(Rp[2]<0.5)&& 
(((rcflO > 0.0) && (sliarp > 0.15)) || 
(sharp > 0.25))) 
(*codec_ratc) = RATE2_0K; 

if ((NSR > 0.08) && (frame_class == 1) && (sharp > 0. 15)) 
(*codcc_ratc) - RATE2 0K; 

if (frame_class — 0) 

(*codec_ralc) = RATE0_8K; 


break; 


/* 

/* Mode 2. Note: average rate must be equal to 0.55 EVRC */ 
,* */ 


case 2: (*codec_rate) = RATE40K; 


if ((OnSet == 1) && (NSR > 0.02) && (framc_class > 2)) 
(*codcc_rate) = RATE85K; 

if ((OnSet == 1) && (RplOJ < 0.85) && (frarne_class > 2)) 

(*codec_rate) = RATE8_5K; 
if ((onsetflag = 1) || ((frame_class_m < 3) && 

(frame_class >= 3)) || (frame_class == 3)) 
OnSet = 1; 

else 
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267 
OnSet = 0; 

if(OnSct==l) 

(*codec_ratc) = RATE8_5K; 
if ((frame_class > 3) && (rcflO < -0.8) && (Rp[l] <0.5) 
&& (sharp < 0.1 5)) 

(*codec_rate) = RATE85K; 
if ((NSR > 0.025) && (frame_class > 2) && (Rp[l] < 0.57)) 
(*codcc_rale) - RATE85K; 

if (frame_class < 3) 

(*codec_rate) = RATE40K; 

else 

{ 

15 if (fmi_cng < 2500*L_FRM) 

(*codec_rate) = RATE4_0K; 
if ((frm_cng < 5000*LJFRM) &JL (framc_class_m < 3) 
&& (Rp[l] <0.6)) 
(♦codec_rate) = RATE4_0K; 

20 } 

if ((frame_class == 1) && (Rp[0] < 0.5) && (Rp[lJ < 0.5) 
&& (Rp[2] < 0.5) && (((reflO > 0.0) && 
(sharp > 0. 15)) || (sharp > 0.25))) 
25 (*codec_ratc) = RATE20K; 

if ((NSR > 0.08) && (frame_class == 1) && (sliarp > 0.15)) 
(*codec_rate) = RATE20K; 

30 if (frame_class == 0) 

(*codec_ratc) = RATE08K; 

break; 

35 default: 
flifdef VERBOSE 

printf C Invalid SMV mode: %dVn", smv_modc); 
exit(l); 

#cndif 

40 break; 
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*/ 


/*- 


-*/ 


10 


return; 


/*- 


-*/ 


15 


/*- 

/*= 
/*- 
/*= 


END 


-«7 


*/ 


=*/ 
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==*/ 


=«7 


/* Conexant System Inc. 
5 /* 431 1 Jamboree Road 
/* Newport Beach, CA 92660 
/* - 


*/ 
*/ 


/* Copyrighl(C) 2000 Conexant System Inc. 
/* 


*/ 
-*/ 

-*/ 


10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

/*=,======== S =======:=r S =========-======================= 

15 /* LIBRARY: lib_cla.li *' 


/*- 
/*- 
20 /*- 


-*/ 


FUNCTIONS ■ 


-*/ 


25 


void CLA_NoisUnvoiceDetect (FLOAT64 [], FLOAT64[], INT 16 *, FLOAT64 *, 

FLOAT64 *, INT16); 
INT16 CLA_signal_classifier (FLOAT64 *, FLOAT64, FLOAT64, INTI6); 

void CLA_Class_Correct (INT16 *, INT16 *, INT16 * INT16 * INT16 *, 

INT16, FLOAT64 [], FLOAT64, FLOAT64 **, 

FLOAT64, INT16, FLOAT64, FLOAT64, 
FLOAT64, FLOAT64, INT16 *); 


30 


void CLA Rate Select 


(INT16 , INT16 , INT16 , INT16 , FLOAT64 [J. 

FLOAT64 , FLOAT64 , FLOAT64 , FLOAT64 , INT16 *) 


35 void CLA init lib 


(void); 


void CLAJdcntifyJnput (INT16, FLOAT64 * FLOAT64, FLOAT64, 


FLOAT64 *, 


INT16, INT16 *); 


40 
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/* Conexant System Inc. 
5 /* 43 1 1 Jamboree Road 
/* Newport Beach, CA 92660 
/* 


/* Copyright(C) 2000 Conexant System Inc. 
/*- 


*/ 
-*/ 


10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 


15 /* LIBRARY: Iib_cpr.c 

/+========:=== „ ===: 


=*/ 


/*- 
/*- 
20 /*- 


INCLUDE 


^include "inain.h" 


/*- 
25 /*- 


FUNCTIONS ■ 


-*/ 


/* FUNCTION : print_copyright Q. 
30 /* 


/* ALGORITHM 
/* 


35 /* INPUT ARGUMENTS 
/* None 
/* 


/* OUTPUT ARGUMENTS : 
/* _ None 
40 /* 


*/ 


/* PURPOSE : Print the Copyright Information. */ 
/* ♦/ 


-V 
*/ 
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/* INPUT/OUTPUT ARGUMENTS : * f 


/* _ None 
/* 


-*/ 


/* RETURN ARGUMENTS : * f 
5 /* _ None. */ 


/ 


10 


15 


20 


25 


30 


35 


40 


==*/ 


void print_copyright (void) 
{ 


/+ 


w i 

prinlf("\n 

/* 

♦♦♦★♦★♦♦♦★★♦♦♦♦♦♦★♦♦★♦♦♦♦♦♦♦★♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦An"); 

printfC 

/* 

*An M ); 

printfC 

/* 

SMV Speech Codec Floating Point Simulation *An M ); 

printf( M 

/* 

*An"); 

printf(" 

/* These executable and sources flics arc delivered *An"); 

printf(" 

/* 

under NDA and are SOLELY to be used for the ♦An"); 

printfC 

/* 

purpose of the 3GPP SMV Collaboration Phase. *An M ); 

printfC 

/* 

*An M ); 

printfC 

/* 

Any other use is STRICTLY prohibited. *An w ); 

printfC 

/* 

*An M ); 

printfC 

/* 

♦An"); 

printfC 

/* 

Version 1.0, 30 June 2000 *An"); 

printfC 

/* 

*An H ); 

printfC 

/* 

This executable, all sources, object *An M ); 

prinlfC 

/* 

and processed files should be deleted by *An H ); 

printfC 

/* 

the and of the collaboration phase or at *An"); 

printfC 

/* 

any lime upon the Conexant's request. *An M ); 

prinlf(" 

/* 

*An M ); 

printfC 

/* 

CONEXANT SYSTEMS Inc. *An M ); 

printfC 

/* 

*An"); 

printfC 

/* 

All Rights Reserved, November 1999 - June 2000 *An"); 

printfC 

/* 

♦An"); 

printfC 

y****************************************************An\n"); 



~ */ 

/♦ 

return; 



/* 


*/ 
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/• */ 

/* ~ END */ 
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/*============================= 

/* Conexant System Inc. *' 
5 /* 43 1 1 Jamboree Road *' 
/* Newport Beach, CA 92660 

/* ~ — 


/* Copyrighl(C) 2000 Conexant System Inc. 
/+ 


.*/ 
-*/ 


*/ 


10 /* ALL RIGHTS RESERVED: *' 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

15 /* PROTOYPE FILE: Iib_cpr.h +/ 


FUNCTIONS * 7 


20 /*— 


void print_copyright (void); 


/*=== 

25 /* 

/*=== 


■ END 


==*/ 


==*/ 


-*/ 


1MSDCCID; --WO d 100 ado A 1 
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=*/ 


/* Conexant System Inc. 
5 /* 43 11 Jamboree Road 
/* Newport Beach, CA 92660 

/♦ 1 r„ 


*/ 


/* Copyright(C) 2000 Conexant System Inc. 
/* 


*/ 
-*/ 

-*/ 


10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 


15 /* LIBRARY: lib_dia.c 

/♦================ 


tfifdefDIAG SMV 


20 /*- 
/*- 
/*- 


INCLUDE 


-*/ 


#include "typcdef.h" 

25 

#include "main.h" 
^include "const. h" 
^include "cxt var.h" 


30 ^include "mculil.h" 
^include "gputil.h" 


^include "Iib_dia.ir 
^include "lib swb.h" 


35 


/*- 

/*- 
/*- 


-*/ 


FUNCTIONS 


40 /• 
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*/ 


/* FUNCTION : DIA_enc_open_filcs (). 
/* PURPOSE : This function open the diagnostics files. */ 


-*/ 


/*- 


5 /* INPUT ARGUMENTS : 
/* _ None. 
/* 


/* OUTPUT ARGUMENTS 
/* _ None. 
10 /+ 


/* INPUT/OUTPUT ARGUMENTS : 
/* _ None. 

/* RETURN ARGUMENTS : 
15 /* _None. 


*/ 


*/ 


*/ 


*/ 


-*/ 


*/ 


-*/ 


*/ 


void DIA_cnc_opcn_files (void) 
{ 

20 /* 

/* Encoder unquanli/ed 

/* 


-*/ 


25 


fdia_vad - file_open_\vb ("vad.enc"); 


/*- 
/* 


Encoder quantized 


-*/ 


*/ 


30 


fdia_sp_enc = file_open_wb ("sp_out.cnc"); 


35 


return; 


-«7 


40 
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/* FUNCTION : DlA_cnc_closeJlIes 0- *' 

/* V 

/* PURPOSE : This function close the diagnostics files. */ 

5 /* */ 

/* INPUT ARGUMENTS : */ 
/* _None. */ 

/* */ 

/♦ OUTPUT ARGUMENTS : */ 

10 /* _None. */ 

/* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 

/* _Nonc. */ 

/* */ 

15 /* RETURN ARGUMENTS : */ 
/* _Nonc. */ 

void DlA_cnc_close_files (void) 
20 { 

/* */ 

/* Encoder unquantized */ 
/* */ 

25 fclose (fdia_vad); 


30 

fclose (fdia_sp_enc); 


35 


40 


return; 

/* 

} 
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-*/ 


/* FUNCTION : DIA jiecopcn Jilcs 0 


*/ 


5 /' 


*/ 


/* PURPOSE : This function open the diagnostics files. */ 


/* INPUT ARGUMENTS 
/* _ None. 

10 /' 


*/ 


15 / 


► , , 

* OUTPUT ARGUMENTS : 

*/ 

*/ 

* _ None. 




— */ 



* INPUT/OUTPUT ARGUMENTS : 


*/ 

'* _ None. 

*/ 


(+ — 




/* RETURN ARGUMENTS ; 
/* _ None. 


*/ 


*/ 


20 


void DI A_dcc_open Jiles (void) 
{ 

/* 


25 


-«7 


=*/ 


return; 


30 


35 /* FUNCTION : DIA_dec_close_filcs 0 
/* ~ ~ 


-*/ 



/* PURPOSE : This function close the diagnostics files. */ 

♦/ 

/* 

*/ 


/* INPUT ARGUMENTS : 
40 /* None. 


*/ 
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/* V 

/* OUTPUT ARGUMENTS : */ 
/* _ None. */ 

/* */ 

5 /* INPUT/OUTPUT ARGUMENTS : 

/♦ _None. */ 

/♦ */ 

/* RETURN ARGUMENTS : */ 
/* _ None. */ 

10 


void DIA_dec_dose_filcs (void) 
{ 

/* */ 


15 


return; 

20 /* */ 

} 


25 


/* FUNCTION : DIA_trace_data ()- */ 

/♦ */ 

/* PURPOSE : Trace the value of the variable by writing a file */ 

30 /* with data alined with the input signal. */ 

/* */ 

/* INPUT ARGUMENTS : */ 
/* _ (FLOAT64 ) val: variable to trace. */ 

/* _ (INT 16 ) data_sizc: output data size. */ 

35 /* _ (FLOAT64 ) scalc_factor: scale factor for val. */ 

/* _ (FH.E *)file_data: output file name. */ 

/* 

/* OUTPUT ARGUMENTS : */ 
/* None */ 

40 /* */ 
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/* INPUT/OUTPUT ARGUMENTS : *' 
/+ _None 

*/ 

/* 

/* RETURN ARGUMENTS : * f 
5 /* None. 

3 ' " ========== ============^=============*' 

/*==========—— ===== " 

void DIA_tmce„daia (FLOAT64 val, INT16 data.size, FLOAT64 scalejactor, 

FILE *file_data) 

10 { 

, *' 


INT16 *s_val; 
15 INT 1 6 i, \vt_samp; 


/♦ 

/* Memory Allocation */ 


/* 


— */ 


20 


-*/ 


s_val = svector (0, data_size-l); 

25 s_val [0] = (INT 16) (scalejactor * val); 

for (i = 1; i < data_size; i ++) 

s_val li] = s_val [0]; 

30 #ifdcfBYTE_SWAP_OUTPUT 

for (i = 0; i < data_sizc; i ++) 

s_val[i] = byte_swap_inil6(s_val[i]); 

35 #endif 

wt_samp = fwrite (s_val, sizeof (INT16), data_sizc file_data); 
40 #ifdef VERBOSE 
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if (\vt_samp != dala_sizc) 

nrerror("Error Writing output Samples!"); 

#endif 


10 


/*- 


/* .„ Memory Free */ 

/* ♦/ 

frccsvcctor (s_val, 0, data_sizc-l); 

/* V 

return; 


15 /* */ 

} 


/♦FUNCTION : DIA_tracc_sig (). */ 

/* V 

/* PURPOSE : Trace a signal by scaling it and writing a file 
/* with data alined with the input signal. */ 

25 /* */ 

/* INPUT ARGUMENTS : */ 
/* _ (FLOAT64 fl) x: signal to trace. */ 

/* _ (INT16 ) x_size: output signal size. */ 

/* _ (FLOAT64 ) scalc_factor: scale factor for val. */ 

30 /* _ (FILE *) file_x: output file name. */ 

/* */ 

/* OUTPUT ARGUMENTS : */ 

/* _ None */ 

/* V 


35 /* INPUT/OUTPUT ARGUMENTS 
/* _ None 
/* 


*/ 


*/ 


/* RETURN ARGUMENTS 
/* _ None. 

40 /♦================== ; 


*/ 
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void DIA_trace_sig (FLOAT64 x []", INT 16 x_size, FLOAT64 scale Jactor, 

FILE *filc_x) 


{ 

/*- 


INT16 *s_x; 
INT16 i, wt_samp; 


10 /' 


/* Memory Allocation */ 


s_x = svector (0, x_size-l); 


15 


20 


for (i = 0; i < x size; i ++) 

s_x fi] = (short) nini(scale Jactor * x [i]); 

#ifdef BYTE SWAPJDUTPUT 


for (i = 0; i < x_size; i ++) 

s_xli] = by!e_swap_intl6(s_x[i]); 

25 

#cndif 

wtsamp = fwrilc (s_x, sizcof (INT 16), x_size, file_x); 

30 #ifdef VERBOSE 

if (wt samp 1= x_size) 

nrerror("Error Writing output Samples!"); 

#endif 


35 / 


-*/ 


/* Memory Free */ 
/* 


-*/ 


free_sveclor (s_x, 0, x_sizc-l); 

40 


JN3DOOI0: «-WO 01££40£A1J, ^ 


WO 01/22402 PCT/US00/25182 

283 

/* ♦/ 

return; 

5 /* V 

/* */ 

10 tfendif 

/* ===== ™™™=™:,™^ 

/♦ END */ 

15 
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====+/ 


/* Conexant System Inc. 
5 /* 43 1 1 Jamboree Road 
/* Newport Beach, CA 92660 


*/ 
*/ 


/* Copyrighl(C) 2000 Conexant System Inc. 


10 /* ALL RIGHTS RESERVED: *' 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/• or adaptation) without the authorisation of Conexant System Inc. */ 


15 /* PROTOYPE FILE: lib_dia.li 


/* 

/* 

20 /* 


FUNCTIONS 


-*/ 


void DIA_enc_open_files (void); 

void DlA_enc_close_files (void); 

25 void DIA_dec_open_filcs (void); 

void DIA_dec_close_filcs (void); 


void DIA trace_data (FLOAT64, INT16, FLOAT64, FILE *); 


30 


void DIA jrace_sig (FLOAT64 [], INT16, FLOAT64, FILE *); 


/*= 
35 /*- 
/*= 


END- 


-*/ 


==*/ 


===*/ 
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/* Conexant System Inc. 
5 /* 43 1 1 Jamboree Road 
/* Newport Beach, CA 92660 
/*- 


*/ 

*/ 


/* Copyright(C) 2000 Conexant System Inc. 
/* 


*/ 
-*/ 

-*/ 


10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

15 /* LIBRARY: lib_fcs.c 

/*================================= 


*/ 


=«7 


/*- 
/*- 
20 /*- 


INCLUDE 


-*/ 


-*/ 


#includc "typedef.h" 

^include "inain.h" 

25 #includc "const, h" 

#include "gpulil.h" 

^include H mcutil.h M 

^include "ext^var.h" 

30 ^include "libJcs.1T 

^include n lib_gcb.h M 

^include M lib_flt.h M 

include "libjpc.h" 

^include "libjpp.h" 

35 

^include "iracks.tab" 


/*-- 
40 /♦-- 


FUNCTIONS 
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/* FUNCTION : FCSJnitJib 0- 
/* 


286 
*/ 

*/ 


5 /♦ PURPOSE : This function performs the initialisation of the */ 
/* global variables of the library FCS. */ 

/* •/ 

/* INPUT ARGUMENTS : *' 
/* _ None. *' 

10 /* 


/* OUTPUT ARGUMENTS : 

/* _ None. 

/* 


/* INPUT/OUTPUT ARGUMENTS : 
15 /* _None. 

/* 


/* RETURN ARGUMENTS : 
/* None. 


20 


void FCS_init_lib (void) 
{ 


*/ 


*/ 


-*/ 


*/ 


— */ 


=*/ 


25 


seed bfi_exc= (TNT64)21845; 


-*/ 


30 


35 


lpcgjn = 0.0; 

alpha =0.0125; 
lag_m = 20; 

SVS_flag_m = 0; 


/♦- 


High frequency Noise filter initialisation 


-*/ 

*/ 
-*/ 


40 


FCS Jnit_HF_Noise (hhjif, L_HF); 


/* 


-*/ 
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/* Pulse code-books initialisation */ 
/* */ 

FCS_Init_CPCB(); 

5 

/*„ */ 

/* 13 bits */ 

/* */ 


10 Stab_13b_cnc = 0.0; 

StabJ3b_dec = 0.0; 


/» */ 

/* 15 bits */ 
15 /* */ 


SiabJ5b_enc = 0.0; 
Slab 15b_dcc = 0.0; 


20 


25 


return; 

f* ♦/ 

} 


/* */ 

30 

/♦FUNCTION : FCS Jnit_CPCB O- */ 

/* */ 

/* PURPOSE : This function performs the initialisation of the V 
35 /* pulse code-books. */ 

/* */ 

/* INPUT ARGUMENTS : */ 

/+ _ None. */ 

/* */ 

40 /* OUTPUT ARGUMENTS : */ 
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/* None. *' 


/* INPUT/OUTPUT ARGUMENTS 
/* _ None. 

5 /* 

/* RETURN ARGUMENTS 
/* _ None. 

10 void FCS_Init_CPCB (void) 
{ 


INT16 n, i, plwnode; 

15 


*/ 


-*/ 



/* */ 

20 2 pulses CB 

/* */ 


/* 2 pulses CB : 2pulses x 5bits/pulse + 2 signs = 12 bits 
25 V 


for (i = 0; i < 2; i++) 

for (n = 0; n < 32; n++) 

pjrack_2_5_0[i][nl = lrack_2_5_0[il[n]; 


30 


/* 2 pulses CB: 2pulscs x 7 bits/pulse + 1 sign = 15 bits 
/* */ 


35 for (i = 0; i < 2;i++) 

for (n = 0; n < 80; n++) 

pjrack_2_7_l[i][n] = track_2J7_l[i][n]; 


40 
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for (ph_mode = 0; phjnode < 16 ; ph_mode++) 
5 { 

for(i = 0;i<3;i++) 

for (n = 0; n < 4; n++) 

p_track_3_2_80[ph_mode][i][n] = track_3_2_0lij(n] + 

10 trackJ_4J)|0|Lph_rnode); 

for(i = 0;i<3;i++) 

for (n = 0; n < 4; n++) 

p_track_3_2 - 54lph_mode][i][n] = track_3_2_0[i]ln] + 

15 track_l_3_0|0Jlph_mode]; 


/ 


5 pulses CB ==««===================*/ 

20 /* */ 

for (i = 0; i < 5; i++) 

for(n = 0; n< 16;n++) 

pjrack_5_4_0{i][nl - track_5_4_0[il(nl; 

25 

for (i = 0; i < 5; i++) 

for (n - 0; n < 8; n++) 

p_track_5_3_l[i][nl = track_5_3_l[i][n]; 

30 

for (i = 0; i < 5; i++) 

for (n = 0; n< 8; n++) 

p_track_5_3_2li]lnl = track_5_3_2[i][n]; 


/* */ 


40 


BNSDOCID: <WO 0122402A1 J. > 


WO 01/22402 


PCT/USOO/25182 


290 

for (i = 0; i < 8; i++) 

for (n = 0; n < 16; n++) 

pjrack_S_4_0[i]ln] - track_8_4_0[i][n]; 


return; 


10 /*- 

} 


15 /*= 


/* FUNCTION : FCS^Sel_CPCB (). */ 
/* V 


/* PURPOSE : This function performs the fixed codebook */ 
/* initialisation. */ 

20 /* * / 

/* INPUT ARGUMENTS : *' 
/* _ (INT 16) phas_inodc: initial phase for the pulses. */ 
/* _ (1NT16) bil__p: number of bits. */ 
/* _(INT16)n_p: number of pulses. */ 

25 /* _ (INT16)Lex: excitation length. */ 

r 1~ V 

/* OUTPUT ARGUMENTS : *' 

/* _ None. *' 

/* V 


-*/ 


30 /* INPUT/OUTPUT ARGUMENTS : #/ 
/* _ None. * / 

/* 

/* RETURN ARGUMENTS : 
/* _None. *' 

35 /♦ ======= ==r========-======-============= : 


void FCS_Set_CPCB (INT16 phas.modc, INT16 bit_p, INT16 n_p, INT16 Lex) 
{ 

/• V 


40 


==*/ 
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INT16 i; 

/* +/ 

5 switch (n_p) 

{ 

♦/ 

2 pulses CB =======================*/ 

10 /♦ */ 

case 2: 

/* V 

15 /* 2 pulses CB : 2pulses x 5bits/pulse + 2 signs = 12 bits */ 
/* */ 

if (phas_niode = 0) 
{ 

20 for (i = 0; i < 2; 

Maxldx = 32; 


track = p_track_2_5_0; 
* 

25 

/* */ 

/* 2 pulses CB: 2pulses x 6.5bits/pulse + 1 sign = 14 bits */ 
/* */ 

30 if (phas_modc — 1) 

{ 

for (i = 0; i < 2; i++) 

Maxldxli] = 80; 

35 track = p_track_2_7_l; 

break; 

40 /* */ 


BNSDOCID" <WO 0122402A1 |_ > 


WO 01/22402 


PCT/USOO/25182 


10 


15 


25 


292 

/*==—=================== 3 pulses CB ==== : 

,ZZ ♦> 


case 3: 

if (Lex == L_SF) 
{ 

/* *' 

/* 3 pulses CB : 3 pulses x 2 bits/pulse + */ 

/* 3 signs =9 bits */ 

,* */ 

for(i = 0;i<3;i-H-) 

Maxldx [i] = 4; 

track = pjrack_3_2_80 [phas_modc]; 


=====*/ 


20 else 


/*-- 
} 

{ 


-*/ 


/* 3 pulses CB : 3 pulses x 2 bits/pulse + */ 
/* 3 signs = 9 bits */ 

/* 3 pulses CB : 3 pulses x 2 bits/pulse + 3 signs ♦/ 
/* + 3bits center = 1 1 bits */ 

, •/ 


for (i = 0; i < 3; i++) 
30 Maxldxfil = 4; 

track = p_track_3_2_54 [phas_mode); 
> 

35 break; 

. — */ 


/* 

/*-=======—============= 5 pulses CB ===== 


40 
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case 5: 

/+ */ 

/* 5 pulses CB : 3p x 4b + 2p x 3b + 3b signs = 2 1 bits */ 
/* ♦/ 


if (phas_mode — 0) 
{ 

for (i « 0; i < 5; i++) 
10 Maxldx [i) = 16; 

Maxldx [2] = 8; 
Maxldx [41 = 8; 
track = p_lrack_5_4_0; 

> 


/* */ 

/* 5 pulses CB : 5p x 3b + 5b signs = 20 bits ■*/ 
/* */ 


20 if (phasmode == 1) 

{ 

for (i « 0; i < 5; i++) 

Maxldx [i] = 8; 
track - p_track_5_3_l; 
25 } 


/* V 

/* 5 pulses CB : 5p x 3b + 5b signs = 20 bits */ 
/* V 


if (phas mode == 2) 
{ 

for (i = 0; i < 5; i++) 

Maxldx [il = 8; 

35 track = p_track_5_3_2; 

} 

break; 

40 /* ♦/ 
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/*==„=================== 8 pulses CB ===== 

*> 


case 8: 

;* *> 

/* 8 pulses CB : 6p x 3b + 2p x 4b + 4b signs = 30 bits 
*' 


10 


15 


for (i = 0; i < 8; i++) 

Maxldx[i] = 8; 
MaxIdxlOJ = 16; 
Maxldx[4] = 16; 
t ra ck= p_t rack_8_4_0 ; 

break; 


20 default: 

nrerror(" Error in the definition of track[][] 


#ifdef VERBOSE 
#endif 


break; 


25 


/*- 

} 


30 


return; 


/*- 

} 


35 


-V 


/*============== 

/* FUNCTION : FCS Jnit_HF_Noise (). 


40 /♦- 


*/ 
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/* PURPOSE : This function generated a impulse response */ 
/* introducing a random noise in the high */ 

/* frequencies. */ 

/* */ 

5 /* INPUT ARGUMENTS : */ 
/* _(INT16 )l_sf: sub-frame size. */ 

/♦ ♦/ 

/* OUTPUT ARGUMENTS : */ 

/* _ (FLOAT64 [)) hh_hf: high frequency noise impulse */ 


10 /* 


response. 


/* INPUT/OUTPUT ARGUMENTS : 

/* _ None. 

/* 


*/ 


15 /* RETURN ARGUMENTS : 
/* _ None. 


*/ 


=*/ 


void FCSJnil_HF_Noise (FLOAT64 hh_hfl], 1NT16 IJif) 
20 { 

/* */ 


25 


INT64 seed; 
FLOAT64 
INT16 i; 
FLOAT64 


Z1=0, Z2=0; 


30 


/*- 

/* 

/*- 


Initialisation 


-*/ 


35 


seed = 56672; 


Zi 
Z2 


= 0; 
= 0; 


for (i = 0; i < IJif; i++) 

hh_hfli] = GCB_gauss_noisc(&seed); 


40 


for (i = 0; i < IJif; i++) 
{ 
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x = hhjiflil -Zl; 
Zl = hh_hlli|; 
hhjifli] = x; 

x = hhJiflU - Z2; 
Z2 = hhhfli]; 
hhhfli] = x; 
} 


10 for (i = 0; i < l_hf; i++) 

{ 

x = cos(i*Pl*1.0/l_hf); 

hliJiflH *= 0.03*(0.55 + 0.45*x); 

} 

15 

hhjif |0|= 1.0; 

^ +/ 


20 return; 

*/ 

/* 

} 


*/ 


25 

-*/ 

/* 


" 

/* FUNCTION : FCS_DetcnnPulsLoc (). *' 

*/ 

30 /* 

/* PURPOSE : This function determines all pulse positions 
/* and their magnitudes in terms of the pitch */ 

/* function and the main pulse whose position */ 

/* needs to be coded. 

-*/ 

35 /* 

/* INPUT ARGUMENTS : *' 
/* _(FLOAT64 ) PitGain: current pitch gain. */ 
/* (INT16 ) pilch: current pitch value. */ 

/* (FLOAT64 ) Mag: current pulse mgnitudc. */ 

40 /* (INT 16 ) Loc: current pulse position. */ 
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_(INT16 ) l_sf: sub-frame length. 


297 


/* OUTPUT ARGUMENTS : */ 
/* _ (FLOAT64 []) MagV: array of pulse magnitudes. */ 
5 /* (INT16 []) LocV: array oflocations magnitudes.*/ 

/* _(INT16 *) NumPit: number of pulses. */ 


/* INPUT/OUTPUT ARGUMENTS 
/* _ None. 
10 /* 


/* RETURN ARGUMENTS 
/* _ None. 


*/ 


*/ 


15 void FCS_DctermPulsLoc (FLOAT64 PilGain, INT16 pilch, FLOAT64 Mag, INT16 Loc, 

FLOAT64 MagV[], FNT16 LocV[], INT16 *NumPit, 
INT 16 I_s0 

{ 

20 

INT16 i, N, M, inax i; 


/* 


-*/ 


25 


30 


MagV [0] = Mag; 
LocV [0] = Loc; 
N = 0; 

if (PitGain < 0.4) 
max_i - 3; 

else 

max i = 4; 


35 


40 


for (i = 1; i < max_i; i++) 
{ 

if ((Loc + pitch * i) < l_sf) 
{ 

MagV[i] = MagV(i-l]*PitGain; 
LocV[i] = Loc + pitch*i; 
N = i; 
} 
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else 

break; 

} 


— ♦/ 


M = N; 


/*- 


-*/ 


10 

if (((Loc-pitch) >= 0) && (CN+1) < max_i)) 
{ 

MagV [1+N] = MagVl0]*PitGain; 
LocV [1+N1 = Loc-pilch; 
l5 M = N+1; 


for (i = 2; i < max J-N; i++) 
{ 

if((Loc-pitch*i) 0) 

{ 

MagVli+Nl=MagV[i+N-lI*PitGain; 

LocV[i+Nl=Loc-pitch*i; 

M = N+i; 

} 

else 

break; 

} 


} 


(*NumPit) = M+l; 

/* 

return; 


} 


"OCCIO, 0122402A1 I 
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/* _ (TNT 16 []) Idx 
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*/ 


= = 

/* FUNCTION : FCS_One_Search_CPCB 0- * / 

5 /♦ V 

/♦PURPOSE : This function determines the position of one */ 
/* pulse using the forward pitch enhancement. */ 

/* */ 

/* INPUT ARGUMENTS : */ 

number of pulses. */ 
array of idexes. */ 
/* _(FLOAT64[]) Mag: array of current pulse mgnitude.*/ 
/* _ (FLOAT64 []) rcf_sig: target signal. */ 
/* _(INT16 []) IdxOpt: optimized index array. */ 
15 /* _ (INT 16 []) PosOpt: optimized pulse postion array. */ 

/* */ 

/* OUTPUT ARGUMENTS : */ 

/* _ (FLOAT64 *) Rn_in: maximized criterion numerator. */ 

/* _ (INT16 *) Rd_m: maximized criterion denominator.*/ 

20 /* — */ 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* _(FLOAT64 *) MaxCrit: maximized criterion. */ 

/* RETURN ARGUMENTS : */ 
25 /* _None. ' */ 


void FCS_Onc_Search_CPCB(TNT16 n_p, INT 16 Idx [], FLOAT64 Mag []. 

FLOAT64 rcf_sig [], INT16 IdxOpt [], 
30 INT16 PosOpt [], FLOAT64 *MaxCril, 


FLOAT64 *Rn_m, FLOAT64 *Rd_m) 


{ 

/* */ 

35 INT16 n, k, PosfMAXPN); 

FLOAT64 GG, Rn, Rd; 

/* */ 


40 for (n = 0; n < n_p; n++) 
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15 


35 


40 


Pos[n) = track[nlfldx[n|]; 

Rji = 0; 

for (n = 0; n < n_p; n++) 

Rii += rcf_sig[Pos[n]J*Mag[n]; 


-*/ 


Rd=0; 

10 for (n = 0; n < n_p-l; n++) 

for (k = n+I; k < n_p; k+-*-) 

Rd += Mag[n]*PHI[Pos[nJ][Pos[k]]*Mag[k]; 


Rd *= 2; 

for (a = 0; n < n_p; n++) 

Rd Mag[n]*PHI[Pos[n]]Posrn]]*Mag[n] 


20 

GG = Rii*Rn / M>\X(0.1,Rd); 
if(GG>(*MaxCrit)) 
{ 

(♦MaxCrit) = GG; 
25 for (n = 0; n < n_p; n++) 

{ 

IdxOptfn] = Idxfn]; 
PosOpt(n] = Pos(n]; 

} 

30 (*Rn_m) = Rn; 

(*Rd_in) = Rd; 
} 


/* 


-*/ 


rclurn; 


/* 

} 
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/* FUNCTION : FCS_One_Search_4kCB (). */ 
5 /♦ */ 

/* PURPOSE : This function determines the position of one */ 

/* pulse using the forward + backward pitch */ 

/* enhancement. */ 

/* */ 

10 /* INPUT ARGUMENTS : */ 

/* _ (INT 16 []) SignTab: array of pulse signs. */ 

/* _ (FLOAT64 ) pit_g: current pitch gain. */ 

/* (INT16 ) Jag: current pitch value. */ 

/* (INT16 ) n_p: number of pulses. */ 

15 /* _ (INT 16 ) no_p: pulse number. */ 

/* _(INT16 tl) Wx: array of idexes. */ 

/* _ (FLOAT64 []) Mag: array of current pulse mgnitudc. V 

/* _ (FLOAT64 []) ref_sig: target signal. */ 

/* _ (INT 16 ) l_sf: sub-frame size. */ 

/* OUTPUT ARGUMENTS : */ 
/* _(INT16 []) IdxOpt: optimized index array. */ 
/* _ (INT16 []) PosOpt: optimized pulse postion array. */ 
/* _ (FLOAT64 *) Rn_m: maximized criterion numerator. */ 
25 /* _ (INT 16 *) Rd_m: maximized criterion denominator.*/ 
/* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ (FLOAT64 *) MaxCrit: maximized criterion. */ 
/♦ */ 

30 /* RETURN ARGUMENTS : V 
/* _ None. V 

void FCS_One_Search_4kCB (1NT16 SignTabQ, INT16 lag, FLOAT64 pit _g y INT16 no_p, 
35 INT16 n_p, INT16 Idx f], FLOAT64 Mag []. 

FLOAT64 rcf_sig [], INT16 IdxOpt [], 

INT16 PosOpt [], FLOAT64 *MaxCrit, 

FLOAT64 *Rn_m, FLOAT64 *Rd_m, INT 16 l_sf) 

{ 
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INT 1 6 n, k, Pos[MAXPN], Num, NumP, LocPps4AX_FB_PULSE_NUM*MAXPN]; 
FLOAT64 GG, Rn, Rd, Rdl, MagPfMAX_FB_PULSE_NUM*MAXPN]; 


/*- 

/* 

/*- 


Determine pulses positions 


--*/ 
*/ 

— */ 


10 


15 


NumP = 0; 

for (n = 0; n < n_p; n++) 
{ 

PosfnJ = track|n][Idx|n]J; 

FCS_DetennPu1sLoc (pit_g, lag, (Mag|n]*SignTab[Pos[n])), 

Posfn], MagP+NumP, LocP+NumP, &Num, lsf), 

NumP += Num; 
} 


20 


/*- 

/* 

/*- 


Correlation 


-*/ 


25 


Rn = 0; 

for (n = 0; n < NumP; n++) 

Rn += ref_sig|LocP[n)J*MagP[nl; 


/*— 

./* 

/*--- 


Energy 


30 Rd = 0; 

for (n = 0; n< NuinP-1; n++) 
{ 

Rdl =0.0; 

for (k = n+1; k < NumP; k++) 
35 Rdl += PHl[LocP(n]lfLx>cP[kl]*MagP[kJ; 


Rdl *= MagP|nJ; 
Rd += Rdl; 
> 
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Rd *= 2; 

for (n - 0; n< NumP; n++) 

Rd += MagP[n]*PHI[LocP(nl][LocPln]]*MagPfn], 


*/ 


/* Criterion calculation and maximisation */ 

10 GG = Rn*Rn / MAX(0. 1, Rd); 

if(GG>(*MaxCrit)) 
{ 

(♦MaxCrit) = GG; 
15 IdxOpt [no_pl = Idx|no_p]; 

PosOpt [no_p] = Pos|no_pl; 

(*Rn_m) = Rn; 
(*Rd_m) = Rd; 
20 } 


return; 

25 

/♦ V 

} 


30 /* */ 

/* FUNCTION : FCS_FulLSearch_CPCB 0- */ 
/* V 

35 /* PURPOSE : This function determines the pulses position */ 
/* using forward pitch enhancement. */ 

/* */ 

/♦ INPUT ARGUMENTS : */ 

/* (INT 16 ) phas_mode: initial phase for the pulses. */ 

40 /+ _ (FLOAT64 ) pmag: pulse magnitude. */ 
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/* (INT16 ) njp: number of pulses. */ 

/* _ (INT 16 []) SignTab: array of pulse signs. */ 

/* _ (FLOAT64 []) ref_sig: target signal. */ 

/* _ (INT 16 ) Lex: excitation size. V 
5 /♦ */ 

/* OUTPUT ARGUMENTS : . */ 

/* _ (INT16 []) SignOpt: optimized array of pulse signs. */ 

/* _ (FLOAT64 []) EXopt: optimized excitation signal. */ 

/* _ (INT 1 6 []) SignOpt: optimized array of indexes. */ 
10 /* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 

/* _ (FLOAT64 *) Criterion: maximized criterion. */ 

/* */ 

/* RETURN ARGUMENTS : */ 
15 /* _Nonc. */ 

void FCS_Full_Search_CPCB (INT16 phas.modc, INT16 SignOpt[], FLOAT64 pmag, 

1NT16 bits^p, INT16 n_p, TNT16 SignTab[], 
20 FLOAT64 ref_sig[], FLOAT64 *Criterion, 


FLOAT64 EXopl[], INT16 Lex, 
1NT16 IndexOpt[]) 

{ 

/* V 

25 

INT16 k s Idx[MAXPN], IdxOpt[MAXPN], PosOptfMAXPN]; 
FLOAT64 GG, Rn_m, Rd_m, MaxCrit, Mag[MAXPN]; 


/* V 

30 Algorithm initialisation =======—========*/ 

/*_ */ 


/* */ 

/* Set-up the track positions */ 
35 /* */ 


FCS_Set_CPCB (phas_mode, bits_p, n_p, Lex); 

/* V 

40 /* Magnitudes of pulses */ 
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GG= 1.0; 

for (k - 0; k < n_p; k+-+) 
5 { 

MagftJ = GG; 

GG *- pmag; 

} 


10 


Close-loop searching ======= */ 


15 MaxCrit = -l; 

switch (n_p) 
{ 

20 /*— 


/* 2 pulses CB */ 

/* */ 

case 2: 

25 for (IdxlOJ = 0; IdxfO] < Maxldx[0]; IdxI0]++) 

for (Idx[ll = 0; Idx[l] < Maxldxf 1]; Idx[ll++) 

FCSJ3ne_Scarch__CPCB (n_p, Idx, Mag, rcf_sig, IdxOpt, 

PosOpt, &MaxCrit, 

&Rn_m, &Rd_m); 
30 break; 

/* */ 

/* 3 pulses CB */ 

*/ 


35 


case 3: 


for (ldx|0] = 0; Idx[0J < Maxldx[0]; ldx[0]++) 

for (Idx[l] - 0; Idxfl] < Maxldx[l]; Idxll J++) 

for (Idx[2J = 0; Idx[2J < Maxldx[2]; ldx[2]+-t-) 

40 { 
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FCS_One_Search_CPCB(n_j>, ldx;Mag, ref_sig, 

IdxOpt, 


PosOpt, 

&MaxCrit, &Rn_m, 
&Rd_m); 

break; 


10 


/* 


default: 

#ifdef VERBOSE 
15 nrcrrorC'Invalid number of pulses !! 

#cndif 

break; 

20 . /* */ 

} 


25 /* Excitation */ 


if (MaxCrit > (*Criterion)) 
{ 

30 (^Criterion) = MaxCrit; 

for (k = 0; k < n_p; k++) 

SignOpt [k] = SignTab [PosOptfk]]; 
for (k = 0; k < n_p; k++) 
35 IndexOptfk] = IdxOpt[k]; 

ini_dvcctor(EXopt, 0, Lex-1, 0.0); 

for (k = 0; k < n__p; k++) 
40 EXoptfPosOpt[k]] += SignOptfk]*Mag[k]; 
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/*- 


return; 


/* 


10 


/* FUNCTION 

15 /* 

/+ PURPOSE 
/* 
/* 

/* 


: FCS_Smip_Scarch_CPCB (). 


This function detennines the pulses position 
using a simplified algorithm and the forward */ 
pitch enhancement. */ 

*/ 

20 /* INPUT ARGUMENTS : */ 
/* _ (INT 16 ) lurnO: first turn number. */ 
/* _(INT16 )tuml: last turn number. */ 


25 / 


/* 
/* 

/* 
/* 
/* 
/*- 


_ (INT16 ) phas_modc: initial phase for the pulses. */ 
_ (FLOAT64 ) pmag: pulse magnitude. */ 
_ (INT16 ) n_j>: number of pulses. V 
_ (INT16 f]) SignTab: array of pulse signs. */ 
_ (FLOAT64 []) refsig: target signal. */ 
(INT16 )Lex: excitation size. 


30 /* OUTPUT ARGUMENTS : */ 
/* _ (INTI6 []) SignOpt: optimized array of pulse signs. */ 
/* _ (FLOAT64 []) EXopt: optimized excitation signal 
/* _ (1NT16 ' []) IndexOpi: optimized array of indexes. 
/* */ 

35 /* INPUT/OUTPUT ARGUMENTS : 

/* (FLOAT64 *) Criterion: maximized criterion. 

/* 

/* RETURN ARGUMENTS : 
/* None. 
40 /*============================= 


V 
*/ 

*/ 
*/ 


*/ 


*/ 
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void FCS_Simp_Search_CPCB (INT16 turnO, INT16 turnl. INT16 phas_mode, 

INT 16 SignOpt[], FLOAT64 pmag, INT 16 bits_p, INT 16 n_p, 
INT 16 SignTab[], FLOAT64 rcf_sig[], 
5 FLOAT64 ^Criterion, FLOAT64 EXoptQ, INT16 Lex, 

INT16IndexOpt[]) 

{ 

/* */ 

10 INT16 n, flag; 

INTI6 kO, kl, k, i, m, POS, IdxfMAXPNl, IdxOplfMAXPN], PosOpt[MAXPN]; 
FLOAT64 GG, Rn_m, Rd_m, MaxCrit, Mag[MAXPN]; 

/* */ 

15 Algorithm initialisation =—================*/ 

/* */ 

/♦ */ 

/* Set-up the track positions */ 
20 /* */ 

FCS_Sct_CPCB (phas_mode, bits_p, n _p, Lex); 


/*- 


25 /* Magnitudes of pulses 


GG = 1.0; 

for (k = 0; k < n_p; k++) 
30 { 

Magfk] = GG; 

GG *= pmag; 

} 

35 /* */ 

/* Reset for signed pulses */ 
/* */ 

if (turnO ™ 0) 
40 { 
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/* V 


for (k = 0; k < n_p; k++) 

Idx [k] = 0; 

5 

for (k = 0; k < n_p; k++) 
{ 

/* */ 

10 MaxCrit = -32767*32767; 

for (i = 0; i < Maxldx[k]; i++) 
{ 

flag « 1; 
POS = trackfk]fi]; 
15 for (n = 0; n < k; n++) 

if (POS — PosOpt[n]) 
flag = 0; 

if ((rcf_sig[POS] > MaxCrit) && (flag == 1)) 
{ 

20 MaxCrit = rcf_sig[POS]; 

IdxfkJ =i; 

PosOp![k]=POS; 

} 


25 


30 


IdxOplfk] = IndcxOptfk], 

/* */ 

} 


} 


else 


for (k = 0; k < n_p; k++) 
35 { 

Idx fk] = IndexOptfk); 
IdxOptfk]=IndexOpt[kJ; 
PosOpt[k]=track[k)[Idxfk]]; 
} 

40 
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/♦ */ ^ 

/*-====================== Close-loop searching ============= =======*/ 

•/ 

if (((n_P == 5) || (n_p == 8)) &&. (turnO > 0)) 
{ 

*/ 


/* 5 and 8 pulses */ 


/* 

if (n_p == 5) 
{ 


-*/ 


/* 5 pulses */ 


15 /' 


* 


-*/ 


MaxCrit = -l; 
k = 0; 

while (k < n__p) 
20 { 


k0 = k; 
kl =k+l; 
if (kl == n_p) 
kl =0; 

for (Idx[k0] = 0; ldxfkO] < Maxldx[k0]; Idx[kOJ++) 

for (Idxfkll = 0; Idx[kl] < Maxldx[kl]; Idx[kl]++) 
FCS_One_Search_CPCB(n_p, Idx t Mag, ref_sig, 

IdxOpt, PosOpt, &MaxCrit, &Rn_m, &Rd_m); 

Idx[kO]=IdxOpt[kO]; 
ldx!kl]=IdxOpt[kl]; 
if (k == n_p-l) 

k= 1; 

else 

k += 2; 

} 


40 if(n_p== 8) 
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{ 

/♦ ♦/ 

/* 8 pulses */ 

/* : ♦/ 

MaxCrit = -1; 
k = 0; 

while (k < MAXPN) 
{ 

kO = srchpulsfk]; 
kl = srchpuls[k+l]; 

for (Idx[kO] = 0; Idx|k0] < MaxIdxfkO]; ldx[kO]++) 

for (Idx[kl] = 0; Tdx[kl] < MaxTdx[kl]; Tdx[kl]++) 
FCS_One_Search_CPCB(n_p, Idx, Mag, ref_sig, 

IdxOpt, PosOpt, &MaxCrit, &Rn_m, &Rd_m); 


} 

else 


Idx[k0] - IdxOptfkOJ; 
Idx[kl] = IdxOpt[kl]; 
k += 2; 
} 


{ 

/* —*/ 

/* Others pulse configuration */ 
/* */ 

for (m = turnO; m <= turn I; m++) 
{ 

for (k = 0; k < n_p; k++) 
{ 

MaxCrit«-l; 


for (ldx[k] = 0; Idx[k] < Maxldxfk]; Idx[k]++) 
{ 

flag= 1; 

POS = track[kl[Idx[k]]; 
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for (i = 0; i < k; i++) 
{ 

if(POS==PosOpt[il) 
flag = 0; 

} 

for(i = k+l;i<n j; i++) 
{ 

if(POS = PosOpt[i]) 
flag = 0; 

} 

if (flag — 1) 

FCS_One_Scarch_CPCB(n_p, Idx, Mag, rcf_sig, 

IdxOpt, PosOpt, &MaxCrit, &Rn_m, &Rd_jn); 

} 

15 IdxfkJ = IdxOpifk]; 

} 


10 


/*- 

20 } 


25 


30 


-*/ 


•/ 

Criterion calculation and maximisation ===== */ 


7 


if (MaxCrit > (*Critcrion)) 
{ 

(♦Criterion) = MaxCrit; 

for (k = 0; k < n_p; k++) 

SignOptfk]=SignTab|PosOpt[k]]; 


for (k = 0; k < n_p; k++) 
35 IndexOptfkl = IdxOptfk]; 

ini_dvector(EXopt,0,Lex-l, 0.0); 

for (k = 0; k < n_p; k++) 
40 EXopt[PosOpt[k]] += SignOptlk]*Mag[k]; 


3NSOOCID: <WO 0122402A1. 1„> 


WO 01/22402 


PCT/USOO/25182 


313 

} 


5 return; 

/♦I */ 

} 

10 /* */ 

/ *__„_ = __ = __«_^^ 
/♦FUNCTION : FCS_Simp_Scarch_4kCB (). */ 
/* */ 

15 /* PURPOSE : This fund ion determines Uie pulses position */ 
/* using a simplified algorithm and the forward + */ 

/* backward pitch enhancement. */ 

/♦ */ 

/* INPUT ARGUMENTS : */ 

20/* _ (INT 16 ) turaO: first turn number. */ 
/* _ (INT 16 )turnl : last turn number. */ 
/* _ (INT 1 6 ) phas_modc: initial phase for the pulses. */ 
/* _ (FLOAT64 ) pmag: pulse magnitude. */ 
/* _(INT16 )bits_p: bits per pulse. */ 

25 /* _ (INT 16 )n_p: number of pulses. */ 
/* _ (INT 16 []) SignTab: array of pulse signs. */ 
/* _ (FLOAT64 []) refsig: target signal. */ 
/* _ (INT 16 ) Lex: excitation size. */ 
/* _ (INT16 ) lag: current pitch lag. V 

30 /* _(FLOAT64 ) pil_g: pitch gain. */ 
/* */ 

/* OUTPUT ARGUMENTS : */ 
/* _(INT16 []) SignOpt: optimized array of pulse signs. */ 
/* _ (FLOAT64 []) EXopt: optimized excitation signal. */ 

35 /* _ (INT 16 []) IndcxOpt: optimized idcx array. */ 

/* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ (FLOAT64 *) Criterion: maximized criterion. */ 
/* */ 

40 /* RETURN ARGUMENTS : */ 
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/* _ None. */ 

/*===========================:===================^ 


void FCS_Simp_Search_4kCB (INTY6 turnO, INT16 turnl, INT 16 phas_mode, 
5 INT16 SignOptf], FLOAT64 pmag, INT16 bits_p, INT16 n_p, 

INT16 SignTab[], FLOAT64 refsig[], 
FLOAT64 *Crilerion, FLOAT64 EXopt[], 
INT16 Lex, INT16 IndexOpt[], TNT16 lag, 
FLOAT64 pit_g) 

10 { 

/* */ 

1NT16 flag; 

INT16 k, i, in, POS, IdxfMAXPN], IdxOptfMAXPN], PosOptfMAXPN], LocV[6]; 
15 FLOAT64 GG, Rn_m ? Rd_m, MaxCrit, Mag[MAXPN], MagV[6]; 

FLOAT64 x; 


25 


/*- 


Algorithm initialisation == 
20 /* */ 

♦/ 

/* Set-up the track positions */ 
y* ♦/ 


FCS_Set_CPCB (phas_mode, bits_p, n _p, Lex); 


/*- */ 

/* Magnitudes of pulses */ 
30 > */ 

GG= 1.0; 

for (k = 0; k < n_p; k++) 
{ 

35 Magfk] = GG; 

GG *- pmag; 

> 


40 /* Reset for signed pulses 
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/* */ 


if (lurnO == 0) 
{ 

5 /♦ ♦/ 


for (k = 0; k < n_p; k++) 
{ 

POS = track[k][0]; 
10 MaxCrit = rcf_sig[POS]; 

Idx[k] = 0; 

for (i = 1 ; i < Maxldxfk]; i++) 
{ 

15 POS =tracklk]{i]; 

x = fabs(ref_sig[POSJ); 
if(x> MaxCrit) 
{ 

20 MaxCrit = x; 

ldx[k] = i; 
PosOpt|k] = POS; 
} 

} 

25 

IdxOpt[k]=Idx[k]; 
} 

/* V 

30 } 
else 

for (k = 0; k < n_p; k++) 
{ 

Idx[k] = IndcxOptfk]; 
35 IdxOpt[k]=IndexOpt[k]; 

PosOpllk]=track[k][ldx[k]l; 
> 

/♦ */ 

40 /*====================== Close-loop searching ===========—=======*/ 
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*/ 


for (m = turnO; m <= turn I; m++) 
5 { 

for (k = 0; k < n_p; k+-+) 
{ 

MaxCrit = -1; 

for (Idxfk] = 0; IdxfkJ < Maxldx[k]; Idx[k]++) 
10 { 

flag=l; 

POS = track[kj[ldx[k]]; 
for (i = 0; i < k; i++) 
{ 

15 if (POS == PosOptfi]) 

flag = 0; 

} 

20 for (i = k+1; i < n_p; i++) 

{ 

if (POS == PosOptfi J) 
flag = 0; 

} 

25 if (flag 1) 


35 


FCS_One_Scarch_4kCB(SignTab, lag, pit_g, k, n_p, 

Idx, Mag, refsig, IdxOpt, PosOpt, 

&MaxCrit, &Rn_m, &Rd_m, 


Lex); 

30 } 


Idxfk] = IdxOptfk]; 
} 


/* = Criterion calculation and maximisation ===—======*/ 

/* */ 

40 if (MaxCrit > (*Crilerion)) 
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{ 

(♦Criterion) = MaxCrit; 
for (k = 0; k < njp; k-H-) 

SignOptfkl = SignTabfPosOplfkJJ; 
5 for (k = 0; k < n_p; k++) 

IndexOpt[k] = IdxOptfk]; 

ini_dvcctor(EXopl, 0, Lex-1, 0.0); 

10 for (k = 0; k < n_p; k++) 

{ 

FCS_DelennPulsLoc (pit_g, lag,Mag[k], PosOpt(k], MagV, 

LocV, &m, Lex); 

for (i = 0; i < in; i++) 
15 EXopt[LocV[il] += MagV[i]*SignOpt[k); 

} 

} 


20 


25 


/*=== 


/*- 


return; 


/*- 
} 


/* FUNCTION : FCS_Decod_CPCB 0. V 

30 /* */ 

/* PURPOSE : This function decode the fixed codebook. */ 

/* */ 

/* INPUT ARGUMENTS : */ 
/* _ (INT 16 ) phas_mode: initial phase for the pulses. */ 
35/* _(INT16 []) Sign: array of pulse signs. */ 
/* _ (FLOAT64 ) pmag: magnitude of pulses. */ 
/* _(FLOAT64 )bits_p: number of bits per pulse. */ 
/* _(INT16 ) n_p: number of pulses. */ 
/* _ (INT1 6 fl) Index: optimized array of indexes. */ 
40 /* (INT16 ) Lex: excitation size. */ 


BNSDOCID: <WO 0122402A1_I_> 


WO 01/22402 


PCT/US00/25182 


318 

/+ OUTPUT ARGUMENTS : */ 

/* _ (FLOAT64 []) EXopt: optimized excitation signal */ 

/* *' 

5 /* INPUT/OUTPUT ARGUMENTS : */ 
/* _ None. */ 

/* 1 */ 

/* RETURN ARGUMENTS : */ 
/* _ None. */ 

1 0 /*-=========================-==-========== := ===== 


void FCSJDecod_CPCB (INT16 phas.modc, INT16 Sign[] t FLOAT64 pmag, 1NT16 bits_p, 

INT16 n_p, FLOAT64 EXopt [], INT 16 Lex, INT16 IndexQ) 

{ 

15 ,* */ 

INT16 n, k, Pos[MAXPN]; 
FLOAT64 GG; 

20 /* */ 

/* Set-up the track positions */ 
/♦ */ 


25 


35 


FCS_Set_CPCB (phas_modc, bits_p, n_p, Lex); 


for (n = 0; n < n_p; n++) 

Posfnl = track[n][lndexln]j; 

30 /* */ 

/* Calculate the excitation signal */ 
/* ♦/ 


ini_dvcclor(EXopU 0, Lcx-1, 0.0); 


GG = 1.0; 

for (k - 0; k < n_p; k++) 
{ 

EXoptfPosfkH += Sign(kl*GG; 
40 GG *=pmag; 
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/* 


return; 


10 /*- 


-*/ 


=*/ 


/* FUNCTION 
/♦ 


: FCS_DecodJPitCB 0 


*/ 


15 /* PURPOSE : This function determines decode the fixed 
/«■ codebook and performs the forward and backward 

/* pitch enhancement. */ 

/* */ 

/* INPUT ARGUMENTS : */ 


*/ 


20 /* 
/* 
/* 
/* 
/* 

25 /* 
/* 
/* 
/* 
/*- 


(INT 16 ) phasjnode: initial phase for the pulses. */ 
(INT 16 fl) Sign: array of pulse signs. */ 
(FLOAT64 ) pmag: magnitude of pulses. */ 
(1NT16 ) bits__p: number of bits per pulses. */ 
(INT16 ) n_p: number of pulses. */ 
(INT 16 ) Lex: excitation size. */ 
(INT 16 []) Index: optimized array of indexes. */ 
(INT 16 )lag: pitch lag. */ 
_ (FLOAT64 ) pit_g: pitch gain . */ 
*/ 


30 /* OUTPUT ARGUMENTS : */ 
/* _ (FLOAT64 []) EXopt: optimized excitation signal. 

/* _ ♦/ 

/* INPUT/OUTPUT ARGUMENTS : 

/* _ None. */ 

35 /* */ 


*/ 


/* RETURN ARGUMENTS : 
/* _ None. 


40 void FCS_Decod__PitCB (INT16 phas_mode t INT16 Sign[] t FLOAT64 pmag, INT16 bits_p, 
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INT 16 n_p, FLOAT64 EXoptf], INT16 Lex, INT16 lndexQ, 
INT 16 lag, FLOAT64 pit_g) 


{ 

/*- 


-*/ 


INT16 k, i, PosfMAXPN), LocP[5], NumP; 
FLOAT64 GG, MagP[5]; 


/ ] 


--*/ 


10 /* Set-up the track positions */ 

•/ 

FCS_Set_CPCB (phas_mode, bi(s_p, n_p, Lex); 

15 for (k = 0; k < n_p; k++) 

Pos[k] = trackrk|[Index[kJJ; 


/*- 


«y 


/* Calculate the excitation signal */ 

20 ,* — •/ 

ini_dvector(EXopt, 0, Lex-1, 0.0); 

GG = 1.0; 
25 for (k = 0; k < n__p; k++) 

{ 

FCS_DetermPulsLoc (pit_g, lag, GG, Pos[k], MagP, LocP, &NumP, 

Lex); 

for (i = 0; i < NumP; i++) 
30 EXoplfLocPfi]] += Sign[k]*MagP[il; 

GG *= pmag; 
} 


return; 

,* •/ 

> 
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/* FUNCTION : FCS_Calc_pre_scarch (). */ 
5 /* */ 

/* PURPOSE : This function determines . */ 

/* */ 

/* INPUT ARGUMENTS : */ 

/* _ (FLOAT64 []) hh: impulse sesponsc W(z)/A(z). */ 
10 /* _(TNT16 )lag: pitch lag. */ 

/* _ (FLOAT64 ) pgain: pitch gain . */ 

/* _ (FLOAT64 []) target: target signal. */ 

/* _ (INT 16 []) SignTab: array of pulse signs. */ 

/* (INT 16 []) res: "ideal excitation" signal. */ 

15 /* _ (FLOAT64 ) Sign Weight: weigthing factor for sign pulse*/ 

/* determination (0.0 in all the */ 

/* calls). */ 

/* _ (INT16 ) AppSign: use of sign table flag. */ 

/* _(1NT16 ) I_sf: excitation size. */ 
20 /* */ 

/* OUTPUT ARGUMENTS : */ 

/* _ (FLOAT64 *) Gp_m: modified pitch gain for harmonic*/ 

/* weighting. */ 

/* _ (FLOAT64 []) ref: reversed target signal. */ 
25 /* _ (FLOAT64 Q) hhv: modified impulse scsponse. */ 

/* ♦/ 

/* INPUT/OUTPUT ARGUMENTS : */ 

/* _ None. */ 

/* . */ 

30 /* RETURN ARGUMENTS : */ 
/* _ None. */ 

void FCS_CaIcj3rc_search(FLOAT64 hh[], FLOAT64 hh_v[], INTI6 lag, FLOAT64 pgain, 
35 FLOAT64 *Gp_m, FLOAT64 targct[], FLOAT64 rcfl], 

INT16 SignTabfl, FLOAT64 res[], 

FLOAT64 Sign Weight, INT 16 AppSign, 
INT16 l_sf) 

{ 

40 /* •/ 
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15 


25 


30 


INT16 k; 

FLOAT64 unp[L_SF], GG, CC; 

FLOAT64 *buf; 


buf = dvector (0, l_sf-l); 

10 /* */ 

/* Harmonic weighting on hh */ 
/* ♦/ 


cpy_dvcctor (hh, hh_v, 0, l_sf-l); 


(*Gp_m) = MIN(pgain, PAST_PGA1N_MAX); 

(*Gp_m) = MAX(PAST_PGAIN_MTN, (*Gp_m)); 

if(AppSign=- 1) 

for (i = lag; i < l_sf; i++) 
20 hh_v[i] = hh_v[i] + (*Gp_m) * hh_v[i-lag], 


/*- 


/* Backward filtering */ 

for(j = 0;j<l_sf;j++) 

refU] = target[l_sf-l-j|; 

filterAZ (hh_v, ref, imp, buf, (INT16)(!_sf-l), l_sf); 


forO = 0;j<I_sf;j++) 

refU) = impfl_sf-I-j]; 


/*- 


35 /* Calcultc PH1[][] V 

/♦ */ 

for (i = 0; i < l_sf; i++) 

PHI[i][l_sf-l] = hh_vlLsf-l-il*hh_v[0]; 

40 
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for(k= l;k<l_sf;k++) 

for (i = 1 ; i <= k; i++) 

PHJ[k-i][I_sf-l-i] = PHI[k-i+l|[l_sr-i] + 


5 l]*hh_vlil; 


/* */ 

/* Set-up Sign table */ 
10 /* */ 

if(SignWcight>0.01) 
{ 

dot_dvector(rcf, ref, &GG, 0, l„sf-l); 
15 dot_dvcctor(res, res, &CC, 0, l_sf-l); 

CC = sqrt(GG/MAX(CC, 0.1)); 
CC *= SignWcight; 
for (i = 0; i < l_sf; i++) 
20 tmp[i] = CC*res[i]+ref|il; 

for (i - 0; i < l_sf; i++) 
{ 

if (tmp[il >0) 
25 SignTabfi] =1; 

else 

SignTab[i]=-l; 

} 

} 

30 else 

{ 

for (i = 0; i < l_sf; i++) 
{ 

if(rcflil>0) 

35 SignTab[i] = I; 

else 

SignTab[i] « -I; 

> 

} 

40 


hh_vlLsf-k+i- 
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/* */ 

/* Apply sign tabic */ 

/♦ */ 


5 if (AppSign ==1) 

{ 

for (i = 0; i < l_sf; 

refli] *= SignTab [ij; 
for (i = 0; i < l_sf; i++) 
10 for(j = i;j<l_sf;j++) 

PHI|i](jl *= SignTab[i]*SignTab[j]; 

> 

for(i = 1; i < l_sf; i++) 
15 for(j =0; j < i;j++) 

PHimui-PHimm; 

20 free_dvector (buf, 0, l sf- 1 ); 

return; 

25 

/* . */ 

} 


/* FUNCTION : FCS_PulseExchange 0- */ 

/* */ 

35 /* PURPOSE : This function swaps pulse 1 and 2 sign and index.*/ 
/* */ 

/* INPUT ARGUMENTS : */ 

/* _ None. */ 

/* */ 

40 /* OUTPUT ARGUMENTS : */ 
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/* _None. */ 

/*_ */ 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* _(INT16 *) index 1: pulse 1 index. */ 
5 /* _(INTI6 *)signl : pulse I sign. */ 
/* ^(INT16 *)index2: pulse 2 index. */ 
/* _ (INT 16 *) sign2 : pulse 2 sign. */ 
/♦ ♦/ 

/* RETURN ARGUMENTS : */ 
10 /* _None. */ 

void FCS_PulseExchange(INT16 * index 1, INT16 *signl, INT16 *index2, INT16 *sign2) 
{ 

15 /* */ 


INT16 i; 

/* */ 

20 

i = (*indcxl); 
(*indcxl) = (*index2); 


(*index2) = i; 
i = (*signl); 
25 (*signl) = (*sign2); 

(*sign2) = i; 

/* */ 

30 return; 

/* */ 

} 

35 /* */ 

/ * = _ === „ ======================================= ^ ========= _^ == ====*/ 

/♦FUNCTION : FCS_ST_para meter () */ 
/* */ 


40 /* PURPOSE : This function determines the stationary signal */ 
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/* coefficient that is comprise between 0.0 and 1.0.*/ 
/* */ 

/* INPUT ARGUMENTS : */ 
/* _ (INT 16 )i_sf: sub-frame index. */ 
5 /* _(INT16 ) rat cm: selected bit-rate. */ 
/* _(INT16 ) SVSJlag: coding mode (0/1). */ 
/* _ (FLOAT64 []) pdcfq: quantized prediction coefT. */ 
/* _(INT16 )lag: pitch lag. */ 
/* _(FLOAT64 )Ipcg: LPC gain. */ 
10 /* */ 

/* OUTPUT ARGUMENTS : */ 

/* _ (FLOAT64 []) pdcfq_w: weighted quantized predic. coeff.*/ 

/* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 
15 /* _ (FLOAT64 *) Stab: stationary signal evaluation */ 
/* coefficient (0.0-> 1 .0). */ 
/* */ 

/* RETURN ARGUMENTS : */ 
/* _ None. */ 

20 /*=^===:============================-=====:==^^ 


void FCS_ST_paramclcr (INT16 i_sf, INT16 rate_m, INT16 SVSJlag, FLOAT64 pdcfq[], 

INT16 lag, FLOAT64 *Stab, FLOAT64 pdcfq_w[], 
FLOAT64 Ipcg) 

25 { 

FLOAT64 y,val; 
INT16 i; 


30 


/*- 


/* LPC gain */ 

/* */ 


35 if(i_sf==0) 
{ 

y =, fabs( 1 pcg-1 pcg_m) / MAX(fabs(lpcg + lpcgm), EPSI); 

if ((SVS_flag != 1) && (abs(lag-lag_m) > 0.25*lag)) 
40 y=1.0; 
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30 


327 

(♦Stab) = 0.25 * (*Stab) + 0.75*(1.0 - y); 

if (rate__m != RATE4 0K) 
(*Stab) = 0; 

/♦ */ 

/* Update memoiy */ 
/* V 


Ipcg_m = lpcg; 
iagin - lag; 

/* */ 

15 . /* Update the weighting cocfTicicnts */ 
/* */ 

if (lpcg < 10.0) 

alpha = 0.0125; 

20 else 

{ 

if (lpcg < 20.0) 

alpha = 0.025; 

else 

25 alpha = 0.05; 

} 

} 


/* */ 


val = 1.0; 

for (i = 0; i < NP; i++) 
{ 

val *- alpha; 
35 pdcfq_w[i] = pdcfq[i] * val; 

} 


40 return; 
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— */ 


5 /*- 


===*/ 


/* FUNCTION : FCS_Search_pastcorr 0- */ 
/* y 

10 /* PURPOSE : This function calculate the autocorrelation of */ 
/* the past weighted quantized speech. */ 
/*■ */ 

/* INPUT ARGUMENTS : */ 

/* __ (FLOAT64 []) ext: excitation signal. */ 
15 /* _ (FLOAT64 []) pdcfq: quantized prediction coeff. */ 

/* _ (FLOAT64 ) Stab: stationary signal evaluation */ 

/* coefficient (0.0->L0). V 

/* _(INT16 ) pitch: pitch value. */ 

/* _ (FLOAT64 ) hpg: LTP gain. */ 
20 /* _ (INT16 ) SVSJlag: coding mode (0/1). */ 

/* _ (INT16 ) i_sf: sub-frame index. */ 

/* _ (INT 16 ) i_sf: sub-frame size. */ 

/* *, 

/* OUTPUT ARGUMENTS : */ 
25 /* (FLOAT64 []) Rw: autocorrelation values. */ 
/* _ (FLOAT64 f]) T_R\v: index of autocorrelation values. */ 
I* _ (FLOAT64 *) N_R\v: number of autocorrelation values. */ 
/* ♦/ 

/* INPUT/OUTPUT ARGUMENTS : */ 
30 /+ _None. */ 

/* v 

/* RETURN ARGUMENTS : */ 
/* _ None. */ 

35 

void FCS_Scarch_pastcorr (FLOAT64 ext[], FLOAT64 pdcfqf], FLOAT64 Stab, 

INT 16 pitch, FLOAT64 Upg, INT 16 rate_m, 

INTI6 SVSJlag, INT16 i_sf, INT 16 lsf, 

FLOAT64 Rw[], INT16 T_Rw[], INT 16 *N_Rw) 

40 { 


==*/ 
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FLOAT64 x, y, pdcfq_\vlNP|, \vsp[L_WSP], tmpmcm[NP|, val; 
INT 16 i, k, m; 

5 

/*__ ♦/ 

/* Weighting filtering */ 

/* •/ 

10 val =1.0; 

for (i = 0; i < NP; i++) 
{ 

val *= 0.85; 

pdcfq__\v[il = pdcfq[i] * val; 
15 } 

inidvcclor (tmpmem, 0, NP-1, 0.0); 
if(SVS_flag != 1) 

20 F^T_allsyn(cxt+MAX_LAG-LJWSP, L_WSP, pdcfq_w, NP, wsp, tmpmem); 

else 

{ 

if(i_sf^=0) 

cpy_dveclor (ext+MAX_LAG-L_WSP, wsp_m, 0, LWSP-l); 
25 FLT_allsyn(wsp_m, L_WSP, pdcfq_\v, NP, wsp, tmpmem); 

} 

/* */ 

/* Correlation */ 
30 /* */ 

dot_dvector (\vsp+L_WSP-L__CORR, wsp+L_WSP-L_CORR, &x, 0, L_CORR-l); 

(*N_R\v) = 0; 

ini_dvector(R\v, 0, l_sf-l. 0.0); 


35 


for (k = 3; k < 5; k++) 
{ 

40 i = (INT16)(pitch / k + 0.5); 
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if ((i < l_sQ && (i > inin_pit)) 
{ 

for (in = 1; m< 6; m-M-) 

if (m*i < l_sf && m*i < pitch-6) 
{ 

dot_dvector ( wsp+LWS P-L CORR, 

wsp+L_WSP-L_CORR- 


10 L_CORR-I); 


&Rw[*NRw], 0, 


m*i, &y, 


15 


dot_dvector (wsp-HL_WS P-L_CORR-m * i , 

wsp+L_WSP-L_CORR- 

0, L_CORR-l); 


20 


Rw [*N_Rw] = MAX(MIN(Rw[*N_Rw] / 

MAX(0.5*(x+y), 0.001), 
1-0), 0.0); 

T_R\v[*N_Rw] = m*i; 

(*N_Rw)++; 

} 


25 


30 


/* 

/* 

/* 


Reduction factor 


-*/ 


35 


40 


if ((SVS_flag == 1) && (SVS_flag__m == 1) && (rate_m == RATE4_0K)) 
{ 

for (i = 0; i < *N_Rw; i++) 

Rw[iJ *= Stab * 0.5; 
for (i = 0; i < *N_Rw; i++) 

Rw[i] *= MIN(Itpg, L0); 

} 


else 


{ 
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for(i = 0;i< *N_R\v; i++) 
Rw[i] *= Stab*0.25; 

for (i = 0; i < *N Jlw; i++) 

Rwli] *= MlN(ltpg,0.75); 

} 

if (i_sf== 0) 

SVS Jlag_m = SVS_flag; 


10 


return; 


15 


/*- 


*/ 


20 /*= 


/* FUNCTION 
/* 


FCS_cdbk_search_13b_sub54 (). 


-*/ 


/* PURPOSE : This function estimate the optimal fixed 
/* excitation for 4.0 kbps mode 1. */ 

25 /* ' 

/* INPUT ARGUMENTS : *' 


*/ 


/* 
/* 
/* 

30 /* 
/* 
/* 
/* 
/* 

35 /* 
/* 
/* 
/* 
/* 

40 /* 


*/ 


(FLOAT64 [])ext: excitation signal. */ 
(FLOAT64 []) pdcfq: quantized prediction coeflf. 

_ (FLOAT64 U) target: target signal. */ 
(FLOAT64 []) res: "ideal excitation" signal after */ 

LTP contribution. */ 
(FLOAT64 [])hh: W(z)/A(z) impulse response. */ 

_ (INT 16 ) Lsf : sub-frame size. */ 
(TNT 16 ) Lsf : sub-frame index. */ 
(INT16 )lag: pitch lag. */ 
(INT16 ) VUV: frame class. */ 
(FLOAT64 ) pgain: pitch preprocessing quantized */ 
pitch gain. */ 

_ (FLOAT64 ) NSR: noise to signal ratio. */ 

_ (FLOAT64 ) Rp: pilch preprocessing pitch */ 
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/* correlation. */ 
/* (INT 16 ) ratein: selected bit-rate. */ 
/* _ (FLOAT64 ) Ipcg: LPC gain. */ 
/♦ V 

5 /* OUTPUT ARGUMENTS : */ 
/* _ (FLOAT64 []) unfcod; un filtered excitation signal. */ 
/* _ (PARAMETER *) chan: output data structure. V 
/* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 
10 /* _None. */ 

/* */ 

/* RETURN ARGUMENTS : */ 
/* None. */ 


15 

void FCS_cdbk_search_13b_sub54 (FLOAT64 exl [], FLOAT64 pdcfq[], FLOAT64 targetQ, 

FLOAT64 res [], FLOAT64 hh[], FLOAT64 unfcod[J, 
INT16 l_sf, INT16 i_sf, INT16 lag, 

INT16 VUV, FLOAT64 pgain, FLOAT64 NSR, FLOAT64 Rp, 
20 INT 16 ratc_m, FLOAT64 Ipcg, PARAMETER *chan) 

{ 

/* */ 

25 INT 16 mode; 

INT16 T_Rw[L_SF3], N_R\v, n; 
INT 16 i, Iopt; 

INT16 IdxPuIslMAXPNl={0}, SignfMAXPN] = {0}; 
INT16 SignTabfL_SF3); 

30 

FLOAT64 Criter, Criter m, Gp_m; 

FLOAT64 hh_v[L_SF3], refTL_SF3J; 

FLOAT64 Rw[L_SF3], impmcm[NPK pdcfq_w[NP]; 

35 /* */ 

cpy_dvector(hh, hh_v, 0, I_sf-1); 

FCS_ST_parameter (i_sf, ratc_m, I, pdcfq, lag, &Slab_13b_enc, 
40 pdcfq_w, lpcg); 
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FCS_Search_pastcorr (cxt, pdcfq, Stab_13b_enc, lag, pgain, rate_m, 

1, i_sf, l_sf, Rw, T_Rw, &N_R\v); 

5 for (i = 0; i < N_R\v; i++) 

for (n = T_R\v[i]; n < l_sf; n++) 

hhv|n] += Rw[i]*hh[n-T_Rw[i]]; 

ini_dvector (tmpmem, 0, NP-1, 0.0); 
10 FLT_allsyn (hh_v, l_sf, pdcfq_w, NP, hh_v, tmpmem); 

cpy_dvcctor (lih_v, ref, 0, l_sf-l); 
for(i = 1; i < L_HF; i++) 

for (n = i; n< l_sf; n++) 
15 hh_v[n] += hh_hni]*refln-i]; 

FCS_Calc__pre_search (hh_y, hh_v, lag, pgain, &Gp_m, target, ref, 

SignTab, res, 0.0, 1, l_sf); 

20 . Iopt = 0; 

Crilcr=-1; 

/* */ 

/* 2 pulses CB : 2pulscs x Sbits/pulse + 2 signs = 12 bits */ 
25 /♦ */ 

FCSJFull_Scarch_CPCB (0, Sign, 1.0, 5, 2, SignTab, ref,&Critcr, 

unfcod, l_sf, IdxPuls); 

30 mode = 3; 

Criter_in = Criter; 


/* 3 pulses CB : 3 pulses x (2 or l)bils/pulse + 3 signs + 3bits */ 
35 /* center = 12 bits */ 

/* V 

/* Determine the center */ 
40 /* ♦/ 
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for (i = 0; i < SEG NUM Ml; 
{ 

FCS_Full_Scarcli_CPCB (i, Sign, 1.0, 2, 3, SignTab, ref, &Criter, 
5 unfcod, l_sf, IdxPuJs); 

if (Criter > Criter_m) 
{ 

Iopt = i; 

10 mode = 2; 

Criter_m = Crilcr; 
} 

} 

15 /* */ 

/* Save the Index of the cdbk */ 
/* v 

for (i = 0; i < MAXPN; i++) 
20 chan->idx_cpcb[i_sf]fi] = IdxPuIs[iJ; 

for (i = 0; i < MAXPN; i++) 

chan->idx_cpcbsign[i_sf|[i] = (Sign[i]+l)/2; 

25 chan->idx_ccntcr[i_sfl = Iopt; 

if (mode — 3) 

chan->idx_subcpcb[i_sf][0] = 1; 

else 

30 chan->idx_subcpcbli_sfl[0] = 0; 


/* */ 

/* Hannonic weighting on unfcod */ 
35 /* */ 

for (i = lag; i < l_sf; i++) 

unfeodfi] += Gp_m * unfcod[i-Iag]; 

40 cpy _dvector (unfcod, hh v, 0, l_sf-l); 
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for (i = 0; i < N_R\v; i++) 

for (n = T_R\v[i|; n < l_sf; n++) 

uiifcod|n] += Rw[i] ♦ hh_v|n-T_Rw[i]|; 


5 ini_dvector (tmpmem, 0, NP-1, 0.0); 

FLT.allsynCunfcod, I_sf, pdcfq_w s NP, unfcod, tmpmem); 

cpy_dvector (unfcod, ref, 0, l_sf-l); 
for(i= 1 ; i < L_HF; i++) 
10 for (n = i; n < l_sf; n++) 

unfcod[n] += hh_hfli]*rcfln-il; 

/* */ 

15 return; 

/*_ */ 

> 

20 /* */ 

/* === = = ^ = = = ==============^========^^============^=-==========-*/ 

/* FUNCTION : FCS_cdbk_decod_13b_sub54 (). */ 

/* */ 

25 /* PURPOSE : This function decode the optimal fixed */ 

/* excitation for 4.0 kbps mode 1. */ 

/* ♦/ 

/* INPUT ARGUMENTS : */ 

/* (FLOAT64 [])ext: excitation signal. */ 

30 /* _ (FLOAT64 []) pdcfq: quantized prediction coefl*. */ 

/* _ (INT 16 ) I_sf: sub-frame size. */ 

/* _ (INT 16 ) isf: sub-frame index. */ 

/* _ (TNT 16 )lag: pitch lag. */ 

/* _ (FLOAT64 ) pgain: decoded pitch gain. */ 
35 /* _ (INT16 ) rat cm: current fixed bit-rale. */ 

/* _ (FLOAT64 ) lpcg: decoded LPC gain. */ 

/* V 

/* OUTPUT ARGUMENTS : */ 

/* (FLOAT64 [J) unfcod: unfi I lered excitation signal. */ 
40 /* */ 
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/* rNPUT/OUTPUT ARGUMENTS : */ 
/* _ (PARAMETER *) chan: output data structure. */ 
/* */ 

/* RETURN ARGUMENTS : V 
5 /* _None. */ 

void FCS_cdbk_decod_13b_sub54 (FLOAT64 ext [], FLOAT64 pdcfq [J, 

FLOAT64 unfcod [], INT16 l__sf, rNT16 i_sf, 
10 INT 1 6 lag, FLO AT64 pgain, 

INT16 ratem, FLOAT64 I peg, 
PARAMETER *chan) 

{ 

/* ; */ 


15 


20 


rNT16 T_Rw[L_SF3], N_Rw, n; 

TNT16 i, Iopt, IdxPulsfMAXPN], Sign[MAXPNJ; 

FLOAT64 Gp_m; 

FLOAT64 Rw[L_SF3], hh_vfL_SF3], tmpmcmfNP], pdcfq_w[NP]; 
/* *, 


for (i = 0; i < MAXPN; i++) 

IdxPu!s[i] = chan->idx_cpcb|i_sf][i]; 
25 for (i = 0; i < MAXPN; i++) 

Sign[iJ = 2*chan->idx_cpcbsign[i_sf][i]-l; 

if (chan->idx_subcpcb[i_sf|[0] — 1) 
{ 

30 /* */ 

/* 2 pulses CB: 2pulses x 5bits/pulse + 2 signs = 12 bits */ 
/* +/ 

FCS_Dccod_CPCB (0, Sign, 1.0, 5, 2, unfcod, l_sf, IdxPuIs); 
35 } 
else 

{ 

/* *, 

/* 3 pulses CB : 3 pulses x (2 or l)bits/pulse + */ 
40 /* 3 signs + 3bils center = 1 1 bits */ 
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/. ♦/ 

lopt = chan->idx_cenlcr|i_sfl; 

FCS_Decod_CPCB (lopt, Sign, 1.0, 2, 3, unfcod, l_sf, IdxPuls); 
> 

/* */ 

/* Pitch enhancement */ 
/* */ 


Gp_m « MIN(pgain, PAST_PGAIN_MAX); 
Gp_in = MAX(PAST_PGAIN_MIN, Gp_m); 

for (i = lag; i < l_sf; i++) 

unfcod[i] = unfcod(il + Gp_m* unfcod [i-lag]; 

FCS_STj>araineter (i_sf, rate_m, 1, pdcfq, lag, &StabJ3b_dcc, 

pdcfq_w, lpcg); 

FCS_Search_pastcorr (cxt, pdcfq, Stab_13b_dec, lag, pgain, raie_m, 1, 

i_sf, l_sf, Rw, T_Rw, &N_Rw); 

cpy_dvector (unfcod, hh_v, 0, l_sf-l); 

for (i = 0; i < N_R\v; i++) 

for (n = T_R\v[i]; n< l_sf; n-H+) 

unfcodfn] += Rw[i]*hh_v[n-T_Rw[iJ]; 

ini_dvector (tmpmem, 0, NP-1, 0.0); 

FLT_alIsyn (unfcod, l_sf, pdcfq_w, NP, unfcod, tmpmem); 

cpy_dvcctor (unfcod, hh_v, 0, l_sf-l); 
for(i- 1; i < L_HF; i++) 

for (n = i; n < 1_sf; n++) 

unfcod[n] += hh_hfli]*hh_v[n-i]; 

/* */ 


return; 
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-*/ 


/* FUNCTION 
/* 


FCS_cdbk_search_15b_sub80 0- 


/* PURPOSE : This function estimate the optimal fixed 
10 excitation for 4.0 kbps mode 0. */ 
/* V 

/* INPUT ARGUMENTS : */ 
/* (FLOAT64 []) ext: excitation signal. */ 


/* 
15 /* 
/* 
/* 
/* 
/* 
20 /* 
/* 
/* 
/* 
/* 

25 /* 
/* 
/*-- 


_ (FLOAT64 f]) pdcfq: quantized prediction coeff. " 
_ (FLOAT64 []) target: target signal. */ 
_ (FLOAT64 []) res: "ideal excitation" signal after */ 

LTP contribution. */ 
_ (FLOAT64 {J) hh: W(z)/A(z) impulse response. 
_ (INT16 ) ]_sf: sub-frame size. */ 
_(TNT16 ) i_sf: sub-frame index. */ 
_ (INT16 ) lag: pitch lag. */ 
_(INT16 )VUV: frame class. */ 
_ (FLOAT64 ) pgain: quantized pilch gain. 
_ (FLOAT64 ) NSR: noise lo signal ratio. 
_ (FLOAT64 ) Rp: pitch preprocessing pitch 

correlation. */ 

-V 


*/ 


*/ 
*/ 
*/ 


/* OUTPUT ARGUMENTS : */ 

_ (FLOAT64 []) unfcod: uniiltercd excitation signal. */ 
30 /* _ (PARAMETER *) chan: output data structure. */ 
/* v 

/* INPUT/OUTPUT ARGUMENTS : */ 

/* _ None. */ 

/* v 

35 /* RETURN ARGUMENTS : */ 
/* _ None. */ 




void FCS_cdbk_scarch_15b_sub80 (FLOAT64 exl[], FLOAT64 pdcfq[], FLOAT64 target[], 
40 FLOAT64 res[] t FLOAT64 hh[], FLOAT64 unfeodf], 
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FNT16 I_sf, INTI6 i_sf, INTI6 lag, 

INT 16 VUV, FLOAT64 pgain, FLOAT64 NSR, FLOAT64 Rp, 
INT16 rate_m, FLOAT64 Ipcg, PARAMETER ♦chan) 

{ 

5 /* */ 

TNT 16 mode; 

INT 16 T_RwfL_SF], N_Rw; 

INT16 IdxPulsrMAXPNl={0}, SignfMAXPN] = {0}; 
10 INT16 i, n, Iopt; 

INT16 IdxPulsjmplMAXPNl, 

Sign_tnip[MAXPN], SignTab[L_SF]; 

FLOAT64 P1_SHP, Criter, Criterjn, Critcrjmp, Gp_m, gp; 

FLOAT64 hh_v[L_SF], refIL_SF], 
15 FLOAT64 R\v[L_SF], tmpmem[NP], pdcfq_w[NP]; 


cpy_dvecior (hh, hh_v, 0, l_sf-l); 
20 FCS_ST_parameter (i_sf, ratc_m, I, pdcfq, lag, &Stab_15b_cnc, 

pdcfq_w t lpcg); 

FCS_Search_pastcorr(ext, pdcfq, Stab_15b_cnc, lag, pgain, rate_m, 0, 

i_sf, l_sf, Rw, T_R\v, &N_Rw); 

25 

for (i = 0; i < N_Rvv; i++) 

for (n = T_Rw[i]; n < l_sf; n++) 

hh_v|n] += R\v[i]*hh(n-T_Rw[i]]; 

30 ini dvcctor (impmem, 0, NP-1, 0.0); 

FLT_allsyn(hh_v, l_sf, pdcfq_w, NP, hh_v, impmem); 

cpy_d vector (hh_v, ref, 0, 1 sf-1); 

35 for (i = 1; i < L HF; i++) 

for (n = i; n < l_sf; n-H-) 

hh_v[n] += hh_hfli]*re£ln-i]; 


/*- 


40 /* 2 pulses CB : 2pulscs x 6bils/pulse + 2 signs = 14 bits */ 
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FCS_CaIc_prc_scarch (hh_v, hhv, lag, pgain, &Gp_m, target, ref, 

SignTab, res, 0.0, 0, l_sf); 

Critcr = - I; 
gp = 0.75; 

FCS_Simp_Search_4kCB (0, 1, 1, Sign, 1.0, 7, 2, SignTab, ref, &Crilcr, 

unfcod, l_sf, IdxPuls, lag, gp); 

mode = 3; 
Critcr_m = Critcr; 

/* */ 

/* Sign check */ 

/* */ 

if (IdxPuls[0]<=IdxPuls|ll) 
{ 

if(Sign[0]!=Signfll) 

FCSJPulseExchangc(ldxPuIs, Sign, IdxPuls+1, Sign+1); 
} 

else 
{ 

if(Sign[0]==Sign[l]) 

FCS_PulscExchange(IdxPu!s, Sign, IdxPuls+1, Sign+1); 

} 


IdxPulsfO] = IdxPuls[0]*L_SF+ IdxPulsJl); 


/* 3 pulses CB : 3 pulses x 2 bits/pulse + 3 signs + 4bits center = */ 

/* 13 bits */ 

/* */ 

/* */ 

/* Reference signal */ 

/* */ 
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FCS_Calc_prc_search (hh_v, hhjv, lag, 0.25, &Gp_m, target, ref, 

SignTab, res, 0.0, 1, l_sf); 


/* 

/* Determine the center */ 


Iopt = 0; 
10 Criter = -1; 

Criterjmp = Criter; 

for (i = 0; i < SEG_NUM_M0; i++) 

{ 

FCS__Siinp_Search_CPCB(0, 0, i, Sign_tmp, 1.0, 2, 3, SignTab, ref, 
15 &Criter, hh_v, l_sf, IdxPuls_tmp); 

if(Critcr > Critcrjmp) 
lopt = i; 

20 Criter J nip = Criter; 
} 


/* Determine the shape */ 
25 /* */ 

Criter = Criter_m; 

if ((lag < 35) && (Rp < 0.6)) 
30 Criter*=MIN(0.6-K).4*(lag-MIN_LAG)/(35.0-MlN_LAG), 1.0); 


Critcr_tinp = Crilcr; 

FCS_Full__Search_CPCB(lopt, Sign, 1.0, 2, 3, SignTab, ref, &Critcr, 
35 unfcod, l_sf, IdxPuls); 

if (Criter > Criter_Unp) 
mode = 2; 

else 

40 Criter = Criterjn; 
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/* +/ 

/* Perceptual Whcightcd decison */ 
/* */ 

5 

P1_SHP = PPP_sharpness (l_sf, res); 

if ((VUV >= 3) && (Rp<0.75)) 

Criter *= MIN(MAX(1.5-4.0*P1_SHP, 0.5), 1.0); 
10 if (VUV ==2) 

Criter *= MTN(MAX(1.5-5.0*P1_SHP, 0.25), 1.0); 
if (VUV <= 1) 

Criter *= 0.75*MIN(MAX(1.5-5.0*P1_SHP, 0.0), 1.0); 
if ((VUV == I) && (mode = 3) && (lag < 50)) 
15 Criter *= 0.5; 

if (VUV >= 2) 

Criter *= 1.0-0.5*NSR*MIN(P1_SHP+0.5, 1.0); 


20 


Crilerin = Criter, 

/* Gaussian codebook, 13 bits */ 
/* */ 


25 GCB_gauss_cb_itu4k (target, res, hh, &Criter, unfcod, idxPuls, Sign, 

N_GAUSS_13b); 

if (Criter > Criterm) 
30 { 

mode = 1 ; 

IdxPulsfO} - IdxPuls[0]*N_GAUSS_13b + IdxPulsf 1J; 
) 

35 /* */ 

/* Index of theedbk */ 

/* ♦/ 

for (i = 0; i < MAXPN; 
40 chan->idx_cpcb[i_sf][i) = IdxPu!s[iJ; 


N GAUSS 13b, 
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for (i = 0; i < MAXPN; i++) 

chan->idx_cpcbsign|i_sf][ij = (Sign[i]+])/2; 

chan->idx_centcr[i_sf] = lopt; 

5 

if (mode ==3) 

chan->idx_subcpcb[i_sf][0] =1; 

else 

{ 

10 chan->idx_suocpcb[i_si][0] = 0; 

if (mode == 2) 

chan->idx_subcpcb[i_sf][l] = 1; 

else 

chan->idx_subcpcb[i_sf|[l] = 0; 

15 } 

/* */ 

/* Harmonic weighting on unfcod V 
/* */ 

20 

if (mode >= 2) 
{ 

if (mode =- 2) 

for (i = lag; i < I_sf; i++) 
25 unfcod[i] += Gp_m * unfcod[i-lagI; 

cpy_dvcctor (unfcod, hh_v, 0, l_sf-l); 
for (i = 0; i < N_Rw; i++) 

for (n = T_Rw[iI; n < l_sf; n++) 
30 unfcod[n] += Rvv[i]*hh_v[n-T_Rw[i]J; 

inidveclor (impmem, 0, NP-I, 0.0); 
FLT_allsyn(unfcod, I_sf, pdcfq_\v, NP, unfcod, tmpmem); 

35 cpy_dvector (unfcod, ref, 0, l_sf-l); 

for(i= 1 ; i < L_HF; i++) 

for (n = i; n < I_sf; n++) 

unfcod|n| += hh_hffij*refln-i]; 

} 


40 
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*/ 


return; 
/* 


/♦ „v 

10 


/* FUNCTION : FCS_cdbk_decod_15b_sub80 (). ♦/ 
/* v 

/* PURPOSE : This function decode the fixed excitation vector */ 
15 /* for 4.0 kbps mode 0. */ 

/* */ 

/* INPUT ARGUMENTS : */ 
/* _ (FLOAT64 []) ext: excitation signal. */ 
/+ _ (FLOAT64 [J) pdcfq: quantized prediction coeff */ 
20 /* _(INT16 )l_sf: sub-frame size. */ 
/* _(INT16 )i_sf: sub-frame index. */ 
/* _ (INT16 ) lag: pitch lag. */ 
/* _ (FLOAT64 ) pgain: decoded pilch gain. */ 
/* _ (INT16 ) rate_m: decoded fix bit-rate. */ 
25 /* _(FLOAT64 ) lpcg: decoded LPC gain. */ 
/* v 

/* OUTPUT ARGUMENTS : */ 

/* _ (FLOAT64 []) unfcod: unfiltered excitation signal. */ 
/* v 

30 /* INPUT/OUTPUT ARGUMENTS : */ 

/* (PARAMETER *) chan: output data structure. */ 
/* v 

/* RETURN ARGUMENTS : */ 
/* _ None. */ 


void FCS__cdbk_dccod_ 1 5b_sub80 (FLOAT64 ext[], FLO AT64 pdcfq[], 

FLOAT64 unfeodf], INT16 I_sf, INT16 i^sf, 
INT16 lag, FLOAT64 pgain, 
40 INT 16 rate_m, FLOAT64 lpcg, PARAMETER *chan) 
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< 

/* */ 

INT16 mode; 
5 INT16 T_Rw[L_SF], N_Rw; 

INT16 i, n, lopt, IdxPuIsJMAXPN], SignfMAXPNJ, IdxGauss[2J; 
FLOAT64 gp, tinp[L_SFJ; 

FLOAT64 Rw[L_SF],tmpmem[NP|, pdcfq_\v[NP]; 

10 /* */ 

for (i = 0; i < MAXPN; i++) 

IdxPulsfi] = chan->idx_cpcb[i_sf]li]; 

15 for (i = 0; i < MAXPN; i++) 

Sign|i| = 2*chan->idx_cpcbsignp_sf][i] - 1; 

if (chan->idx_subcpcb[i_sfj|0] == 1) 
{ 

20 /* */ 

/* 2 pulses CB: 2pulses x 6bits/pulsc + 2 signs =14 bits */ 
/* ♦/ 

mode = 3; 

25 gp = 0.75; 

i = IdxPulsl01/L_SF; 
IdxPuls[l]= IdxPulsIO] - i*L_SF; 
IdxPuls|0) = i; 

30 

/* Sign check */ 

/* ♦/ 

35 if (IdxPuls(0] <= IdxPuls[ 1 ]) 

Sign[l] = Sign[0]; 

else 

Signll] = -Sign[0J; 
40 FCS_Decod_PitCB (I, Sign, 1.0, 7, 2, unfcod, l_sf, IdxPuls, 
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lag, gp); 


10 


else 


{ 

if (chan->idx_subcpcbli_sf][l] == 1) 
{ 

/* 


/* 3 pulses CB : 3 pulses x 2 bits/pulse + 3 signs + */ 
/* 4bits center = 13 bits */ 
/* */ 


15 


mode = 2; 

Iopt = chan->idx_center[i_sf]; 

FCS_Decod_CPCB (Iopt, Sign, 1.0, 2, 3, unfcod, l_sf, 

IdxPuls); 


else 


20 


/*- 

/* 

/*- 


Gaussian codebook, 13 bits 


*/ 
-+/ 


25 #ifdcf VERBOSE 


#endif 


30 


mode = 1 ; 


if (lsf != 40+40) 

nrerror("ERROR: dimension mismatch decoding gaussian excitatioMn"); 


/*- 


-*/ 


/* Decode the 1 1 bits index into the two 45-cntry */ 

/* codebooks */ 

/* v 


35 


IdxGauss[0) = IdxPuls[0]/N_GAUSS_13b; 

Id\Gauss[l] - IdxPuIs[OJ - N_GAUSS_13b*IdxGaussfOJ; 

GCB_decode_gauss_cbJtu4k(N_GAUSS_l3b f 40, IdxGauss[0], 


Sign|0J T unfcod); 


40 


GCB_dccode __gauss_cb_itu4k(N_GAUSS_13b, 40, IdxGaussfl], 
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Signfl], unfcod+1); 

} 

} 

5 

FCS_ST_parametcr (i_sf, rate_m, 1, pdcfq, lag, &SlabJ 5b_dec, 

pdcfq_w, lpcg); 

FCS_Search_pastcorr(ext, pdcfq, Stab_15b_dec, lag, pgain, rate_m, 0, 
10 i__sf, l_sf, Rw, T_Rw, &N_Rw); 

if(mode>=2) 
{ 

if (mode == 2) 
15 for (i = lag; i < l_sf; i++) 

unfcodfi] = unfcod[i] + 0. 25* unfcod [i-lag]; 

cpy_d vector (unfcod, tmp, 0, l sf-1); 
for (i = 0; i < N_Rw; 
20 for (n = T_Rw[i]; n < l_sf; n++) 

unfcod[n] += Rw[il*tmpIn-T_R\v[i]]; 

ini_dvector (tmpmcm, 0, NP-1, 0.0); 

FLT_alIsyn (unfcod, l_sf, pdcfq_w, NP, unfcod, tmpmem); 

25 

cpy_dvcctor (unfcod, tmp, 0, l_sf-l); 
for(i= l ;i<L_HF; i++) 

for (n = i; n < l_sf; n++) 

unfcod[n] += hhjifli]*tmpln-i]; 

30 } 


return; 

35 

/* */ 

} 

/, */ 

40 
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FCS_cdbk_scarch_22b_sub40 Q. 


/* FUNCTION 

y 

/* PURPOSE : This function estimate the optimal fixed 
5 f * excitation for 8.5 kbps mode 0. */ 

/» : v 

/* INPUT ARGUMENTS : *, 
/* _ (FLOAT64 []) ext: excitation signal. */ 


*/ 


/* 
10 /* 
/* 

I* 
/* 
I* 
15 /* 
/* 
/* 
/* 
/* 
20 /* 
/* 
/*-- 


- (FLOAT64 []) pdcfq: quantized prediction coefT. 

_ (FLOAT64 []) target: target signal. */ 

_ (FLOAT64 []) res: "ideal excitation" signal after */ 
LTP contribution. */ 

_ (FLOAT64 []) hh: W(z)/A(z) impulse response. 

_ (INT16 ) I sf; sub-frame size. */ 
_ (INTI6 ) i_sf; sub-frame index. */ 
_ (INT16 ) lag: pitch lag. */ 
_ (INT16 ) VUV: frame class. ♦/ 
_ (FLOAT64 ) pgain: quantized pitch gain. 
_ (FLOAT64 ) NSR: noise to signal ratio. 
_ (FLOAT64 ) Rp; pitch preprocessing pitch 
correlation. */ 


*/ 


*/ 
*/ 
*/ 


/* OUTPUT ARGUMENTS : * / 

/+ _(FLOAT64 (l)unfcod: unfillered excitation signal. */ 
25 /* ^ (PARAMETER *) chan: output data structure. */ 
/* 


/* INPUT/OUTPUT ARGUMENTS : 
/* _ None. 

/* 


*/ 


30 /* RETURN ARGUMENTS : 
/* _ None. 

/♦===========;==:== ==s==== 


void FCS_cdbk_scarch_22b_sub40 (FLOAT64 ext [], FLOAT64 pdcfq [], 
35 FLOAT64 target [J, FLOAT64 res [J, FLOAT64 hh f], 

FLOAT64 unfcod [], INT J 6 I_sf, INT 1 6 i sf, 

INT16 lag, INT16 VUV, FLOAT64 pgain, 

FLOAT64 NSR, FLOAT64 Rp, PARAMETER *chan) 


40 


{ 
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/* */ 

INT 16 i, mode; 

INT16 IdxPulsrMAXPN], Sign[MAXPN], SignTab[L_SF4|; 
FLOAT64 P1_SHP, Critcr, Critcr_m, Criler_m3, Criter_m2, Gpjn, Gp; 
FLOAT64 hh_v[L_SF4], rcl[L_SF4]; 


— */ 


10 if ((lag < 20) && (pgain > 0.5)) 

Gp = MIN(pgain, 1.0)*0.75; 

else 

Gp = pgain; 
Gp = MIN(Gp, PAST_PGAIN_MAX2); 

15 

/* */ 

/* Reference signal */ 

/♦ */ 

20 FCS_Calc_pre_search (hh, hh_v, lag, Gp, &Gp_m, target, ref, SignTab, 

res, 0.5, 1, l_sf); 

/* */ 

/* 5 pulses CB : 3p x 4b + 2p x 3b + 3b signs = 2 1 bits */ 
25 /* */ 

Critcr=-1; 

FCS_Simp_Search_CPCB (0, 1, 0, Sign, 1.0, 4, 5, SignTab, ref, &Criter, 

uafcod, l_sf, IdxPuls); 

30 mode = 3; 

Criter_in = Criter; 
Critcr in3 = Criter; 


/*- 


-*/ 


35 /* 5 pulses CB : 5p x 3b + 5b signs = 20 bits */ 
/* V 

FCS_Simp_Search_CPCB(0, 0, 2, Sign, 1.0, 3, 5, SignTab, ref, &Criter, 

unfcod, l_sf, IdxPuls); 

40 if (Critcr > Criter_m) 
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{ 

mode = 2; 
Criler_m2 = Critcr; 
} 

5 

/* . */ 

/* Perceptual Whcighted decison */ 
/* V 

10 P1_SHP = PPP_sharpncss(l_sf, res); 

if(VUV<= 0) 

Crilcr *= 0.9*MIN(MAX(L5-5.0*P1_SHP, 0.7), 1.0); 
if (VUV== 1) 

Criter *= 0.9; 
15 if(VUV>=I) 

Criter *= 1.0-0.25*NSR*MIN(P1_SHP-K).5, 1.0); 
Criter_m = Critcr; 

/* */ 

20 /* 5 pulses CB : 5p x 3b + 5b signs = 20 bits */ 
/* */ 

FCS_Simp_Search_CPCB(0, 1, I, Sign, 1.0, 3, 5, SignTab, ref, &Criter, 

unfcod, lsf, IdxPuls); 


25 


if (Critcr > Critcr_m) 
mode = 1; 


30 /* 

/* Fine serach 
/* 


35 switch (mode) 

{ 

/* */ 

/* 5 pulses CB : 3p x 4b + 2p x 3b + 3b signs = 21 bits */ 
/* */ 

40 
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case 3: Cri(cr= Criter_m3; 

FCS_Siinp_Scarch_CPCB(2, 2, 0, Sign, 1.0, 4, 5, SignTab, 

ref, &Criicr, unfcod, l_sf, IdxPuls); 


/* */ 

/* Sign check on the same track */ 
/* V 

for (i= 1; i < 3; i++) 
{ 

ir(IdxPuls[i] <= IdxPuls[i+2]) 
{ 

if(Sign[i] != Sign[i+2]) 

FCS_PulscExchange (IdxPuls+i, Sign+i, 
IdxPuIs+i+2, Sign+i+2); 

} 

else 

{ 

if(Sign[i] Sign[i+2]) 

FCS_PulscExchange (IdxPuIs+i, Sign+i, 
IdxPuls+i+2, Sign+i+2); 

} 

} 


break; 


/* */ 

/* 5 pulses CB : 5p x 3b + 5b signs = 20 bits */ 
/* */ 


case 2: Criter = Criter_m2; 

FCS_Simp_Search_CPCB(l, 1, 2, Sign, 1.0, 3, 5, SignTab, 
ref, &Critcr, unfcod, l_sf, IdxPuls); 

break; 


/* 
/* 
/* 


*/ 

*/ 

■♦/ 
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case 1: FCS_Simp_Scarch_CPCB(2, 2, 1, Sign, 1.0, 3, 5, SignTab, 

rcf, &Criicr, unfcod, l_sf, IdxPuls); 

break; 

default: nrerror(" Wrong mode !!"); 
break; 

} 


/* Index of the cdbk */ 

for (i = 0; i < MAXPN; i++) 
15 chan->idx_cpcb[i_sf][i] = IdxPuls[i]; 

for (i = 0; i < MAXPN; i++) 

chan->idx_cpcbsign[i_sf]li] = (Sign[i]+l)/2; 

20 

if (mode == 3) 

chan->idx_subcpcb[i_sfl[0J = 1; 

else 

{ 

25 chan->idx_subcpcb[i_sf|[0] = 0; 

if (mode ==2) 

chan->idx_subcpcb[i_sf][l] - 1; 

else 

chan->idx_subcpcb[i_sf]f I] - 0; 

30 } 

/* */ 

/* Harmonic weighting on unfcod */ 
/* V 


35 


for (i = lag; i < l_sf; i++) 

unfcod[i] += Gp_in * unfcod[i-lag], 

/* */ 


40 
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return; 

/* */ 

} 

5 

/♦ */ 

/* FUNCTION : FCS_cdbk_decod_22b_sub40 0 *' 

/* PURPOSE : This function decode the fixed excitation vector */ 
/* for 8.5kbps mode 0. */ 

/* */ 

/* INPUT ARGUMENTS : * f 

15/* _ (INT 16 ) l_sf: sub-frame size. */ 
/* _ (INTI6 ) i_sf: sub-frame index. */ 
/* _(1NTI6 )lag: pitch lag. */ 
/* _ (FLOAT64 ) pgain: decoded pitch gain. */ 
/* _ (INT 16 ) rate_m: decoded fix bit-rate. */ 

20 /* _(FLOAT64 ) Ipcg: decoded LPC gain. */ 

/* */ 

/* OUTPUT ARGUMENTS : */ 
/* _ (FLOAT64 []) unfcod: unfiltcred excitation signal. */ 
/* */ 

25 /* INPUT/OUTPUT ARGUMENTS : */ 
/* _ (PARAMETER *) chan: output data structure. */ 


/ 


7 


/* RETURN ARGUMENTS : */ 
/* _ None. */ 

30 /*========================================== = 


void FCS_cdbk_dccod_22b_sub40(FLOAT64 unfcod [], INT16 l_sf, INT16 i_sf, 
INT 16 lag, FLOAT64 pgain, PARAMETER *chan) 
{ 

35 /♦ ♦/ 

INT 16 i, IdxPulsfMAXPN], SignfMAXPN]; 
FLOAT64 Gp_m; 


40 t* 
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for (i = 0; i < MAXPN; i++) 

IdxPuIs[i]=chan->idx_cpcb[i_sfl[i]; 

for (i = 0; i < MAXPN; i++) 

Sign[i] = 2*chan->idx_cpcbsign[i_sf][i]-l; 


if (chan->idx_subcpcb[i_sf]10] == 1) 
10 { 

/* 5 pulses CB : 3p x 4b + 2p x 3b + 3b signs = 21 bits */ 
/* */ 

15 for(i = l;i<3;i++) 

{ 

if (IdxPuls[i] <= IdxPuIs[i+2]) 
Sign[i+2J = Sign[i]; 

else 

20 Sign[i+2] = -Signp]; 

> 

FCS_Dccod_CPCB(0, Sign, 1.0, 4, 5, unfcod, l_sf, IdxPuls); 
} 

25 else 

{ 

if (chan->idx_subcpcb[i_sf][ 1]==1) 
{ 

/* */ 

30 /* 5 pulses CB : 3p x 4b + 2p x 3b + 3b signs = 21 bits */ 

/* . — */ 

FCS_Decod_CPCB(2, Sign, 1.0, 3, 5, unfcod, l_sf, IdxPuls); 
} 

35 else 

{ 

/* */ 

/* 5 pulses CB : 5p x 3b + 5b signs = 20 bits */ 
/* */ 

40 
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FCS_Decod_CPCB(l, Sign, 1.0, 3, 5, unfcod, l_sf, IdxPuls); 
} 

} 

5 /* V 

/* Pitch enhancement */ 
/♦ */ 

if ((lag < 20) && (pgain > 0.5)) 
10 Gp_m = MIN(pgain, 1.0)*0.75; 

else 

Gp_m = pgain; 

Gp_m = MIN(Gp_m, PASTJPGAIN_MAX2); 
1 5 Gp_m = M AX(P AST_PG AIN JVliN, Gp_m); 

for (i = lag; i < l_sf; i++) 

unfcod[i) = unfcod(i| + Gp_m*unfcod[i-Iag); 

20 

return; 


25 /* */ 

} 

/* */ 

/* FUNCTION : FCS_cdbkj;carch_30b_sub40 ()• */ 
/* */ 

/* PURPOSE : This function estimate the optimal fixed */ 
/* excitation for 8.5kbps mode 1. */ 

35 /* */ 

/* INPUT ARGUMENTS : */ 
/* _ (FLOAT64 []) cxt: excitation signal. */ 
/* _ (FLOAT64 []) pdcfq: quantized prediction coeff. */ 
/* (FLOAT64 []) target: target signal. */ 

40 /* _ (FLOAT64 []) res: "ideal excitation" signal after */ 


WO 01/22402 


PCT/USOO/25182 


356 

/* LTP contribution. */ 

/* _ (FLOAT64 []) hh: W(z)/A(z) impulse response. */ 
/* _ (INT 16 ) I_sf: sub-frame size. */ 
/* _ (rNT16 ) i_sf: sub-frame index. */ 
5 /* _ (INT16 ) lag: pitch lag. */ 
/* _ (TNT 16 )VUV: frame class. */ 
/* _ (FLOAT64 ) pgain: quantized pitch gain. */ 
/* _ (FLOAT64 ) NSR: noise to signal ratio. */ 
/* _ (FLOAT64 ) Rp; pitch preprocessing pitch */ 
10 ./* correlation. */ 

/* v 

/* OUTPUT ARGUMENTS ; */ 
/* _ (FLOAT64 []) unfcod: unfiltered excitation signal. */ 
/* _ (PARAMETER *) chan: output data structure. */ 
15 /* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 

/* _ None. */ 

/* */ 

/* RETURN ARGUMENTS : */ 
20 /* _None. */ 


void FCS_cdbk_search_30b_sub40(FLOAT64 ext [], FLOAT64 pdcfq [], FLOAT64 target [], 

FLOAT64 resD, FLOAT64 hh [] t FLOAT64 unfcod [], 
25 INT16 l_sf, INT16 i_sf, INT 16 lag, INT16 VUV, 

FLOAT64 pgain, FLOAT64 NSR, FLOAT64 Rp, 
PARAMETER *chan) 

{ 

/* _ ♦/ 

30 

INT16 i ; 

1NT16 IdxPuls[MAXPN], SignfMAXPN], SignTab[L_SF4]; 
FLOAT64 Criter, Gp_m t Gp; 
FLOAT64 hh_v[L_SF4], rcfTL_SF4); 

35 

/* *, 

if ((lag < 20) && (pgain > 0.5)) 

Gp = MIN(pgain, 1.0)*0.75; 

40 else 
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Gp = pgain; 

/* */ 

5 FCSJTalc_prc_search (lih, hh_v, lag, Gp, &Gp_m, target, ref, SignTab, 

res, 0.5, 1, l_sQ; 

/* */ 

/* 8 pulses CB : 6p x 3b + 2p x 4b + 4b signs = 30 bits */ 
10 /* */ 

Criter = -i; 

FCS_SimpJ5earch_CPCB(0, 0, 0, Sign, 1.0, 4, 8, SignTab, ref, &Criter, 

unfcod, l sf, IdxPuls); 

15 

FCS_SimpJ5carch_CPCB(l, 1, 0, Sign, 1.0, 4, 8, SignTab, ref, &Critcr, 

unfcod, l_sf, IdxPuls); 

/* */ 

20 /* Sign check on the same track */ 
/* ♦/ 

for (i = 0; i < 4; 
{ 

25 if (IdxPulsfil <= ld\Puls[i+4]) 

{ 

if(Sign(i] !=Sign[i+4]) 

FCS_PulseExchangc(IdxPuls+i, Sign+i, IdxPuls+i+4, 

Sign+i+4); 

30 } 

else if (Sign[i) == Signli+4J) 

FCS_PulseExchange(IdxPuls+i, Sign+i, IdxPuls+i+4, 

Sign+i+4); 

} 

35 


/* Index of theedbk */ 

/* */ 


40 
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for (i = 0; i < MAXPN; i++) 

chan->idx_cpcb[i_sf|[i] = IdxPuls[i]; 

for (i = 0; i < MAXPN; i++) 

chan->idx_cpcbsignli_sflli] = (Signli]+l)/2; 

chan->idx_subcpcb[i_sf][0] = 1; 


10 


/*- 

/* 

/*- 


Hannonic weighting on unfcod 


-*/ 


15 


for (i = lag; i < l_sf; i++) 

uiifcod[i] += Gp_m * unfcod[i-lag]; 


return; 


20 


/*- 


*/ 


25 

/* FUNCTION : FCS_cdbk_decod_30b_sub40 0- *' 

/* PURPOSE : This function decode the fixed excitation vector */ 
/* for 8.5 kbps mode 1 . */ 
30 /* 


/* 
/* 

35 /♦ 
/* 
/* 
/* 


*/ 

*/ 
*/ 


/* INPUT ARGUMENTS : 
/* _ (INT 16 ) l_sf: sub-frame size. 

_ (INT 16 ) i_sf: sub-frame index. 
_(INT16 ) lag: pitch lag. */ 
_ (FLOAT64 ) pgain: decoded pilch gain. 
_ (INT 16 ) rate nr. decoded fix bit-rate. */ 
_ (FLOAT64 ) Ipcg: decoded LPC gain. */ 

/* OUTPUT ARGUMENTS : */ 


*/ 


40 /* _ (FLOAT64 []) unfcod: unfiltered excitation signal. */ 
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/* ♦/ 

/* rNPUT/OUTPUT ARGUMENTS : */ 
/* _ (PARAMETER *) chan: oulput data structure. */ 

/♦ */ 

5 /* RETURN ARGUMENTS : */ 
/* _ None. */ 

void FCS_cdbk_dccod_30b_sub40 (FLOAT64 unfcod [], INT16 l_sf, 
10 INT16 i_sf, INT16 lag, FLOAT64 pgain, 

PARAMETER *chan) 

{ 

/* */ 

15 INT16 i, IdxPuIsrMAXPNl, Sign[MAXPN]; 

FLOAT64 Gp_m; 


/* 


20 for (i = 0; i < MAXPN; i++) 

IdxPuls|iJ = chan->idx_cpcb[i_sfl[i]; 

for (i = 0; i < MAXPN; i++) 

Signji] = 2*chan->idx_cpcbsign[i_sf][i]-l; 

25 


/* 8 pulses CB : 6p x 3b + 2p x 4b + 4b signs = 30 bits */ 
/* */ 

30 for (i = 0; i < 4; i++) 

{ 

if (IdxPuls(i] <= IdxPuls[i+4)) 
Sign[i+4]= Sign[i]; 

else 

35 Sign[i+4] = -Signfi]; 

} 

FCS_Decod_CPCB(0, Sign, 1.0, 4, 8, unfcod, l_sf, IdxPuls); 
40 /* */ 
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Pitch enhancement 


360 


--*/ 


if ((lag < 20) && (pgain > 0.5)) 
5 Gp_m - MIN(pgain, L0)*0.75; 

else 

Gprn - pgain; 

Gp_m = MIN(Gp_rn, PAST_PGAIN_MAX); 
10 Gp_m = MAX(PAST_PGAIN_MIN, Gp_m); 

for (i = lag; i < l_sf; i++) 

unfcodli] = unfcod[i] + Gp_m*unfcod|i-lag]; 


15 


/* 


20 


return; 


25 /* FUNCTION : FCS_ChangcSign ()• 
/+ 


*/ 


/* PURPOSE : This function modify the sign of the excitation */ 


/*- 


gain. 


-*/ 


30 /* INPUT ARGUMENTS : */ 
/* _ (PARAMETER *) clian: output data structure. 
_ (INT 16 ) i_sf: sub-frame index. */ 
_ (INT 16 ) I_sf: sub-frame size. */ 
_ (FLOAT64 []) unfcod: unfiltered excitation signal- */ 
_(FLOAT64 [])fcod: filtered excitation signal. */ 
*/ 


/* 
/* 
/* 

35 /♦ 
/* 


/* OUTPUT ARGUMENTS : 

/* _ None. 

/♦ 


-V 


40 /* INPUT/OUTPUT ARGUMENTS : 


*/ 
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/* (FLOAT64 *)gain: unquntizcd excitation gain. */ 

/• */ 

/+ RETURN ARGUMENTS : */ 
/* _ None. */ 

5 /♦======^=====r===================-=================== 

void FCS_ChangeSign (PARAMETER +chan, INT16 i_sf, INT16 l_sf, 
FLOAT64 unfcod [], FLOAT64 fcod [], FLOAT64 *gain) 
{ 

io /* : */ 

INT 16 i; 


15 


20 


30 


40 


for (i = 0; i < MAXPN; 

chan->idx_cpcbsign[i_sfl[i] *= -1; 
for (i = 0; i < MAXPN; i++) 

chan->idx_cpcbsign[i_sfl[i] += 1; 


for (i = 0; i < l_sf; i++) 

unfcod[i] *= -1.0; 

for (i = 0; i < l_sf; i++) 
fcodli] *= -1.0; 
25 (*gain) = -(*gain); 


/*- 


return; 


/* */ 

35 


/*============================= 

/* END 


=*/ 


==*/ 
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=*/ 


=*/ 


/* Conexant System Inc. 
5 /* 43 1 1 Jamboree Road 
/* Newport Beach, CA 92660 
/* 


*/ 
*/ 


/* Copyright(C) 2000 Conexant System Inc. 
/* 


*/ 


*/ 


10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

/*======^================================== = ===-= == === == 

15 /* PROTOTYPE FILE : Ub.fcs.lt */ 


=*/ 


/*- 
/*- 
20 /*- 


FUNCTIONS 


voidFCS init lib 


(void); 


void FCS Init CPCB 


25 


voidFCS Set CPCB 


(void); 


(INT16, INTI6, INT16, INT16); 


voidFCS Init HF Noise 


(FLOAT64 [], INT16); 


30 


void FCS DetcnnPulsLoc 


(FLOAT64, 1NT16, FLOAT64, INT16, FLOAT64 [], 
INT16 [], INT16 *, INT16); 


35 


void FCS One Search CPCB 


(INT16, INT16 0, FLOAT64 [], FLOAT64 [], INT16 [] y 

INT16 [], FLOAT64 *, FLOAT64 *, FLOAT64 *); 


40 
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void FCS On e _Scarch_4kCB (INT 16 l), INT16. FLOAT64, INT16. INT16, INT 16 [], 

FLOAT64 [], FLOAT64 [], INT16 [], INT16 [], 

FLOAT64 *, FLOAT64 *, FLOAT64 *, INT16); 

5 void FCS Fu.« Search CPCB (INT16, INT16 [], FLOAT64, INT16, INTI6, INT16 [], 

FLOAT64 [], FLOAT64 *, FLOAT64 [], 
INT16, INT16 [)), 


10 void FCS_Si.np_Scarch_CPCB (INT16, INT16, INT16, INT16 FLOAT64, INT16, 

rNT16, INT16 n. FLOAT64 [], FLOAT64 *. 
FLOAT64 [], INT16, INT16 []); 


15 void FCS_Si.np_Scarch_4kCB (INT16, INT16, INT16. INT16 [], FLOAT64, INT16, INT16, 

INT 16 [], FLOAT64 [], FLOAT64 *, FLOAT64 [), 
INT16, INT16 [], INT16, FLOAT64); 


20 void FCS_Dccod_CPCB (INT 16, INT 16 Q, FLOAT64, INT16, INT16, FLOAT64 [], 
INT 16, INT 16 []), 

25 void FCS_Dccod_PitCB (INT16, INT 16 fl. FLOAT64, INT16, INT16, FLOAT64 Q, INT16, 
INT16, FLOAT64), 


INT 16 n, 


30 void FCS_Calcj,re_search(FLOAT64 [J, FLOAT64 [], INT16, FLOAT64, FLOAT64 *, 

FLOAT64 0. FLOAT64 INT16 I], FLOAT64 □. FLOAT64, 


INT16, INT16); 


35 void FCS cdbk_searcli_13b_sub54 (FLOAT64 [], FLOAT64 [], FLOAT64 [], FLOAT64 (], 

FLOAT64 [], FLOAT64 fl, INT16, INT16, INT16, 


INT16, FLOAT64, FLOAT64, FLOAT64, 
INT16, FLOAT64, PARAMETER 


*); 

40 
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void FCS_cdbk_decod_13b_sub54 (FLOAT64 [], FLOAT64 n, FLOAT64 [], 

INT16, INT 16, INT 16, FLOAT64, INT 16, 
FLOAT64, PARAMETER *); 

5 void FCS_cdbk_searchJ5b_sub80 (FLOAT64 [], FLOAT64 [J, FLOAT64 [], FLOAT64 [], 

FLOAT64 [], FLOAT64 [], INT16, INT16, 

INT16, 1NT16, FLOAT64 , FLOAT64, FLOAT64, 
INT16, FLOAT64, PARAMETER *); 

10 void FCS_cdbk_dccod_15b_sub80 (FLOAT64 [], FLOAT64 [], FLOAT64 [], 

INT16, INT16, INT16, FLOAT64, 

INT 16, FLOAT64, PARAMETER *); 

void FCS_cdbk_search_22b_sub40 (FLOAT64 [], FLOAT64 [1, FLOAT64 0, FLOAT64 [], 
15 FLOAT64 [), FLOAT64 []. INT16, INT16, 

INT 16, INT 16, FLOAT64, 

FLOAT64, FLOAT64, 

PARAMETER *); 
20 void FCS_cdbk_decod_22b_sub40 (FLOAT64 [], INT 16, INT 16, 

INT 16, FLOAT64, PARAMETER *); 


void FCS_cdbk_scarch_30b_sub40 (FLOAT64 [], FLOAT64 [], FLOAT64 [], FLOAT64 
25 FLOAT64 [], FLOAT64 [], INT16, INT16, 

INT 16, INT16, FLOAT64, FLOAT64, 

FLOAT64, 

PARAMETER *); 

30 void FCS_cdbk_decod_30b_sub40 (FLOAT64 [], INT16, INT16, INT16, 

FLOAT64, PARAMETER *chan); 

void FCS_PulscExchange(INT16 *, INT16 *, INT16 INT16 *); 

35 

void FCS_ChangeSign (PARAMETER *, INT 16, INT16, FLOAT64 [], FLOAT64 Q, FLOAT64 *); 


40 void FCS_Search jastcorr (FLOAT64 [], FLOAT64 [], FLOAT64, INT16, FLOAT64, INT16, 
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FNT16, rNT16, INT16, FLOAT64 [], INT16 [], INT16 ♦); 


void FCS_ST parameter (INT16, INT16, INT16, FLOAT64 [], INT16, FLOAT64 *, 

FLOAT64 [], FLOAT64); 


■ 

/* END */ 

=========================*/ 

10 
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/*=: 


/* Conexant System Inc. */ 
5 /* 43 1 1 Jamboree Road */ 
/* Newport ©each, CA 92660 */ 

/* */ 

/* Copyright(C) 2000 Conexant System Inc. */ 

/* */ 

10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

15 /* LIBRARY: libjlt.c */ 


/*- 
/*- 

20 /*- 


INCLUDE 


-*/ 


-*/ 


#include "typedef.h" 

^include "main.h" 
25 ^include "mcutil.h" 
#include "gputiLh" 
include "lib fll.h" 


/*- 
30 /*- 
/*- 


FUNCTIONS 


/♦FUNCTION : filterAP 0- 
35 /* 


*/ 


/* PURPOSE : Frame data all poles filtering. 

/♦ V 

/* INPUT ARGUMENTS : *> 
/♦ */ 
40 /* _ (FLOAT64 []) a : filter coefficients. */ 


*/ 
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/* _ (FLOAT64 []) x : input signal frame. */ 

/* (INT16) P : filter order. */ 

/* _ (INT 16) N : number of input samples. */ 

/* *' 

5 /♦ OUTPUT ARGUMENTS : */ 

/* , */ 

/* _ (FLOAT64 []) y : output signal frame. */ 

/♦ */ 

/* INPUT/OUTPUT ARGUMENTS : */ 
10 /* */ 

/* _ (FLOAT64 []) buf : input/output memory array. */ 

/* */ 

/* RETURN ARGUMENTS : _ None. */ 

15 

void filterAP (FLOAT64 a fl, FLOAT64 x [], FLOAT64 y [], FLOAT64 buf (], 

INT16 

P, INT16 N) 

{ 

20 /* */ 

INT16 ij; 


25 

for (i = 0; i < N; i ++) 
{ 

buf[0] = x[i]; 

30 forO == P;j > o;j-) 

{ 


buf 10] (a |j]*buf[j]); 
buf [j] «buf o-i]; 
> 


35 


y [i] = buf[0]; 
} 


/*- 


40 


3NSCOC!D: -.WO 01334Q3A1 _!...- 


WO 01/22402 


PCT/USOO/25182 


369 


return; 


/♦ 

} 

5 

/♦ _ 

/* FUNCTION : fillcrAZ 0- *' 


-♦/ 


10 /' 


/ 


/* PURPOSE : Frame data all zeros filtering. */ 

/* */ 

/* INPUT ARGUMENTS : *> 
/* */ 

15/* _ (FLOAT64 []) b : filter coefficients. */ 
/* _ (FLOAT64 []) x : input signal frame. */ 
/* (INT16) P : filter order. */ 
/* _ (INT 16) N : number of input samples. */ 
/* */ 

20 /* OUTPUT ARGUMENTS : */ 

/* */ 

/* _ (FLOAT64 []) y : output signal frame. */ 


7 


/* INPUT/OUTPUT ARGUMENTS : *' 
25 /* */ 

/* _ (FLOAT64 []) buf : input/output memory array. */ 

/* RETURN ARGUMENTS : _ None. */ 

30 

void filtcrAZ (FLOAT64 b [], FLOAT64 x [], FLOAT64 y [], FLOAT64 buf [], 
N) 

{ 

35 V 

INT16 


=*/ 


INT16P, INT16 


40 
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for (i = 0; i < N; i ++) 
{ 

buf[0]= x 
y [i] = 0.0; 


10 


forfl = P;j>0;j-) 
{ 

y [i]+=bufUl*bU]; 

bufUl= buf [HI*. 

} 


y [i)+= (buf[01*b[0]); 
} 


15 


/*-- 


20 


return; 


-*/ 


25 /* FUNCTION : filterPZ (). 
/* 


*/ 


-*/ 


/* PURPOSE : Frame data all poles-zeros filtering. 


/* INPUT ARGUMENTS : 

30 /* •/ 

/* _ (FLOAT64 []) b : numerator filter coefficients. 

/* _ (FLOAT64 []) a : denominator filter coefficients. 

/* _ (FLOAT64 []) x : input signal frame. 

/* _ (INT 16) P : filter order. */ 

35 /* (INT16) N : number of input samples. 

/* 


*/ 


/* OUTPUT ARGUMENTS : 

/* *> 

/* (FLOAT64 []) y : output signal frame. 


40 /* 


*/ 


*/ 


==*/ 
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/* INPUT/OUTPUT ARGUMENTS : */ 

/♦ V 

/* _ (FLOAT64 []) buf : input/output memory array. */ 

/* */ 

5 /* RETURN ARGUMENTS : _ None. */ 


10 N) 


15 


void filterPZ (FLOAT64 b [], FLOAT64 a []. FLOAT64 x [J, FLOAT64 y [], \ 

FLOAT64 buf Q, 1NT16 P, INT16 


{ 

/* */ 

INT16 i,j; 


/* 


for (i = 0; i < N; i ++) 
{ 

20 buf[0]-x[i]; 

y [i] = 0.0; 

for(j = P;j>0;j-) 
{ 

25 y [i]+=(buf[j] *blj]); 

buf[0]-=(a [jl*buflj]); 
buf U) = buf u-i); 

> 

30 y [i]+=(buf [0] *b[0]); 

} 


35 return; 


40 /* */ 
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372 

*/ 


/* 'I 

5 /* PURPOSE : Tliis function perform a filtering operation */ 

/* The input array, x, is assumed to include past input values */ 

/* (NCOFS-1 values) for the filter memory, as well as new input */ 

/* values. The array is set up as follows: */ 

10 /* •/ 

/* Xin(NCOFS) Xin(N+NCOFS-l) */ 

/* | new data | */ 

/* I II 1 */ 

/* | old | */ 

15 /* Xin(l) Xin(NCOFS-l) */ 

/* *' 

/* The first NCOFS-1 points of array Xin are assumed to be the ♦/ 

/* "warm-up" points for the first output point, Xout(l). */ 

/♦ */ 

20 /* INPUT ARGUMENTS : * / 
,* */ 
/* _ (FLOAT64 []) x : input signal frame. */ 
/* _ (FLOAT64 []) a : denominator filter coefficients. */ 
/* _ (INT 16) P : filter order. */ 

25/* _(INT16) N : number of input samples to be filtered. */ 

/* *' 

/* OUTPUT ARGUMENTS : * ! 
/* _ (FLOAT64 []) y : output signal frame. */ 


30 /* INPUT/OUTPUT ARGUMENTS : *' 

/* _ (FLOAT64 []) buf : input/output memory array. */ 

/* */ 

/* RETURN ARGUMENTS : 

/* _None. */ 
35 /*======-========================-======== = === = ===== ========:===: 

void FLT_conv (FLOAT64 xfl, FLOAT64 all, INT16 P, INT16 N, FLOAT64 yQ) 
{ 

/♦ V 

40 
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INT16 i, 1, k; 
FLOAT64 sum; 


10 


for (i = 0; i < N; i++) 
{ 

sum = 0.0; 
l = P + i; 


for (k = 0; k < P; k++ ) 
{ 

sum+=a[k] * x[IJ; 
15 } 

yfi] = sum; 
} 

20 /+ */ 

return; 

/* */ 

25 } 


/* V 

/♦FUNCTION : FLT_allsyn 0 */ 

/* */ 

/* PURPOSE : This function filler a signal using an all-pole */ 
/* filter */ 

35 /♦ */ 

/* INPUT ARGUMENTS : */ 
/* */ 
/* _ (FLOAT64 []) x : input signal frame. */ 
/* _ (FLOAT64 []) a : denominator filter coefficients. */ 

40 /* _(INT16) P : filter order. */ 
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/* _ (INT 16) N : number of input samples to be filtered. */ 

*/ 

/* OUTPUT ARGUMENTS : * / 
/♦ _ (FLOAT64 []) y : output signal frame. */ 

5 /♦ */ 

/* INPUT/OUTPUT ARGUMENTS : *' 
/* _ (FLOAT64 []) buf : input/output memory array. */ 

/♦ */ 

/* RETURN ARGUMENTS : * / 

10 /* _None. *' 

void FLT_allsyn (FLOAT64 xU. INT16 N. FLOAT64 a[], INT16 P, FLOAT64 y[], 

15 FLOAT64 bufll]) 

{ 


INT16 i,k; 
20 FLOAT64 sum; 


for (i = 0; i < N; i++) 
25 { 

sum = x[i]; 

for(k = P-l;k>= 1; k- ) 
{ 

30 sum = sum + a[k] * bufllk]; 

bufllk] = bufilk-ll; 
} 

if(P>0) 

35 sum = sum + al0]*buiT[0]; 

buff[0] = sum; 
y[ij = sum; 

40 } 
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return; 

5 /* */ 

} 

/• */ 

10 /*=^====:====:====================^ 

/* END */ 


BNSDOCID: <WO 0122402A1 _l. > 


WO 01/22402 


PCT/USOO/25182 


376 _ ^ 


/+============:= ======: ====: 

/* Conexant System Inc. 
5 /* 4311 Jamboree Road 
/* Newport Beach, CA 92660 
/* 


/* Copyright(C) 2000 Conexant System Inc. 
/♦ 


*/ 
*/ 


*/ 
-*/ 


*/ 


10 /* ALL RIGHTS RESERVED: *' 

/* No part of tins software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

15 /* PROTOTYPE FILE : lib_flt.h 


V 


/*- 
20 /*- 


25 


30 


— FUNCTIONS 


-*/ 


void TiltcrAP (FLOAT64 [J, FLOAT64 [], FLOAT64 [], FLOAT64 [], INT16, INT16); 
void filterAZ (FLOAT64 [], FLOAT64 [], FLOAT64 [], FLOAT64 [1, INT16, INT16); 
void TilterPZ (FLOAT64 [] t FLOAT64 [], FLOAT64 [], FLOAT64 [], FLOAT64 [], 
INT16, INT16); 

void FLT_conv (FLOAT64 [], FLOAT64 [], INT16, INT16, FLOAT64 []); 

void FLT_allsyn (FLOAT64 [], INT16, FLOAT64 [], INT16. FLOAT64 0, FLOAT64 []); 


/* 

35 /*=== 


END 


JNSDUUID! ^WO UI22402A'l_l .9 
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=*/ 


/* Conexant System Inc. 
5 /* 43 1 1 Jamboree Road 
/* Newport Beach, CA 92660 
/* 


*/ 
*/ 

*/ 

♦/ 


/* Copyright(C) 2000 Conexant System Inc. */ 

/♦ */ 

10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 


15 /* LIBRARY: lib_gcbx 

/*================ 


*/ 


/*- 
/*- 

20 /*- 


-*/ 


INCLUDE 


-*/ 


-*/ 


^include "typcdcf.ir 
^include "main.h" 
25 #includc"const.h" 
^include "gputil.h" 
tfinclude "mciitil.ir 
^include "ext_.var.ir 

30 #include M lib_gcb.h w 
^include "libflt.h" 

^include "gauss_bv.tab" 

35 /* - ♦/ 

/* DEFINE V 

/♦ */ 

tfdcfine TABLE__SIZE 32.0 
40 #definc INVJTABLE_SIZE 1.0/32.0 
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#define a 25173 
#dcfinec 13849 
5 tfdcfinem 65536 

#define UNIF_VAR_NUM 12 
#define GAUSS_VEC_SIZE 40 
^define MAX_VEC_NUM 

10 

/* 


/* FUNCTIONS */ 


*/ 


15 /*= 


/♦FUNCTION : GCBJnit Jib 0- *' 


/■ 


-*/ 


/* PURPOSE : This function initialise the global variable of */ 
/* the library GCB. */ 
20 /* 


*/ 


/* INPUT ARGUMENTS : * 7 
/* _ None. */ 
/* 


/* OUTPUT ARGUMENTS : 
25 /* None. */ 

/* 

/* INPUT/OUTPUT ARGUMENTS : 

/* _ None. */ 

/* 


■*/ 
*/ 


-*/ 


/ 


30 /* RETURN ARGUMENTS : *' 
/* _ None. 

void GCB_init_lib (void) 

35 { 

/♦ 


/* GCB_decode -j gauss_cb_itu4k */ 


/* 


-*/ 


40 seed_exc = 21845; 


=*/ 
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/* GCB_gauss_cxcit_dec */ 

5 

Zl^gcb=0; 

/♦ ♦/ 

/+ GCB_gauss_excit */ 
10 /* *> 

rcf cng gcb = 0; 
rate_mem = RATE8_5K; 

15 /*_ V 

/* GCB_gauss_excil_dec */ 
/* */ 

sced_dcc = 0; 

20 

/* */ 

return; 

25 /* *' 

} 

/* V 

I* FUNCTION : GCBdccode _gauss_cb_itu4k 0- *> 

/* */ 

/* PURPOSE : This function extract the gaussina vector from */ 
/* die codebook. */ 
35 /* */ 

/* INPUT ARGUMENTS : */ 
/* _ (1NT16 ) N_gauss: gaussian codebook size. */ 

/* _(INT16 ) L__vec: gaussian vector size. */ 

/* _ (INT 16 ) index: codebook index. */ 

40 /* _ (INT 16 ) sign: sign. */ 
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/* OUTPUT ARGUMENTS : *' 
/* _(FLOAT64[]) uiifcod: unfiltered excitation */ 

/* vector. */ 

5 /* 

/* INPUT/OUTPUT ARGUMENTS : 
/* _ None. */ 

/* 

/* RETURN ARGUMENTS : 

10 /* _None. */ 


void GCB_dccodc_gauss_cb_itu4k(INT16 N_gauss, INT16 L_vec, INT16 index, 

15 FLOAT64 unfcod [)) 
{ 


/* 

INT 16 k, delay, table_entry; 
20 FLOAT64 x, *unfcod_p; 


-*/ 


if (index >= N_gauss) 

25 { 

index = (INT^XN^auss* GCB_quickuran(&secd_exc)); 

x = GCB_quickuran(&seed_exc); 

if(x<0.5) 

sign = 1; 

30 else 

sign = -l; 

} 


/* 


-V 


35 


if (index < N _gauss) 
{ 

delay = (INT16)(indcx*INV_TABLE_SIZE); 
table_cnlry = (INT16)(index-dclay*TABLE_SIZE); 


40 


INT 16 sign, 
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if (sign == 1) 
{ 


unfcod_p = unfcod - 2*dclay; 
for (k - delay; k < L_vec; k++) 

unfcod_p[2*k] = bv[tablc_enliy][kj; 
unfcod_p = unfcod + 2*(L_vec - delay); 


10 


15 


20 


else 


else 


#ifdef VERBOSE 


for(k = 0; k < delay; k++) 

unfcod__p[2*k] = bv[table_entry][k]; 

} 
{ 

uiifcod_p = unfcod - 2*delay; 
for(k = delay; k < Ljvec; k++) 

unfcod_pl2*k] = -bv|table_entryl[k]; 
unfcod_p ■= unfcod + 2*(L_vcc - delay); 
for(k = 0; k < delay; k++) 

unfcod_p[2*k] = -bv|tablc_entiy][k]; 

} 


25 


#endif 


printffFATAL ERROR: cb index (%d) out of rangc\n\index); 
exit(0); 


} 


30 


return; 


/*- 


-*/ 


35 /*- 


-*/ 


/♦ FUNCTION : GCB_gauss_cb_itu4k 0 
/*- 


*/ 


40 /* PURPOSE : This function select the MAX_VEC_NUM gaussian */ 
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/* vectors in the codebooks. */ 
/♦ */ 

/* INPUT ARGUMENTS : */ 
/* _(FLOAT64 []) target: target vector. */ 
5 /♦ _ (FLOAT64 []) res: residual vector. */ 
/* _(INJ16 ) i_sf: sub-frame index. */ 
/* _(INT16 ) l_sf: sub-frame index size. */ 
/* _ (FLOAT64 []) hh: impulse response. */ 
/* • _ (FLOAT64 *) Criter: maxi mazed criterium. */ 
10 /* _ (TNT 16 ) N_gauss_l: 1st gaussian codebook size. */ 
/* _ (INT16 ) N_gauss_2: 2nd gaussian codebook size. */ 
/* */ 

/* OUTPUT ARGUMENTS : */ 

/* _ (FLOAT64 []) unfcod : unfiltered excitation */ 

15 /* vector. */ 

/* _(INT16 []) index: selected codebook indexes. */ 

/* _ (INT16 []) sign: selected vectors sign. */ 

/* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 
20 /* _None. */ 

/* */ 

/♦ RETURN ARGUMENTS : */ 
/* _ None. */ 

25 

void GCB_gauss_cb_ilu4k (FLOAT64 targetQ, FLOAT64 res[], 

FLOAT64 hh [], FLOAT64 *Critei\ 

FLOAT64 unfcod [], INT16 *index, INT16 sign [], 
INT 16 N_gauss_l, INT 16 N_gauss_2) 

30 { 

/* */ 

INT16 index ljrnf [NUM_PRESELECT] , sign l_buflNUM_PRESELECT] ; 
INT 1 6 index2 J>uf fNUM PRESELECT], sign2_bufINUM_PRESELECT] ; 
35 INTI6 index_tmp[MAX_VEC_NUM], sign_tmp[MAX_VEC_NUM]; 

FLOAT64 match; 


/*- 


/*========================= Preselection =====—=—= =■ */ 

40 /* */ 
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/* */ 

/* Firsl basis vector */ 

/* : */ 

GC:B_ba$is_prcse!cctJtu4k (res, N _gauss_l, GAUSS_VEC_SIZE, indexl_buf, 

signl_buf, 


NUM PRESELECT); 


10 /*- 


/* Second basis vector */ 

/* */ 


15 GCB_basis_prcsclcctJtu4k(rcs+l, N _gauss_2, GAUSS_VEC_SIZE, indcx2_buf, 

sign2_buf, NUM_PRESELECT); 


20 /*=========================== Fine search ======== =-*/ 

/* */ 

match = GCBJIne_search_itu4k(largct, hh, indexl_buf, signljmf, 

GAUSS_VEC_S1ZE, N jgaussjl, 

25 index2J>uf, 

sign2_buf, GAUSS_VEC_SIZE, 
N_gauss_2, NUM_PRESELECT, 

index_tmp, 

signlmp); 

30 


/*========================== Compare match : 

/* 

35 if(match > (*Criter)) 

{ 

(*Critcr) « match; 
index|0] = index_Unp[0]; 
iiidexjl] = index_tmp[l]; 
40 signlO) = sign_tmpI0]; 


<WO 0122402A1 I > 


WO 01/22402 


PCT/US00/25182 


10 
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signll] = sign_tmp(l]; 


unfcod); 


GCB_decode_gauss_cb_itu4k (N _gauss_l, GAUSS_VEC_SIZE, 

index[0], sign[0], 

GCB_decode__gauss_cb_itu4k (N_gauss_2, GAUSSJVEC_SIZE, 

index[l], sign[l], unfcod+1); 

} 


return; 


-*/ 


15 


/+ FUNCTION 
20 /* 


GCB_basis_prese!ect_itu4k Q. 


===*/ 


*/ 


*/ 


/* PURPOSE : This function pre-select the 2 gaussian vectors */ 
/* in the codebooks. */ 

/♦ */ 

/* INPUT ARGUMENTS : v 
25 /* (FLOAT64 []) res : residual vector. */ 


/* 
/* 
/* 
/* 

30 /* 
/* 


_ (INT 16 ) N_gauss : gaussian codebook size. */ 

(INT 16 )L_vec: gaussian vector size. */ 
_ (INT16 ) skipjac: skip factor. */ 
_ (INT 1 6 ) num_preselect : number of prc-sclected */ 
candidates. */ 
*/ 

/* OUTPUT ARGUMENTS : */ 
/* (INT16 []) indcxjwf: codebook index buffer. */ 

/* _ (INT 1 6 f])sign_buf: codebook sign buffer. */ 

35 /♦ */ 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* None. */ 

*/ 

/* RETURN ARGUMENTS : */ 

40 /* _Nonc. */ 
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void GCB_basis_preselecMtu4k (FLOAT64 res[], INT16 N_gauss, INTI6 L_vec, 

INT16 index_buf [], INT16 signjmf [], 
5 INT 16 num_preselcct) 

{ . 

,* */ 

INT16 i, j, k, table_entry, delay, sign; 
10 FLOAT64 numcr(NUM_PRES ELECT], tstnum, x, *res_p; 

/* 1 */ 

for (i = 0; i < num_preselect; i++) 
15 { 

numerfi] =-1.0; 
indcx^buqi] = 0; 
sign_buf[i] = 1; 
} 

20 

/* ♦/ 

/* Preselection of the basis vectors */ 
> */ 

25 for (i = 0; i < N_gauss; i++) 

{ 

delay = (INT16)(i*INV_TABLE_SlZE); 
table_cntry « (INT 1 6)(i-delay *T ABLE_SIZE); 

30 /* */ 

/* Correlation between target and codebook vector */ 
/* */ 


35 


res_p - res - 2*delay; 

for(tslnum=0.0, j=delay; j<L__vec; j++) 

tstnum += rcs_pl2*jl*bv[table_entry][j]; 
res_p = res + 2*(L_vcc - delay); 


40 for(j~0; j<delay; j++) 
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tstnum += res_p[2*j]*bv[table_entry][j]; 


-*/ 


5 if (tstnum >= 0.0) 

sign = 1; 

else 

{ 

sign = -1; 

10 tstnum - -tstnum; 

} 


*/ 


/* NOTE : sec AMR fixed-point code for low complexity */ 
1 5 /* (and bit-exact) approachCorrelation between target and */ 

/* codebook vector */ 


* 


/ 


if (tslnum > numer[0]) 
20 { 


numer(0] = tstnum; 
index_bufIO] = i; 
25 sign_buf[0] = sign; 

for 0=0; j<num_prcsclect-l; j++) 
{ 

if (numerUl > numcr[j+l]) 

30 { 

x = numerlj]; 

numerlj] = numer[j+l]; 

numerU+1] = x; 

k = indexbuflj]; 

35 index_buf[j] = indcx_buf[j+l]; 

indcx_buflj+l] = k; 
k = sign_bufy]; 
sign_buf[j] - sign_buflj+l); 
sign_buflj+l] = k; 

40 > 
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} 

/* 

} 

} 

5 


return; 

10 /* *> 

} 

/* */ 

/* FUNCTION : GCB JIne_searchjtu4k (). */ 

/* */ 

/* PURPOSE : This function prc-sc!ect the 2 gaussian vectors */ 
/* in the codebooks. */ 

20 /* */ 

/* INPUT ARGUMENTS : */ 
/* _ (FLOAT64 []) target: laget vector. . */ 

/* _ (FLOAT64 []) hh: impulse response. */ 

/* (INT16 {]) indexl: 1st codebook vector */ 

25 /* indexes. */ 

/* _ (TNT16 [])signl: 1st codebook vector signs.*/ 

/* _ (INT16 ) 11: 1st gaussian vector size. */ 

/* _ (INT 1 6 ) N 1 : 1 st gaussian codebook */ 

/* size. */ 

30 /* _ (INT 16 [])index2: 2nd codebook vector */ 

/* indexes. */ 

/* (INT 16 []) sign2: 2nd codebook vector signs.*/ 

/* _ (INT 16 ) 12: 2nd gaussian vector size. */ 

/* _ (INT 16 )N2: 2nd gaussian codebook */ 

35 /* size. */ 

/* _ (INT 16 ) num_preselect: number of pre-selected */ 

/* vectors. */ 

/* */ 

/* OUTPUT ARGUMENTS : */ 

40 /* _ (INT 16 []) indcx_tmp: selected codebook vector */ 
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/* indexes. */ 

/* _(INT16 [])signjmp: selected codebook vector */ 

/* signs. */ 

/♦ V 

5 /* INPUT/OUTPUT ARGUMENTS : * 
/* _ None. */ 

,* 1 •/ 

/* RETURN ARGUMENTS : *' 
/* _ (FLOAT64 ) tmax : maximized criterion. */ 


FLOAT64 GCB_fme_search_itu4k(FLOAT64 target [], FLOAT64 hh [], 

TNT16 *indexl, INT16 *signl, INT16 11, INT16 Nl, 
15 1NT16 *index2, INT16 *sign2, TNT16 12, INT16 N2, 

TNT 16 num_preselect, INT 16 *index_tmp, 
INT 16 *sign_tinp) 

{ 


20 


25 


30 


35 


/*: */ 


INT16 il, i2, l_sf; 

FLOAT64 unfcod_tmp[L_SF], fcod_tmp[L_SF], tstden, tstnum, x, tmax; 


FLOAT64 *buf; 


1 sf= 11 +12; 


-*/ 


buf = dvector (0, l_sf-l); 


-*/ 


tmax = -1.0; 

for (il = 0; il < num_prcsclect; il++) 
{ 

GCB_decode_gauss_cbJtu4k (Nl, 11, indexl[il], sign Hill, 
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unfcod_tmp); 

for(i2=0; i2<num_prcselect; i2++) 

5 { 

GCB_dccode_gauss_cb_itu4k (N2, 12, index2[i2], sign2[i2], 

unfcod_tmp+ 1 ); 

10 /* */ 

/* Compute the filtered random vector */ 
/* */ 

ini^dvector (buf, 0, l_sf-l, 0.0); 
1 5 filter AZ (hh, unfcodjmp, fcod_tmp, buf, (INT16)(I_sf- 1 ), 


I_s0; 


20 /* Compute the error */ 

/* */ 

dot_d vector (target, fcod_tmp, &tstnum, 0, J_sf-1); 
dot dvector (fcodjmp, fcod_linp, &tstden, 0, l_sf-l); 
25 tstden += EPSI; 

x - tstnum*lsinum/tstden; 

/* */ 

30 /* Maximisation of the critcrium */ 

/* — */ 

if (x > tmax) 
{ 

35 tmax = x; 

index_tmp[0) = index l[il]; 

indcx_lmp[lj - index2[i2]; 

sign_tmp[0] = signl[il); 

sign_tmp[l] = sign2[i2]; 
40 } 
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/*- 

} 


5 /* */ 

} 

/* ♦/ 

10 free dvector (buf, 0, l_sf-l); 

/* */ 


15 


relurn tmax; 

/* */ 


/* 

20 

/*=====: 


/* FUNCTION : GCB_quickuran 0. */ 

/* */ 

/* PURPOSE : This function generate Gaussian random values */ 

25 /* with mean zero and the variance is 1. */ 

/* */ 

/* INPUT ARGUMENTS : */ 

/* _ None. */ 

/* */ 

30 /* OUTPUT ARGUMENTS : */ 
/* _ None. */ 

/* ♦/ 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ (INT64 *) seed : random gencretor seed. */ 

35 /* */ 

/* RETURN ARGUMENTS : */ 
/* _ (INT64 *) val: random gaussian value. */ 


=*/ 


40 FLOAT64 GCB_quickuran (TNT64 *seed) 
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•-*/ 


♦seed = (a* (*sced) + c ) % m; 


10 val = (FLOAT64) (*seed) / (FLOAT64) m; 


15 


return val; 


/*- 


20 


/♦FUNCTION : GCB_gauss_noisc 0- 
/* 


-«7 


/* PURPOSE : This function generate Gaussian random values */ 
25 /* with mean zero and variance 1. */ 

/♦ */ 

/* INPUT ARGUMENTS : */ 
/* None. */ 


*/ 


30 /* OUTPUT ARGUMENTS : 
/* _None. 
/♦ 


*/ 


/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ (INT64 *) seed : random generetor seed. */ 

35 /* */ 

/♦ RETURN ARGUMENTS : */ 
/* _ (TNT64 *) val: random gaussian value. */ 


/*=== 


==*/ 


40 FLOAT64 GCB_gauss_noise (INT64 *seed) 
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{ 

/* 

INT16 i; 

FLOAT64 sum, val; 


/*- 


sum = 0.0; 

10 for (i = 0; i < UN1F_VAR_NUM; i++) 

sum += GCB_quickuran (seed); 


-*/ 


15 val = sum - (FLOAT64)UNIF_VAR_NUM / 2.0; 


return val; 


20 


} 


-*/ 


/* 

25 

/* FUNCTION : GCB^gauss_excit_dec 0 *' 

/* */ 

/* PURPOSE : This function generate Gaussian noise for the */ 

30 /* decoder at very low bit-rate coding. */ 

/* */ 

/* INPUT ARGUMENTS : */ 
/* _ (INT16 ) rate : fixed bit-rate. */ 
/* */ 

35 /* OUTPUT ARGUMENTS : */ 
/* _ (FLOAT64 []) cxt : gaussian excitation signal. */ 

/» */ 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ (INT64 *) seed : random generctor seed. */ 

40 /* */ 
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/* RETURN ARGUMENTS : 

/* None. 
/ * s= „ =============:===== 


*/ 


5 void GCB_gauss_cxcit_dec (rNT64 *sced, INT16 rate, FLOAT64 exl[]) 

{ . 

/♦ */ 


10 


INT16 i; 
FLOAT64 C; 


/*- 


-*/ 


15 


20 


C = 0.0; 

for (i = 0; i < L FRM; i++) 
{ 

cxlli] = GCB_gauss_noise(seed) + C*Z l_gcb; 

Zl _gcb = cxt[i]; 

} 


return; 


-*/ 


25 


/*- 


-*/ 


30 /*===============-=========-==================== 

/♦FUNCTION : GCB_gaussjixcit 0 */ 

/* */ 

/* PURPOSE : This function generate Gaussian noise for the */ 
/* encoder at very low bit-rate coding. */ 

35 /* */ 

/* INPUT ARGUMENTS : */ 
/* __ (INT 16 ) rate : fixed bit-rate. */ 
/♦ _ (INT16 ) rale m : past fixed bit-rate. */ 
/♦ _(FLOAT64 )NSR: estimated noise to signal ratio.*/ 

40 /* _ (FLOAT64 fl) ResEng : estimated residua) energy. */ 
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/* */ 

/* OUTPUT ARGUMENTS : */ 
/* _ (FLOAT64 []) exl : gaussian excitation signal. */ 

/* _ (FLOAT64 []) gc : gain scaling factor. */ 

5 /* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ (INT64 *) seed : random generetor seed. */ 

/♦ ♦/ 

/* RETURN ARGUMENTS : */ 
10 /* _Nonc. */ 


void GCB_gauss_excit (INT64 *seed, INT16 rate, INT16 rate_m, FLOAT64 NSR, 
1 5 FLOAT64 ResEngQ, FLOAT64 cxt[], FLOAT64 gc[]) 

{ 


20 


-V 


FLOAT64 x; 

/* */ 

GCB_ j gauss_excit_dec(secd, rate, ext); 

25 if (rate — RATE2 0K) 

{ 

ref_eng_gcb = ResEng[0]; 
dot_dvcctor(cxt, ext, &x, 0, L_FRM/2-l); 

30 gc[0] = 0.7*sqrt(MAX(rcf_eng^cb-80*4, 0) / MAX(x, 0.0001)); 

ref_eng_gcb = ResEng[l]; 

dot_dvector(ext+L_FRM/2, ext+L_FRM/2, &x t 0, L_FRM/2-l); 

35 

gc[2]=0.7*sqrt(MAX(ref_eng_gcb-80*4, 0) / MAX(x, 0.0001)); 
} 

else 

{ 

40 if ((ratc_mcm != RATE08K) || (rate_m != RATE0 8K)) 
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ref_eng_gcb = ResEng[0J + ResEngll]; 

else 

rcf_cng_gcb = 0.5*rcf_cng_gcb + 0.5*CResEng[0]+ResEng[l]); 

5 

dot_dvector (ext, ext, &x, 0, L FRM-l); 

gc[0] = 0.7*sqrt(MAX(ref_eng_gcb-160*6, 0) / MAX(x, O.0O01)); 


} 

10 /* */ 

/* Memory Up-date */ 

/* */ 

ralemem = rate_m; 

15 

/* ~ */ 

return; 

20 /* */ 

} 

/♦ ♦/ 

/* END */ 
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=*/ 


/* Conexant System Inc. 
5 /* 43 1 1 Jamboree Road 
/* Newport Beach, CA 92660 
/♦ 


*/ 
*/ 


/* Copyright(C) 2000 Conexant System Inc. 
/* 


*/ 
-*/ 

-*/ 


10 /♦ ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 


15 /* PROTOTYPE FILE : lib_gcb.h 


=*/ 


/*- 
/*- 
20 /*- 


-*/ 


FUNCTIONS 


-*/ 


void GCB init lib 


(void); 


void GCB_dccodc_gauss_cb_itu4k (INTI6, INT16, INT16, INT16, FLOAT64 []); 


25 


void GCB_gauss_cb_itu4k 


30 


(FLOAT64 [], FLOAT64 [], FLOAT64 [], 

FLOAT64 *, FLOAT64 []> INT 16 *, 
INT16 [], INT16, INT16); 


void GCB_basis_preselect_itu4k 


(FLOAT64 [], INT16, INT16, INT16 [], 

INT16[J, INT16); 


35 FLOAT64 GCB fine search itu4k 


(FLOAT64 [], FLOAT64 [], 

INT16 *, INT16 *, INT16, 1NT16, INT16 


INT16 *, INT16, INT16, INT16, 
INT16 *, TNT16 *); 


40 
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FLOAT64 GCB_quickuran (INT64 *); 

FLOAT64 GCB_gauss_noise (INT64 *); 

5 

void GCBjgauss_excit_dec (INT64 *, INT16, FLOAT64 []); 

void GCB_£auss_excit (INT64 *, INT16, INT16, FLOAT64, FLOAT64 D, 

10 FLOAT64 [J, FLOAT64 []), 

/* END — — */ 

15 
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/ * =========== „™======================™^ 

/* Conexant System Inc. */ 
5 /* 43 1 1 Jamboree Road */ 
/* Newport Beach, CA 92660 */ 

/♦ ~ */ 

/* Copyright(C) 2000 Conexant System Inc. */ 

/* *' 

10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

15 /* LIBRARY: lib _geq.c */ 

/♦ */ 

/* INCLUDE */ 

20 /* *' 

^include "typcdef.h" 

^include "main.h" 
25 ^include "consth" 
^include "gputil.h" 

^include "cxt_var.h" 

30 ^include M lib_geq.h M 

/♦ ♦/ 

/* FUNCTIONS ■ */ 

/* */ 

35 

/* FUNCTION : GEQ_init_lib 0 *' 
/* •/ 

/* PURPOSE : This function initilisc the global variables of'*/ 

40 /* the GEQ library. */ 
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/*_ */ 

/* INPUT ARGUMENTS : */ 

/* _ None. */ 

/* */ 

5 /* OUTPUT ARGUMENTS : */ 

/* _None. */ 

/* 1 */ 

/* INPUT/OUTPUT ARGUMENTS : */ 

/* _ None. */ 
10 /* — */ 

/* RETURN ARGUMENTS : */ 

/* _ None. */ 

/*============================================-=========*/ 

15 void GEQJnilJib(void) 
{ 

/* */ 

■INT 16 ij; 

20 

/* */ 


ini_dvector(past_energyq_2d, 0, GVQ_VEC_SI2E_2D-1, -20.0); 
inLdvcclor(past_cnergyq_3d, 0, GVQ_VEC_SIZE_3D-1, -20.0); 
25 inLdvector(past_energyq_4d, 0, GVQ_VECJSIZE_4D-1, -20.0); 

ini_dveclor(gpJ)uf, 0, GPJ3UF.SIZE-1, 0.0); 

past_fixed_energy = 0.0; 

30 pgain_past = PASTJ>GAINMIN; 

pgain_past_dcc = PAST_PGArN_MIN; 

ini_dvector(Prev_Bcia_Pitch t 0, BETA_BUF_SIZE-1, 0.0); 

35 GainNormDeci = 0; 

GainModiDeci = 0; 

/* */ 

40 energy_pred_cocff_l (0] = 0.6; 
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energy_pred_cociT_l[l] = 0.3; 
energy_pred_cocfT_I[2) = 0.1; 


400 


c nc rgy_p rcdcoe ff_2 [ 0 J = 0.40 
cnergy_pred_coeff_2[l] = 0.25 
energy_pred_cocff_2[2] = 0.10 


10 


encrgy_pred_coeff_3[0] = 0.300 
encrgy_pred_coeff_3[l] =0.150 
energy jred_cocff_3 [2] = 0.075 


15 


cnergy_prcd_cocfT4d_l[0] =0.7 
energy_prcd_coefF4d_l[l] = 0.6 
cncrgy_pred_coefT4d_l[2] = 0.4 
cnergy_prcd_cocfT4d_lf3] = 0.2 


20 


energy jred_coeff4d_2[0] = 0.40 
cnergy_pred_coefT4d_2[ 1 J = 0.20 
energy_pred_cocfT4d_2[2] =0.10 
energy_pred_cocfT4d_2[3] = 0.05 


25 


encrgy_pred_coefT4d_3[0] = 0.300; 
encrgy_pred_coe£T4d_3[l J = 0.20; 
energy_pred_coeflT4d_3[2] = 0.075; 
energy_pred_coeff4d_3[3J - 0.025; 


30 


energy_prcd_coeff4d_4[0] = 0.20; 
energy_pred_coefF4d_4[l] = 0.075; 
energy_pred_coeff4d_4[2] =0.025; 
energy_pred_cocfT4d_4[3] = 0.0; 


35 


40 


/* 


VQ Tables 


-*/ 


for (i = 0; i < MSMAX 2128; i++) 

for (j - 0; j < G VQ_ VEC_S IZE_2D ; j++) 
{ 

gain_cb_2_128(iJUl = gainV<^2_128[i)[jj; 
gain_cb_2_128_8^5[i]ljl = gainVQ_2 - 128^8_5li]UJ; 
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♦/ 


return; 

/* 

} 


10 /* 


/♦FUNCTION : GEQ_gainVQMA_2 (). */ 


*/ 


15 /* PURPOSE : This function performs 2-D VQ of Gp and Gc with */ 
/* 7 bits. */ 

/* V 

/* INPUT ARGUMENTS : */ 
/* _ (FLOAT64 []) Tgs: target signal. */ 
20 /* _ (FLOAT64 []) unfcod: adaptive and fixed codebook */ 
/* excitation. */ 

/* _ (FLOAT64 []) fcod: filtered adaptive and fixed */ 
/* " codebook excitation. */ 

/* _ (INT 1 6 ) l_sf : length of subframe. */ 

25 /* ♦/ 

/* OUTPUT ARGUMENTS : */ 
/* _ (FLOAT64 []) gainQ: Quantized adaptive and */ 
/* fixed codebook gains. */ 
/* (1NT16 *) idx: codebook index. */ 
*/ 


30 / 


/* INPUT/OUTPUT ARGUMENTS 

/* _ None. 

/* 


/* RETURN ARGUMENTS 
35 /* _None. 


void GEQ__gai n VQM A_2(FLO AT64 Tgs f], FLOAT64 **unfcod, FLOAT64 **fcod, 

FLOAT64 gainQ U, INT 16 *idx, INT 16 l_sf, INT 16 rate) 

40 { 


=*/ 
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/* ♦/ 


FLOAT64 energy, pred_gain, dist, dist_min, g_pitch, gcdbk, 
corr[CORR_SLZE); 
5 INT16 i; 

INT16 num_candidate; 
FLOAT64 Renergy; 
FLOAT64 unq_Renergy; 
FLOAT64 pred_energy, err_energy; 
10 FLOAT64 **ptr; 


15 


/*- 


/*==============—== Compute the predicted cdbk gain 

/♦ */ 


/*— */ 

/* Note: compute the cdbk energy with mean removed (i.e., -30dB) */ 
/* *, 

20 if (rate == RATE4 0K) 

{ 

dotdvector (past_encrgyq_2d, cncrgy__prcd_coefT_l, 

&pred_energy, 0, GVQ_VEC_SIZE_2D-1); 

ptr = gain_cb_2_128; 
25 } 
else 

{ 

dot_dvcctor (past_cncrgyq_4d, energy_pred_coefT4d_l, 

&prcd_cnergy, 0, GVQ_VEC_SIZE_4D-1); 

30 ptr = gain_cb_2_128_8_5; 

} 

predencrgy « MAX (pred_energy, -20.0); 

35 dot_dvector(unfcod[ 1], unfeodf 1], &energy, 0, l_sf-l); 

Renergy = energy; 

energy = 30.0 - 10.0* log 10(energy/(FLOAT64)l_sf+EPSl); 
40 /* */ 
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/* Compute the predicted energy */ 

,* ♦/ 


energy += pred_energy; 


/* compute the predicted gain */ 
/* •/ 


pred^gain = pow(10.0, energy/20.0); 

err_energy = -energy + 20*ioglO(fabs(gainQ[l]) + EPSI); 

errenergy - pow(10.0, err_energy/20.0); 

unq_Renergy = 10.*IoglO(sqr(gainQ[l J)*Renergy+EPSI); 

♦/ 

Optimal gainVQ search 
*/ 


/* 


dist_min - MAXFLT; 
num_candidate = 128; 


dot_dvector (fcod[0], fcod[0], &corr[0], 0, l_sf-l); 
dot_dvector (fcod[0), Tgs, &corrf 1], 0, l_sf-l); 
corr[l] *= -2.0; 

dot_dvector(fcod[lj, fcod[ll, &corr[2], 0, Lsf-1); 

dot_dvector(fcod[l], Tgs, &corr[3J, 0, l_sf-l); 
corrl3] *= -2.0; 

dot_dvector(fcod[01, fcod[l], &corr[4], 0, l_sf-l); 
corr[4] *= 2.0; 


for (t = 0; i < nurn_candidatc; i++) 
{ 

g_pitch = ptr[i]l0]; 

gcdbk = pred_ j gain*pU[il[l J; 

dist = sqr(g_pitch)*corr|0] + g_pitch*corr[l] + 

sqr(g_cdbk)*corr[2] + g_cdbk*corr[3] + 
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g_pitch*g_cdbk*corr[4J; 


10 


if (dist <dist_min) 
{ 

dist_min = dist; 
(*idx) = i; 
} 

} 


/* *, 

/* get the quantized gains */ 
/* _ */ 

15 gainQfO] = ptrf*idx][0J; 

gainQfl] = prcd _gain*ptr{*idx][l]; 

/* V 

/* update past quantized energies */ 
20 /* */ 

if( rate == RATE40K) 
{ 

for (i = GVQ_VEC_S1ZE_2D-1 ; i > 0; i-) 
25 past_energyq_2dfi] = past_energyq_2d[i-l]; 

past_energyq__2d[0] = 20.0*IoglO(gainVQ_2_I28[*idx][l]); 

} 

30 else 

{ 

for (i « GVQ^VEC_SIZE_4D-1; i > 0; i-) 

past_energyq_4d[ij = pasl_energyq_4d[i-l]; 

35 past_cnergyq_4d[0] = 20.0*loglO(gainVQ_2_128_8_5[*idxJ[l]); 

} 


/* — 


40 return; 
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5 /* */ 

/* FUNCTION : GEQ_dcc __gains_2_7 0- */ 

/* */ 

10 /* PURPOSE : This function decodes the 7 bit 2-D VQ of Gp */ 
/* andGc. */ 
;* V 

/* INPUT ARGUMENTS : */ 

y* _ (INT 16) Lag: current pitch lag. V 

15 /* _(INT16) index: codebook index. */ 

y* _ (INT 1 6 ) N_bfi: duration of bad frame V 
/* scq. (0=good frame) */ 

/* _ (FLOAT64 []) unfcod: adaptive and fixed */ 
f* codebook excitation. "7 

20 y* _(1NT16) i_sf: subframe number. */ 

y* _ (INT16 ) I_sf: length of subframe. */ 

/*_. . *y 

/* OUTPUT ARGUMENTS : */ 
/* _ (FLOAT64 []) gainQ: Quantized adaptive and V 
25 /* fixed codebook gains. */ 

/♦ */ 

/* INPUTyOUTPUT ARGUMENTS : */ 
y* _ None. V 

/* */ 

30 /* RETURN ARGUMENTS : V 
y* _ None. */ 


void GEQ_dec_gains_2_7(INT16 rate, INT16 Lag, INT16 index, FLOAT64 gainQ fl, 
35 INT16 N_bfu FLOAT64 unfcod [], INT 16 i_sf, INTI6 l_sf) 

{ 

/* *y 


INT 16 i, num_count; 

40 
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FLOAT64 current_fixed_energy; 
FLOAT64 energy, pred_gain; 
FLOAT64 pdown, cdown; 
FLOAT64 val; 
FLOAT64 min_crg_27; 

/♦ ♦/ 

/* Compute the cdbk energy with mean removed (i.e., -30dB) */ 
/* */ 

dot_dvector (unfcod, unfcod, &energy, 0, l sf-1); 


current_fixed_cncrgy = energy; 
energy /= (FLOAT64)l_sf; 
15 energy = 30.0 - 10.0*loglO(cnergy+EPSI); 

/* */ 

/* Compute the predicted energy */ 
/* */ 

20 

if (rate == RATE40K) 

dot_dvcctor (past_energyq_2d, encrgy_pred_coeff_l, &val, 0, 
GVQ_VEC_SIZE_2D- 1 ); 

else 

25 dot_d vector (pasl_cncrgyq_4d, energy_pred_cocfT4d_l, &val, 0, 

GVQ_VEC_SIZE_4D- 1 ); 

val = MAX (val, -20.0); 

30 energy += val; 

/* :*/ 

/* Compute the predicted gain */ 
/* */ 


pred_gain = po\v(10.0, (energy / 20.0)); 


if(N_bfi== 0) 
{ 

40 /* ! */ 
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/*======================= good frame ==================--====*/ 

/* */ 


if (rate == RATE40K) 

5 { 

gainQ[0] = gainVQ_2_128[index][0]; 

gainQfl] = prcd_gain*gainVQ_2_128[index][l]; 

/♦ */ 

10 /* update past quantized energies */ 

/* */ 

for (i = GVQ_VEC SIZE 2D- 1 ; i > 0; i-) 

pasl_energyq_2d[i] = past_encrgyq_2d[i-l]; 


15 


past_energyq_2d[0] = 20.0*loglO(gainVQ_2_128[index][l]); 
} 

else 

20 { 

gainQfO] = gainVQ_2_128_8_5[ index] [0]; 

gainQl 1 ] = pred_gain*gainVCL2_I 28_8_5 [index] ( 1]; 

for (i = GVQJ/EC_SIZE_4D-1; i > 0; i~) 
25 past_energyq_4d[i] = past_energyq_4d[i-l]; 

past_energ>q_4d[0] = 20.0*Iogl0(gainVQ_2_128_8_5[index][l]); 
} 


30 else 


-*/ 


/♦ ♦/ 

/* */ 

/* set down-scaling according to number of bad frames V 
40 /* */ 
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10 


switch (N_bfi) 
{ 

case 1: 


case 2: 


35 /*- 


/*- 


if (N_bfl — 1) 
40 { 


pdown = 0.95; 
cdown — 0.75; 
break; 

pdown = 0.95; 
cdown = 0.75; 
break; 


case 3: 

pdown = 0.90; 
cdown = 0.75; 
15 break; 

case 4: 

pdown = 0.90; 
cdown = 0.40; 
break; 

20 case 5 : 

pdown = 0.90; 
cdown = 0.30; 
break; 

case 6: 

25 pdown = 0.90; 

cdown - 0.20; 
break; 

default: 

30 pdown = 0.70; 

cdown = 0.20; 
break; 

> 


-*/ 


pitch gain ====== */ 


-*/ 
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if(i_sf==0) 
{ 

if (Lag <= 40) 

gpmcan = 0.5*(gp_bufl6|+gp_bufI7]); 
5 elscif(Lag<=80) 

{ 

gp_mcan = 0.0; 
numcount = 0; 
for (i = 4; i < 8;i++) 

10 { 

if (gP.buflH >=0.5) 

{ 

gpmcan += gphufji]; 
num_count++; 

15 } 

} 

if (num_counl > 0) 

gpmean /= (FLOAT64)num_count; 

else 

20 gp_mcan = MAX<MAX(gp_buiT6], gp_bufl7]), 

gp_bufl5j); 

} 

else if (Lag <= 120) 

25 { 

gpmcan = 0.0; 

num_count = 0; 
for (i = 2; i < 8;i++) 
{ 

30 if(gp_bufli] >=0.5) 

{ 

gp_mean += gpbufli]; 

num count++; 

} 

35 > 

if (num_count > 0) 

gpmean /= (FLO AT64)num count; 

else 

gpmean = MAX(MAX(MAX(gp_bufl6J, gp_buf]71), 
40 gp_bufl5]), gp_bufl4]); 
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25 
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} 

else 

{ 

gpmean =0.0; 
numcount =0; 
for (i = 0; i < 8; i++) 
{ 

if(gp_bufli] >= 0.5) 
{ 

gpmean += gp_buf[i], 

num_count++; 

} 

} 

if (num_count > 0) 

gpmean /= (FLOAT64)num_count; 

else 

gp_mcan = MAX(MAX(NlAX(MAX(gp_.bufl6J, gpj>uf[7])> 
gp_bufI5]), gp_bufI4]), 

} 


if (rate == RATE40K) 
{ 

if (MAX(Prcv_Beta_Pitch(0], Prev_Beta_Pitch[l]) > 0.70) 
gainQ[0] = 0.95; 

else 

gainQ[0] - MIN(0.95,gp_mcan); 

} 

else 

{ 

if (MAX(Prcv_Beta_Pitch[0], MAX(Prev_Beta_Pitchl 1], 
MAX(Prev_BetaJPitch[2], 

Prev^Beta„Pitch[31))) > 0.70) 
gainQ[01 = 0.95; 

else 

gainQIO] = MIN(0.95,gp_mean); 

} 
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if (MAX(Prev_Beta_PitchIO], Prev_Beta_PHch[l]) > 0.70) 
{ 

gainQ[0] = 0.95; 
cdown = 0.0; 
} 

else 

gainQlO) « MlN(0.95,gp_mean); 


tfendif 

10 } 


else 


} 


gainQ[0] = gp_fec; 


else 

15 { 

gainQ[OJ = gpjec; 
gainQ[0] *= pdown; 

} 

20 gpjec = gainQ(0]; 

gainQ[l] = sqrl(past_fixed_energy/current_fixed_energy); 
gainQl 1 J *- cdown; 

/* */ 

25 /* update past quantized energies */ 
/* */ 

if (rale == RATE4_0K) 
{ 

30 min_erg_27 = MTN(past_energyq_2d[0], past_cncrgyq_2d[ 1]); 

for (i = GVQ_VEC_SIZE_2D-1; i > 0; i-) 

past_energyq_2d[i] = past_energyq_2d[i-I]; 

35 past_encrgyq_2d[0] = MIN(min_erg_27, -energy + 

20*logl0(fabs(0.6*gainQ[l]) + EPSI)); 

> 

else 

{ 

40 min_crg_27 = MIN(past_energyq_4d[01, past_encrgyq_4d[ 1 ]); 
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min _ er g_ 27 = MIN(min_erg_27, past_encrgyq_4d[2]); 
min_erg_27 = MIN(min_erg_27, past_encrgyq_4d[3]); 

for (i = GVQ_VEC_SIZE_4D-1; i > 0; i~) 

past_encrgyq_4d(i] = past_energyq_4d[i-l]; 

past_cnergyq_4d(0J = MIN(min_erg_27, -energy + 

20*logI0(fabs(0.6*gainQ[l]) + EPSI)); 

} 


> 


15 /* +/ 

/* Update the past fixed codebook energy */ 
/* _ */ 


past__fixcd_energy - currcnt_fixed_energy*sqr(gainQ[l]); 


20 


return; 


25 /*- 
} 


-*/ 


30 /*- 


/* FUNCTION : GEQ_Quant_PitchGain_3D (). */ 
/* v 

35 /* PURPOSE : This function performs 3-D VQ of Gal, Ga2, and V 
/* Ga3 with 4 bits. */ 

'* */ 

/* INPUT ARGUMENTS : */ 
/* None. */ 
40 /* */ 
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/* OUTPUT ARGUMENTS : */ 
/* _ (INT16 ) idx: codebook index. */ 

/* V 

/* INPUT/OUTPUT ARGUMENTS : */ 
5 /* _ (FLOAT64 []) Gp: unquantizcd/quantizcd pitch */ 
/* gains. */ 
/* 1 */ 

/* RETURN ARGUMENTS : */ 
/* _ None. */ 


15 


void GEQ_Quant_PitchGain_3D(FLOAT64 *Gp, INT16 *idx) 
{ 

/* */ 

INT16 i; 

FLOAT64 inin_dist; 
FLOAT64 dist; 

FLOAT64 err[GVQ_VEC_SIZE_3D]; 


20 


min_dist = MAXFLT; 

25 for(i = 0; i < TAB_SIZE_GVQ_3D; i++) 

{ 

dif_dvector (Gp, gp3_tabfi], err, 0, GVQ_VEC_SIZE_3D-I); 
dot_dvector (err, err, &dist, 0, GVQ_VEC_SIZE_3D-1); 

30 if (dist < min_dist) 

{ 

min_dist = dist; 
(*idx) = i; 
> 

35 } 

for (i = 0; i < GVQ_VEC_SIZE_3D; i++) 
Gpii] = g P 3_lab[(*idx)][i]; 

40 /♦ ♦/ 
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return; 

/* 

} 


-*/ 


/*- 


-*/ 


V 


10 /* FUNCTION : Dec_PitchGain_3D 0 

-*/ 

/* PURPOSE : This function decodes the 4 bit 3-D VQ of Gal, */ 
/* Ga2, and Ga3. */ 

,* ♦/ 

15 /* INPUT ARGUMENTS : * j 
/* _(INT16) N_bfi: duration of bad frame */ 

/* scq. (0=good frame) */ 

/* (INT 16 ) i_sf: subframe number. */ 

/* _ (INT16 ) index: codebook index. */ 

20 /* ' 

/* OUTPUT ARGUMENTS : *' 
/* _ (FLOAT64 []) gainQ: Quantized adaptive */ 
/* codebook gains. */ 


/* 


25 /* INPUT ARGUMENTS : *' 
/* _ None. 


/* RETURN ARGUMENTS : *' 
/* _ None. 

30 /*===============-============== == = == = ==i===I=== 


===*/ 


===*/ 


void GEQ_Dec_PitchGain_3D (INT16 Nbfi, INT16 i_sf, INT16 index, FLOAT64 *gainQ) 
{ 


/* */ 


35 


FLOAT64 pdown; 

,* */ 


40 if (N J>fi == 0) 
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{ 

/* ♦/ 

/♦====================—= good frame ==--- 


gainQlOJ = gp3 Jab [index ][i_sf], 
} 

else 

{ 

10 /*=========== == ==============^ 


/* 


/*======================== bad frame =========== 

/* ♦/ 

/* */ 

/* set down-scaling according to number of bad frames */ 
/* */ 


20 switch (N_bfi) 

{ 

case 1: 

pdown = 0.99; 
break; 

25 case 2: 

pdown = 0.98; 
break; 

case 3: 

pdown = 0.96; 
30 break; 

case 4: 

pdown = 0.96; 
break; 

case 5: 

35 pdown = 0.96; 


case 6: 


40 default: 


break; 

pdown = 0.96; 
break; 
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pdown = 0.70; 
break; 

} 


5 

/* V 

/*====================== Pitch Gain ===«=====«===*/ 

/* */ 

10 if (N_bfi == 1) 


gainQ[0} = 0.95; 
else 

{ 

gainQfOJ = gp_buq7]; 
15 gainQJO] *= pdown; 


} 

} 

20 /* */ 

return; 

/* */ 

25 } 

/* */ 

30 /* FUNCTION : GEQ_Quant__PitchGain_4D 0 *' 

/* */ 

/* PURPOSE : This function performs 4-D VQ of Gal, Ga2, Ga3 */ 
/* and Ga4 with 6 bits. */ 
/* ♦/ 

35 /* INPUT ARGUMENTS : */ 
/* _ None. */ 
,* */ 

/* OUTPUT ARGUMENTS : */ 
/* _ (INT16 ) idx: codebook index. */ 
40 /* */ 
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/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ (FLOAT64 (]) Gp: unquantized/quantized pitch */ 


/* gains. */ 

/* V 

5 /* RETURN ARGUMENTS : */ 
/* _None. */ 

void GEQ_Quant_PitchGain_4D(FLOAT64 *Gp, INT 16 *idx) 
10 { 

/* */ 


INT16 i; 

FLOAT64 min_dist; 
15 FLOAT64 dist; 

FLOAT64 err[ G VQ_ VEC_SIZE_4D] ; 

/* ♦/ 

20 min__dis( = MAXFLT; 

for(i = 0; i < TAB S1ZE_GVQ_4D; i++) 
{ 

dif_dvcctor (Gp t gp4_tab[ij, err, 0, GVQ_VEC_SI2E_4D-1); 
25 dot_dvector (err, err, &dist, 0, GVQ__VEC_SLZE_4D-1); 

if (dist < inin_dist) 
{ 

inindist = dist; 
30 (*idx) «= i; 

} 

} 

for (i - 0; i < GVQ_VEC_SIZE_4D; i-*-+) 
35 Gpfi] - gp4_tabl(*idx)]fi); 

/* */ 

return; 

40 


BNSDOCID; <WO 0122402A1.I. > 


WO 01/22402 


PCT/USOO/25182 


} 


418 

*/ 


/* 

5 

/* == == == ========-===========-========= ==============:==== 

/* FUNCTION : GEQ_Dec_PitchGain__4D 0 *' 

— •/ 

/* PURPOSE : This function decodes Uic 6 bit 4-D VQ of Gal, */ 
10 /* Ga2, Ga3, and Ga4. */ 
/* 


*/ 


/* INPUT ARGUMENTS : 
/* (TNT 16) N_bfi: duration of bad frame */ 

/* seq. (Osgood frame) */ 

15 /* (INT 16) i_sf: subframe number. */ 

/* _ (INT 16) index: codebook index. */ 

/* 1 */ 

/* OUTPUT ARGUMENTS : *' 
/* _ (FLOAT64 []) gainQ: Quantized adaptive */ 
20 /* codebook gains. */ 

*/ 


/' 

/* INPUT ARGUMENTS : *> 
/* __ None. 


-*/ 


25 /* RETURN ARGUMENTS : * y 
/* _ None. */ 


/*= 


void GECLDcc_PitchGain_4D (TNT16 N_bfi, INT16 i_sf, INT16 index, FLOAT64 *gainQ) 
30 { 


/* */ 


FLOAT64 pdown; 
35 /* 


if (NJ)fi== 0) 
{ 

/* 


4Q good frame -= 
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/* */ 

gainQJOJ = gp4 jab ( index ][i_sf|; 
> 

5 else 

{ 

/*====================================™ 

/* */ 

10 ba d f ram e 

/* */ 

/* */ 

/* set down-scaling according lo number of bad frames */ 
15 /* */ 

switch (N_bfi) 
{ 

case 1: 

20 pdown = 0.99; 

break; 

case 2: 

pdown = 0.98; 
break; 

25 case 3: 

pdown = 0.96; 
break; 

case 4: 

pdown = 0.96; 
30 break; 

case 5: 

pdown = 0.96; 
break; 

case 6: 

35 pdown = 0.96; 

break; 

default: 

pdown = 0.70; 
break; 

40 } 
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== Pilch Gain : 


-*/ 


10 


15 


if (N_bfi == 1) 
gainQ|0] = 0.95; 
else 

{ 

gainQ[0] = gp_buf!7]; 
gainQ[0J *= pdown; 


} 


/*- 


20 


return; 


/*- 


25 


/♦FUNCTION : GEQ_gainVQMA_3 0 *' 
/* */ 

/* PURPOSE : This function performs 3-D VQ of Gel , Gc2 ? and */ 
30 /* Gc3 with 8 bits. */ 

/* */ 

/* INPUT ARGUMENTS : */ 
/* _ (FLOAT64 []) Tgs: target signal. */ 
/* _ (FLOAT64 []) unfcod: fixed codebook excitation.*/ 

35 /* _ (FLOAT64 []) fcod: filtered fixed codebook */ 
/* excitation. */ 

/♦ */ 

/* OUTPUT ARGUMENTS : V 

/* _ (FLOAT64 []) gainQ: Quantized fixed codebook */ 

40 /* gains. */ 
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/* (TNT16) idx: codebook index. */ 

/♦ */ 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* _None. */ 
5 /* */ 

/* RETURN ARGUMENTS : */ 
/* _None. */ 


10 void GEQ_gainVQMA_3 (FLOAT64 Tgs [], FLOAT64 **unfcod, FLOAT64 **fcod, 

FLOAT64 **gainQ, INT16 ♦idx) 

{ 

/• */ 


15 INT16 i; 

INT16 nuincandidate; 
INT 16 i s, i_sf; 

INT16 LL_SF[N_SF3]={L_SF0, L_SF0, L_SF3}; 


20 FLO AT64 erg_ratio[N_SF3 ] ; 

FLOAT64 pred_energy[NJ5F3]; 
FLOAT64 err_energyrN_SF3]; 
FLOAT64 lin_err_energy[N_SF3|; 


25 FLOAT64 encrgy[N_SF31, pred_gain[N_SF3], dist, disl_min, 

corr( CORR_S I2E] [N_SF3 ] ; 
FLOAT64 val; 
FLOAT64 corr_cocff_a[3], con_coeff_b[3], corr_coelT__c; 


30 /* */ 

Compute the predicted cdbk gain : 
/* */ 


35 /* */ 

/* MA Prediclion */ 

/* */ 

dot_dvector(past_encrgyq_3d, energy_pred_cocfiF_l, 
40 &prcd_cnergy[0] f 0, GVQ_VEC_S1ZE_3D-1); 
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prcd_encrgy[0] = MAX(pred_energylO], -20.0); 

dot_dvector(past_energyq_3d, energy_pred_coeff_2, 
5 &pred_cnergy[ 1], 0, GVQ_VEC_SIZE_3D-1); 

pred_energyll] = MAX(pred_energy[l], -20.0); 

dot_dvcclor(past_cnergyq_3d, energy _pred_cocff_3 , 
10 &pred_cnergy[2], 0, GVQ - VEC_SI2E_3D-1); 

pred_energy[2] = MAX(pred_encrgyl2], -20.0); 

/* */ 

j5 Process all subframe =~~ 


i_s = 0; 

for (i_sf = 0; i_sf < N_SF3; i_sf++) 

20 { 

/* V 

/* compute the cdbk energy with mean removed (i.e., -34dB) */ 

/* */ 

25 dot_dvector (unfcod{ I ]+Ls. unfeodj 1 l+i_s, &energy[i_sf], 

0, LL.SFlLsfl-D; 

cnergy[i_sf] = 34.0 - 10.0*Iogl0(encrgy[i_sf| / 

30 

(FLOAT64)LL_SFti_sfl+EPSl); 


35 /* compute the predicted energy */ 
/* */ 

energy[i_sf| += pred_energy(i_sf|; 


40 
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/* compule the prcdicled gain */ 
/* */ 


5 pred_gainli_sfl = pow(10.0, encrgy[i_sf]/20.0); 

erT_energy[i_sf] = -energy[i_sfl + 20*loglO(fabs(gainQ[l][i_sf|) 

+ EPSI); 

10 

lin_err_energyfi_sf| «= pow(10.0, err_encrgy[i_sf]/20.0); 

i_s += LL_SF[i_sfl; 
} 


15 

/* ♦/ 

/*====================== Optimal gainVQ search 

/♦ ■+/ 


20 dist_min = MAXFLT; 

num_candidate = 256; 
i_s = 0; 

for (i_sf = 0; i_sf < N_SF3 ; i_sf++) 
25 { 

doi_dvector (fcod[0]+i_s, fcodl0]+i_s, Aval, 0, LL_SF[i_sf]-l); 
corr[0][i_sf] = val; 

dot_dvcctor (fcodl0]+i_s, Tgs+i_s, Aval, 0, LL_SF[i__sf]-l); 
30 corr[ll[i_sf] = -2.0* val; 

dot„dvector (fcod(l]+i_s, fcod[l]+Ls, Aval, 0, LL_SF[i_sf]-l); 
corr[2]Ii_sf] = val; 

35 dot_dvector(fcod[ l]+i_s, Tgs+i_s, Aval, 0, LL_SF[i_sf|-l); 

corr[3]{i_sf] = -2.0*val; 

dot_dvector(fcod(0]+i_s, fcod[ 1 ]+i_s,AvaI, 0, LL_SF[i_sf]-l); 
corr[4]li_sf| = 2.0*val; 

40 
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dot_dvector(Tgs+i_s, Tgs+i_s, &val, 0, LL_SF[i_sfl-l); 
corr[5][i_sfl = vai; 

is += LL_SF[i_sfl; 
5 } 

erg_ratio[0] = corr[5J[0] /( corrl5][01+corrl5][l]+corr|5]l2] +EPSI); 
erg_ratio[l] = corr[5][l] /( corr[5][0]+coiT[5][l]+corr[5][2] +EPSI); 
erg_ratio[2] = corr[5][2] /( corr[5][0)+corr[51Il]+corr[5][2J +EPSI); 

10 

corr_coeff_a[0] = erg_ratio[0] * corr[2][0] * pred_£ain[0] * pred„gainlO]; 
corr_coefif_b[0] = erg_ratio[0] * (corr[3][01 + gainQ[01[0] * corr[4][0]) * pred_gain[0]; 

corr_cocfT_a[ll = crg_ralio| l]*corr[2][l]*prcd__gain[l]*pred_gain[l); 
15 corrj:oefFJ>llJ = crg_ra^ 

corr_cocfT_a[21 - crg_nitiol2]*conrf21|2|*pred_gainl2]*prcd_gain[2]; 
corr_coefif_b[2] = crg_ratiol2]*(corr[31[2]+gainQ[0][2]*corr[4][2])*pred_gain[2]; 

20 corr_coefT_c = erg_ralio[0]*(coir[5][0]^qr(gainQ[0]t0])*coiT[0][0]+gainQ[0][0]* corT[l][01)+ 

erg_rauo[ll*(coir[51[l]^ 

erg_raUo[2]*(coir[51[2]+sqr(gainQ[0]l2])*coiT[01[21+gainQ[01[2]*corr[I][2]); 

for (i - 0; i < num_candidale; i++) 

25 { 

dist = corr_coeff_a[0]*sqr(gainVQ_3_256[il[0])+ 

corr_coefLb[0]*gainVQ_3_256Iil[0] + 

corr_coeff_al 1 )*sqr(gainVQ_3_256U][ 1])+ 

corr_coc£r_b[l]*gainVQ_3_256[il[l] + 

30 corr_cocfr_a[21*sqr(gainVQ_3_256li][2])+ 

corr_coeflf_bl21*gainVQ_3_256[i]l21 + corr_coeff_c; 

if (dist < dist_min) 
{ 

35 dist_min = dist; 

(♦idx) = i; 
} 

} 

40 
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5 gainQ[l][0] = pred _gain[0]*gainVQ_3_256ridxl[0], 

gainQ[l][l] = prcd _ j gainll]*gainVQ_3_256[*idx][lJ; 
gainQ[ 1|[21 = prcd _gain[2]*gainVQ_3_256[*idx][2]; 

10 /* */ 

/* Update past quantized energies */ 
/* */ 

for (i_sf = 0; i_sf < N_SF3 ; i_sf++) 
15 { 

val = gainVQ_3_256[*idxI|i_sfl; 

past_cncrgyq_3d |N_SF3-l-i_sf] = 20.0* loglO(val); 

} 

20 /* '/ 

return; 

/* «7 

25 } 

/♦ - */ 

30 /*===================^======================^=======^========= ===== */ 

/* FUNCTION : GEQ_dcc jcJJ 0 *' 

/♦ */ 

/♦PURPOSE : This function decodes the 8 bit 3-D VQ of Gel, */ 

/* Gc2, and Gc3. Note that the gains are decoded */ 

35 /* one-by-onc on a subframe basis. */ 

/* */ 

/* INPUT ARGUMENTS : */ 

/* _ (INT16 ) index: codebook index. */ 

/* (INT16) N_bfi: duration of bad frame */ 

40 /♦ scq. (0=good frame) */ 
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/* (FLOAT64 □) umcu^rixca ^.^V>ok excitation.*/ 

/* _ (INT 16 ) i_sf: subframc number */ 

/♦ •/ 

/* OUTPUT ARGUMENTS : */ 

SI* _ (FLOAT64 *) gainQ: Quantized fixed codebook */ 
/* f gains. */ 

I* V 

/* INPUT ARGUMENTS : •/ 
/* _None. */ 

10 /♦ = */ 

/* RETURN ARGUMENTS : */ 
/* _ None. */ 


15 void GEQ_dcc_gc_3_8(INTl 6 index, FLOAT64 *gainQ, INT16 NWi, FLOAT64 **unfcod, 
INT16 i_s0 

{ 

I* ♦/ 

20 INT 16 i_sfJoca1; 

INT16 LL_SF[N_SF3J={L_SF0, L„SF0, L_SF3}; 

FLOAT64 cdown, current_fixed_encrgy, energy, pred_gain; 
FLOAT64 min_crg_38; 


25 

*/ 

/* Note: the gains are decoded one-by-one on a subframe basis */ 
*/ 

30 '/* */ 

/* Compute the cdbk energy witli mean removed (i.e., -34dB) */ 
/* ♦/ 

/* */ 

35 /* Predict energy for all subframes at first subframe */, 
/* */ 

if (i_sf == 0) 
{ 

40 dot_dvector(past_energyq_3d t energy_pred_coefT_ 1 , 


3NSOOCIO: <WO 0122402A1 I > 


WO 01/22402 


PCT/USOO/2S182 


427 

pred_energy_d38, 0, 3-1); 
pred_cncrgy_d38(01 = MAX (pred_energy_d38lO], -20.0); 

dot_dvcclor(past_cncrgyq_3d, encrgy_pred_coeff_2, 
5 prcd_encrgy_d38+l, 0, 3-1); 

prcd_encrgy_d38[ 1 J = MAX (pred_energy_d38[ 1], -20.0); 

dot_dvector(past_energyq_3d, energy_pred_coeff_3 , 
prcd_cnergy_d38+2, 0, 3-1); 
10 pred_energy_d38[21 = MAX (pred_cncrgy_d38[2], -20.0); 

} 

dot_dvcctor (unfcod(l], unfcod[lJ, &cncrgy, 0, LL_SF[i_sf]-l); 
current_fixed_encrgy = energy; 


15 


energy = 34.0 - 10.0* log 10(encrgy/(FLOAT64)LL_SFfi_sfl+EPSI); 


/*- 


-*/ 


/* Compute the predicted energy */ 
20 /* */ 

energy += pred_energy_d38[i_sf|; 

/* */ 

25 /* Compute the predicted gain */ 
/* */ 

prcd_gain = pow(10.0, energy/20.0); 

30 if(Nbfi==0) 
{ 

/* */ 

/*============—=:======= Good frame ======—===—======*/ 

/* */ 

35 

/* */ 

/* Get the quantized gain */ 
/* */ 

40 (*gainQ) = pred_gain*gainVQ_3_256[indcx][Lsf|; 
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past_fixcd_cnergy = cun-ent Jixed_energy*sqr((*gainQ)); 
if (i_sf == N_SF3-1) 


{ 

/* */ 

I* Update past quantized energies */ 
,♦ */ 


for (i_sfJocal= 0; i_sf_local < N_SF3; i_sf_local++) 
{ 

past_energyq_3d[N_SF3-l-i_sf_local] = 

20.0*logl0(gainVQ_3_256[index]li_sf_local]); 

} 

} 


} 

else 

{ 

/» */ 

/*===================== Bad frame ===== 

/* ♦/ 

/* */ 


/* set down-scaling according lo number of bad frames */ 


switch (NJ>fi) 
{ 

case 1: 

cdown = 0.75; 
break; 

case 2: 

cdown = 0.75; 
break; 

case 3: 

cdown = 0.75; 
break; 

case 4: 

cdown = 0.40; 
break; 


WO 01/22402 


PCT/US00/25182 


429 

cdown = 0.30; 
break; 

cdown - 0.20; 
break; 

default: 

cdown = 0.20; 

10 break; 


25 


35 


40 


case 5: 


case 6: 


/* — 


Fixed Codebook ===================*/ 

15 /* V 

(♦gainQ) = sqrt(past_fixed_cncrgy/currcnt_fixed_cncrgy); 
(♦gainQ) ♦= cdown; 

20 past_fixed_energy = current_fixed_energy*sqr((*gainQ)); 


-♦/ 


/* Buffer data for update after the last subframe */ 
/* */ 

min_erg_38 = MIN(past_energyq_3 d [°l> past_encrgyq_3d[ll); 
min_erg_38 = MIN(min_erg_38, past_energyq_3 d t21); 

past_cnergy(L3d[GVQ_VEC_SIZE_3D-l-i_sf| = MIN(min_erg_38, 
30 -energy + 20*!oglO(fabs(0.6*(*gainQ)) + EPSI)); 

/* */ 

/♦ Set GC to zero for Uiis mode under FER */ 
/* */ 


(♦gainQ) = 0.0; 
} 
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430 


-*/ 


=*/ 


/* FUNCTION : GEQ_gainVQMA_4 0- */ 

10 /* */ 

/* PURPOSE : This function performs 4-D VQ of Gel, Gc2, Gc3 */ 
/* and Gc4 with 10 bits. */ 

/*- 


/* 
/* 
/* 

/*■ 


/* 


/*■ 




INPUT ARGUMENTS 

*/ 

_ (FLOAT64 []) 

Tgs: target signal. */ 

_ (FLOAT64 []) 

unfcod: fixed codebook excitation.*/ 

_ (FLOAT64 []) 

fcod: filtered fixed codebook */ 


excitation. */ 

*/ 

OUTPUT ARGUMENTS : */ 

_ (FLOAT64 []) 

gainQ: Quantized fixed codebook */ 


gains. */ 

_ (INT16 ) 

idx: codebook index. */ 


*/ 


25 /* INPUT/OUTPUT ARGUMENTS 
/* _ None. 
/* 


*/ 


V 


/* RETURN ARGUMENTS : 
/* None. 
30 /*================== 


==*/ 


35 


void GEQ_gainVQMA_4 (FLOAT64 Tgs [], FLOAT64 **unfcod, FLOAT64 **fcod, 

FLOAT64 **gainQ, INT16 *idx) 

{ 

/* */ 


TNT16 i; 

INT16 num_candidatc; 
INT16i_s, i sf; 


40 
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FLOAT64 pred__energy[N_SF4]; 
FLOAT64 err_cnergy[N_SF4]; 
FLOAT64 lin_err_energyrN_SF4); 

FLOAT64 energy("N_SF4], pred _gain[N_SF4J t dist, dist_min, 

corr[CORR_S!ZE][N_SF4]; 
FLOAT64 val; 
FLOAT64 corr_coeff_a[4] > corr_coeflfb[41, corrcocfTc; 


10 / 


/*================== Compute the predicted cdbk gain ==============*/ 

/* */ 


15 /* - */ 

/* MA Prediction */ 

/* . */ 

dot_dvector(past_energyq_4d, encrgy_pred_coefT4d_l, 
20 &pred_energy[0|, 0, GVQ_VEC_SIZE_4D-1); 

prcd_cncrgy[OI « MAX(pred_energylO], -20.0); 

dot_dvector(past_cnergyq_4d, energy_pred_coeff4d_2, 
25 &prcd_cnergy( I ], 0, GVQ_VEC_SIZE_4D-1); 

pred_encrgy[ll « MAX(pred_energy[l], -20.0); 

dot_dvector(past_energyq_4d, cncrgy_prcd_coefF4d_3, 
30 &pred_energy[2], 0, GVQ_VEC_SIZE_4D- 1 ); 

prcd_energyI2] = MAX(pred_cnergy[2], -20.0); 

dot_dvcctor(pasi_cncrgyq_4d, energy_pred_cocfT4d_4, 
35 &pred_energy[3], 0, GVQ_VEC_SIZE_4D-I); 

pred_energy[3J = MAX(prcd_energy[31 > -20.0); 


40 /*==================:===== Process all subfranie ========== */ 
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*/ 


is = 0; 

for (i_sf = 0; i_sf < N_SF4; i_sf++) 
{ 

/* 


/* compute llic cdbk energy vvilh mean removed (i.e., -34dB) */ 
/* */ 


10 dot_dvector (unfeodf l]+i_s, unfcod[l]+i_s, &encrgy[i_sf], 

0,L_SF4-1); 

energy[i_sf] = 34.0 - 10.0*logl0(energy[i_sf| / 
(FLOAT64)L_SF4+EPSI); 


15 


/* compute the predicted energy */ 
20 /* */ 

cnergyli_sf| += predencrgyfisf]; 


/ 


25 /* compute the predicted gain */ 
/* ♦/ 

prcd_gain[i_sf] = pow(10.0, energy [i_sf]/20.0); 
err_cncrgy[i_sf] = -energy! isf] + 20*logl0(fabs(gainQ[l][i_sfl) 


30 


35 


EPSI); 


lin_crr_energy[i_sf] = pow(10.0, crr_energyli_sf|/20.0); 

i_s += L_SF4; 
} 


-*/ 


40 /*=============^======== Optimal gainVQ search =========—===*/ 
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dist_min = MAXFLT; 

5 num_candidate = 1024; 

for (i_sf = 0; i_sf < N_SF4; i_sf++) 
{ 

dot_dvector (fcod[0]+i_s, fcodl0]+i_s, &val, 0, L_SF4-1); 
corr[0][i_sf] = val; 

dot_dvector (fcod[0]+i_s, Tgs+i_s, &val, 0, LJSF4-1); 
corr[ll|i_sfl = "2.0*val; 

dot_dvector <fcod[l]+Ls, fcod(l]+i_s, &vat, 0, L_SF4-1); 
corr|2][i_sf) = val; 

dot_dvector(fcod(ll+i_s, Tgs+i_s, &val, 0, LJSF4-1); 
corr[3]fi_sf| - -2.0*val; 

dol_dveclor(fcod[0]+i_s, fcodll]+i_s,&val, 0, L_SF4-1); 
corr[4][i_sf] = 2.0*val; 

dot_dvector(Tgs+i_s, Tgs+i_s, &val, 0, L_SF4-1); 
corr[5][i_sfJ = val; 

i_s += L_SF4; 
} 

30 corr_coc(f_a[0] = corrl2J[0I*pred_gainI0]*pred_gain[0J; 

corr_coefT_b[0] = (corrl3][0J+gainQ[0][0]*corr|4][0])*pred_gain[0]; 

corr_cocfT_a(l] = corr[2][lJ*pred jgain[l]*pred_gain[l]; 
corr_coeff_b[ll = (corr[3][l]+gainQl0)[l]*corr[4][l])*prcd_sainll]; 

35 

corr_cocfT_a[2] = corrl2](2]*prcd_gain[2]*pred_gain[21; 
corr_cocfr_bl2] = (corr[3]l21+gainQ[0]12]*corr[4][2])*pred_gairi[2J; 

corr_coefr_a[3] = corr[21[3]*pred_gain[3]*pred_gain[3]; 
40 corr_coe£Lb[3] = (corr(3)[3]+gainQlO][3]*conr[4n31)*pred_gain[3]; 


15 


20 
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corr_coefr_c = con-[5][01+sqr(gainQ[0]I0])*corr[0][0J+gainQ[0I[0J*coiT[l J(0]+ 
con^[5][l]+sqr(gainQ[0][l])*corr(0J[l]+gainQ[0][l]*corr[l][l]+ 

corr[51[21+sqr(gainQ[0]|2])*corr{0][2]+gainQ[0]f21*corr[l][2]+ 
5 corT[5][3]+sqr(gainQ[OJ[3])*corr[0]I3]+gainQ[0][3]*corT|lJ[3]; 

for (i = 0; i < numcandidate; i++) 
{ 

dist = 

10 cou_c»efir_afO]*sqitgain^ 
+ 

corr_coeff_a[ 1 ]*sqr(gainVQ_4_1024[i][ l])+corr_coefif_b[ 1 ]*gainVQ_4_1024[i][l] 

+ 

15 

coir_cocfT_a[2]*sqr(gainVQ^^ 
+ 

coiT_coeff_a[3]*sqr(gainV^ 
20 + 

corr_coeff_c; 

if (dist < distinin) 
{ 

25 distinin = dist; 

(*idx) = i; 
} 

} 

30 

/+ */ 

/* Get the quantized gains */ 
/* */ 

35 gainQ[l][OI = pred_gain[0]*gainVQ_4_1024[*idx][0]; 
gainQ[l][l] = prcd^gain[l]*gainVQ_4_1024[*idx][l]; 
gainQ[l)[2] = pred_gain[2J*gainVQ_4_1024[*idx][2]; 
gainQ[I][3] = pred_gainl3]*gainVQ_4_1024[*idx|[3]; 


40 


iNSDOCID: <WO 01224O2A1J. > 


WO 01/22402 


PCT/US00/25182 


435 

/* */ 

/* Update past quantized energies */ 

for (i_sf = 0; i_sf < N_SF4; i_sf++) 
{ 

val = gainVQ_4_1024l*idx][i_sf]; 
past_energyq_4d [N_SF4-l-i sf] = 20.0* loglO(val); 

} 


10 


return; 

15 

/* */ 

} 

/* */ 

20 

/* FUNCTION : GEQ_dec_gc_4_10 0- */ 

/* _ */ 

/* PURPOSE : This function decodes the 10 bit 4-D VQ of Gel, */ 

25 /* Gc2, Gc3, and Gc4. Note that the gains are */ 

/* decoded one-by-onc on a subframe basis. */ 

/* */ 

/* INPUT ARGUMENTS : */ 
/* _ (INT16 ) index: codebook index. */ 

30/* _(INT16) NJ>fi: duration of bad frame */ 
/* seq. (0=good frame) */ 
/* _ (FLOAT64 []) unfcod: fixed codebook excitation.*/ 
/* (INT 16 ) i_sf: subframe number. */ 
/* - */ 

35 /* OUTPUT ARGUMENTS : */ 

/* _(FLOAT64 *) gainQ: Quantized fixed codebook */ 
/* gains. */ 

/♦ V 

/* INPUT ARGUMENTS : */ 

40 /* _None. */ 
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*/ 


/♦ RETURN ARGUMENTS : 

/* _ None. * / _ 

5 vo,d GEQ.doc^.OOKT.^ in**, TUOO» .^Q. mt.e N.bf,, FLOAT64 -Wco* 

INT 16 i_s0 

{ */ 

/* 


10 


20 


25 


35 


40 


1NT16 ijsfjocal; 


FLOAT64 cdown, current JIxcd_energy, energy, prcd_gain; 
15 FLOAT64 min_crg_410; 

/* / 

/* Note* the gains are decoded one-by-one on a subframe basis •/ 

*/ 

/* 


/♦ " 1 

/* Compute the cdbk energy with mean removed (i.e., -34dB) 

*/ 

/* 


_ */ 

/* 

/+ Predict energy for all subframes at first subframe */ 

. */ 

/* 


30 if(i_sf=0) 


dot_dvector(past_energyCL.4d, energy jred_coefT4d,l, 

pred_energy_d410 > 0, 4-1); 
P red_energy„d410[01 = MAX (pred„energy_d410l0] ; -20.0); 

dot_dvector(past_energy(L.4d t energy_pred_coefT4d - 2, 

p red_cnergy_d410+l, 0, 4-1); 
P rcd_energy.d410[l] = MAX (pred_energy_d410[H, -20.0); 

dot dvector(past_cnergyq_4d, cnergy_pred_coeff4d_3, 
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pred_cncrgy_d410+2, 0, 4-1); 
prcd_cnergy_d410[2] = MAX (pred_ehcrgy_d410[2], -20.0); 

dol__dvcclor(past_cncrgyCL4d ( cnergy_pred_coefT4d_4, 
5 pred_cnergy_d410+3, 0, 4-1); 

pred_cnergy_d410[3] = MAX (prcd_encrgy_d410[3], -20.0); 
} 

dot_dvector (unfcod[l], unfcodfl], &energy, 0, L_SF4-1); 
10 current_fixcd_cnergy = energy; 

energy = 34.0 - 10.0*loglO(cncrgy/(FLOAT64)L_SF4+EPSI); 


/* */ 

15 /* Compute the predicted energy */ 
/* */ 

energy += prcd_cncrgy_d4 10|i_sf|; _ 

20 /* */ 

/* Compute the predicted gain */ 
/* ♦/ 


pred_gain = pow(10.0, cncrgy/20.0); 

25 

if (N_bfi== 0) 


{ 

/♦ */ 

/*=—=================== Good frame —====================*/ 

30 /* */ 

/* */ 

/* Get the quantized gain */ 
/♦ */ 

35 


(♦gainQ) = pred_gain*gainVQ_4_1024[indcx][i_sf]; 
past_fixed_cnergy = current_fixed_encrgy*sqr((*gainQ)); 
40 if(i_sf=-N_SF4-l) 
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else 

{ 

15 /*- 


20 


30 


35 


40 
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{ 

/♦ v 

/* Update past quantized energies */ 
,* */ 


for (i_sf_local= 0; i_sfJocal < N_SF4; i_sf Jocal++) 
{ 

P ast_energyq_4d[N_SF4-l-LsfJocaI] = 

20.0*IoglO(gainVQ_4_1024[index][i_sfJocal]); 

} 


-«7 


/ * ======= — ========— ======= Bad frame ===== 

*/ 


/* set down-scaling according to number of bad frames */ 

, •/ 

switch (N_bfi) 
{ 


25 1: 


case 2: 


case 3: 


case 4: 


case 5: 


cdown = 0.75; 
break; 

cdown = 0.75; 
break; 

cdown = 0.75; 
break; 

cdown = 0.40; 
break; 


cdown = 0.30; 
break; 
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20 


case 6: 


default: 


439 

cdown - 0.20; 
break; 

cdown = 0.20; 
break; 


/* */ 

Pitch gain ====================== */ 

/* */ 


(*gainQ) = sqrl(past_fixcd_encrgy/currenl_fixed_energy); 
(*gainQ) *= cdown; 
15 past_fixed_encrgy = currentJIxcd_encrgy*sqr((*gainQ)); 


-*/ 


/* Buffer data for update after the last subframe */ 
/* */ 

min_erg_410 = MIN(past_cnergyq_4d[0] t past_energyq_4d[lj); 
min_crg_410 = MIN(min_erg_410, past_energyq_4 d ( 2 l); 
min_erg_410 = MIN(min_crg_410, past_cnergyq_4d[31); 

25 past_energyq_4d[GVQ_VEC_SLZE_4D- 1 -i_sf] = MIN(niin_erg_4 10, 

-energy + 20*logl0(fabs(0.6*(*gainQ)) + EPSI)); 

/* */ 

/* Set GC to zero for this mode under FER */ 
30 /♦ *' 

(♦gainQ) = 0.0; 
} 

35 /* */ 

return; 

y* — */ 

40 } 
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/♦ */ 


/* FUNCTION : GEQ_gainNSQMA_l_5 0- */ 

5 /* */ 

/* PURPOSE : This function performs 1-D VQ of Gc with */ 
/* 5 bits. */ 

/* */ 

/* INPUT ARGUMENTS : */ 
10 /* _ (FLOAT64 []) unfcod: fixed codcbook */ 
/* excitation. */ 
/* */ 

/* OUTPUT ARGUMENTS : */ 
/* _ (FLOAT64 []) gainQ: Quantized adaptive and */ 
15 /* fixed codebook gains. */ 
/* _ (INT16 *) idx: codebook index. */ 
/♦ */ 

/* rNPUT/OUTPUT ARGUMENTS : */ 
/* _ None. */ 

20 /* : */ 

/* RETURN ARGUMENTS : */ 
/* _ None. */ 

25 void GEQ_gainNSQMA_l__5(FLOAT64 *unfcod, FLOAT64 **gainQ , INT16 *idx) 
{ 

/* */ 

FLOAT64 energy, prcd_gain, dist, dist_inin, g_cdbk; 
30 INT16 i; 

INT16 num_candidate; 
FLOAT64 pred_energy; 

/* V 

35 Compute the predicted cdbk gain =============*/ 

/* */ 


/* Note: compute the cdbk energy with mean removed (i.e., -30dB) */ 
40 /* */ 
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dot_dvector (past_energyq_4d, energy_pred_coeff4d_l, &prcd_energy, 0, 

G VQ_ VEC_S IZE4D- 1 ); 
prcd cncrgy = MAX (prcd_energy, -20.0); 

5 

dot_dvector(unfcod, unfcod, &energy, 0, LJFRM-1); 

energy = 30.0 - 10.0* log 10(cnergy/(FLOAT64)L_FRM+EPSI); 


10 /* */ 

/* Compute the predicted energy */ 
/* */ 

energy += pred_energy; 

15 

/* : */ 

/* compute the predicted gain */ 
/♦ */ 

20 pred_gain = pow( 10.0, energy/20.0); 

/* */ 

/*======================: Optimal gainVQ search =======—===========*/ 

/* */ 

25 


dist_min = MAXFLT; 

num_candidate = 32; 

30 for (i = 0; i < num_candidatc; i++) 

{ 

g_cdbk = prcd_gain*gainSQ_l_32[i]; 
dist = sqr(g_cdbk - gainQ[l )[0]); 

35 

if (dist < dist_min) 
{ 

dist_min = dist; 
40 (*idx) = i; 
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5 /* get the quantized gains */ 

/* */ 

gainQ[l]lOJ = pred _gain*gainSQ_l_32l*idx); 

10 /* , */• 

/* update past quantized energies */ 
/* r */ 


for (i = GVQ_VEC_SIZE_4D-1; i > 0; i~) 
15 past_cnergyq_4dfi] = past_cncrgyq_4d|i-l]; 

past_energyq_4d[0] = 20.0*loglO(gainSQ_l_32[*idx]); 


/* */ 

20 

return; 

/* «y 

} 

25 /* */ 

/♦FUNCTION : GEQ_dcc_gains_l_5 0 */ 
/* */ 

30 /* PURPOSE : This function decodes the 5 bit 1-D VQ of Gc */ 
/* - */ 

/* INPUT ARGUMENTS : */ 
/* _ (INT16 ) index: codebook index. V 

/* _(nSTT16) N_bfi: duration of bad frame */ 

35 /* scq. (0=good frame) */ 

/* _ (FLOAT64 []) unfcod: adaptive and fixed */ 
/* codebook excitation. */ 
/* */ 

/* OUTPUT ARGUMENTS : */ 
40/* _ (FLOAT64 [][]) gainQ: Quantized adaptive and ♦/ 
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/* fixed codcbook gains. */ 

/♦ */ 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* _None. */ 

5 /• */ 

/* RETURN ARGUMENTS : */ 
/* _None. */ 

10 void GEQ_dec_gains_l_5 (INT16 index, FLOAT64 **gainQ, FLOAT64 *unfcod, 

INT16N_bfi) 

{ 

/* */ 

15 INT16 i; 

FLOAT64 current_fixed_energy; 
FLOAT64 energy, prcd_gain; 
FLOAT64 cdown; 
20 FLOAT64 val; 

FLOAT64 min_crg_15; 

/* */ 

/* Compute (he cdbk energy with mean removed (i.e., -30dB) */ 
25 /* */ 

dot_dvector (unfcod, unfcod, &cnergy, 0, L_FRM-1); 

currcnt_fixcd_energy = energy; 
30 energy /= (FLO AT64)L_FRM ; 

energy = 30.0 - 10.0*loglO(cnergy+EPSI); 

/* */ 

35 /* Compute the predicted energy */ 
/* */ 

dot_dvcctor (past_encrgyq__4d, energy _pred_cocfT4d_ 1 , &va), 0, 
GVQ_VEC_SIZE_4D-1); 

40 
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20 


40 
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val = MAX (val, -20.0); 
energy += val; 

/* r Compute the predicted gain */ 
/* */ 

pred_gain = pow(10.0, energy/20.0); 


if (N_bfi == 0) 
{ 

/* : */ 

15 /* */ 

/* get the quantized gains */ 
/* */ 


gainQ[l][0] = pred_gain*gainSQ_l_32[index]; 


/* */ 

/* update past quantized energies */ 
25 /* */ 

for (i - GVQ_VEC_SIZE_4D-i; i > 0; i~) 

past_cncrgyq_4d[ij = past_energyq_4d[i-l]; 

30 past_energyq_4d{0] = 20.0*Logl0(gainSQ_l_32[indcxI); 

} 

else 

{ 


/* */ 

/*===—=============— bad frame ===== 

/* «y 
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10 


15 


20 


25 


30 


/* 


-*/ 


/* sel down-scaling according to number of bad frames */ 
/♦ */ 

switch (N_bfi) 
{ 

case 1: 

cdown = 0.98; 
break; 

cdown = 0.94; 
break; 

cdown = 0.88; 
break; 

cdown = 0.80; 
break; 

cdown = 0.30; 
break; 

cdown = 0.20; 
break; 


case 2: 


case 3: 


case 4: 


case 5: 


case 6: 


default: 


} 


cdown = 0.20; 
break; 


gainQ[lJlO] = sqrt(past_fixed_encrgy/cuiTcnt_fixed_cnergy); 
gainQ[l][0] *= cdown; 


35 


/* update past quantized energies */ 
/* */ 


40 


min_crg_15 - MrN(past_cnergyq_4d[0], past_energyq_4dll]); 
min_crg_15 = MIN(min_erg_15, past_energyq_4d[2]); 
min_erg_15 = MIN(min_crg_15, past_energyq_4d[3]); 
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for (i = G VQ_VEC_S1ZE_4D- 1 ; i > 0; i-) 
past_energyq_4dli] = past_energyq_4d[i-l]; 


5 past_energyq_4d[0] = MIN(min_erg_15, -energy + 

20*iogl0(fabs(0.6*gainQ[l][0]) + EPSI)); 

} 

/* v 

10 /* Update the past fixed codebook energy */ 
/* */ 

pastjfixed_encrgy = current_fixed_energy*sqr(gainQ(l](0]); 

15 /* */ 

return; 

/* */ 

20 } 

/* FUNCTION : GEQ_gainNSQMA_l_6 0- */ 
/* */ 

25 /+ PURPOSE : This function performs 1-D VQ of Gc with */ 
/* 6 bits. V 
/* */ 

/* INPUT ARGUMENTS : */ 
/* _ (FLOAT64 []) unfcod: fixed codebook */ 

30 /* excitation. */ 

/* */ 

/* OUTPUT ARGUMENTS : */ 
/* _ (FLOAT64 []) gainQ: Quantized adaptive and */ 
/* fixed codebook gains. */ 

35 /* _(TNT16 *) idx: codebook index. V 
/* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ None. */ 

/* */ 

40 /* RETURN ARGUMENTS : */ 
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/* None. */ 


void GEQ_gai nNSQM A_ 1 _6( INT 1 6 pos, FLOAT64 *unfcod, FLOAT64 **gainQ , INT16 *idx) 
5 { 

/*_ */ 

FLOAT64 energy, pred _gain, dist, dist_jnin, g_cdbk; 
INT16 i; 

10 INT 16 num_candidate; 

FLOAT64 pred_energy; 

/* */ 

/*================== Compute the predicted cdbk gain ====—====««=====— */ 

15 /* */ 


/* Note: compute the cdbk energy with mean removed (i.e., -30dB) */ 
/* */ 

20 

dot_dvcctor (pasl_cncrgyq_2d, energy_prcd_coeff_l, &pred_cncrgy, 0, 

G VQ_VEC_SIZE_2D- 1); 
pred_encrgy = MAX (pred_encrgy, -20.0); 

25 dot_dvector(uiifcod+pos*40, unfcod+pos*40, &encrgy, 0, 80-1); 

energy = 30.0 - 10.0*!oglO(encrgy/(FLOAT64)80+EPSI); 

/* */ 

30 /* Compute the predicted energy */ 
/♦ */ 

energy += predenergy; 


35 /' 


/* compute the predicted gain */ 
/* */ 

pred_gain = pow(10.0, energy/20.0); 


40 
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/♦ V 

/*====================== Optimal gainVQ search ===================*/ 

/* */ 

5 dist_min = MAXFLT; 

numcandidate = 64; 

for (i = 0; i < num candidate; i+-f) 
10 { 

gcdbk = pred_gain*gainSQ_l_64[iJ; 


dist = sqr(g_cdbk - gainQ[l][pos]); 

15 

if (dist <dist_min) 
{ 

dist_min = dist; 
(*idx) = i; 
20 } 
} 


/* ♦/ 

/* get the quantized gains */ 
25 /* */ 

gainQ[lJ[pos] = pred_gain*gainSQ_l_64[*idx]; 

/* */ 

30 /* update past quantized energies */ 
/* */ 


for (i = GVQ_VEC_SI2E_2D-1; i > 0; i-) 

past_energyq_2d[i] = past_cnergyq_2d[i-l]; 

35 

past_energyq_2dlOJ = 20.0*loglO(gainSCLl_64[+idxl); 
/* r */ 

40 return; 
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/* V 


} 

/* ♦/ 

5 

/* FUNCTION : GEQ_dec _gains_l_6 0 ' */ 

/* */ 

/* PURPOSE : This function decodes the 6 bit 1-D VQ of Gc */ 

10 /* */ 

/* INPUT ARGUMENTS : */ 
/* _(INT16) index: codebook index. */ 

/* _ (INT 16) N_bfi: duration of bad frame */ 

/* seq. (0=good frame) */ 

15 /* _(FLOAT64[]) unfcod: adaptive and fixed */ 
/* codebook excitation. */ 

/* */ 

/* OUTPUT ARGUMENTS : */ 
/* _(FLOAT64 [][]) gainQ: Quantized adaptive and */ 

20 /* fixed codebook gains. */ 

/* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 

/♦ _ None. */ 

/* */ 

25 /* RETURN ARGUMENTS : */ 
/* _ None. +/ 

void GEQ_dcc_gains_l_6( INT16 pos, INT16 index, FLOAT64 **gainQ, 
30 FLOAT64 ♦unfcod, INT16 N_bfi) 

{ 


/* */ 

INT16 i; 

35 

FLOAT64 current_fixed_energy; 
FLOAT64 energy, prcd _gain; 
FLOAT64 cdown; 
FLOAT64 val; 
40 FLOAT64 min_erg_16; 
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/* Compute the cdbk energy with mean removed (i.e., -30dB) */ 
/* r v 

5 

dot_dvector (unfcod+pos*40, unfcod+pos*40, &energy, 0, 80-1); 

current_fixed_encrgy = energy; 
energy /= (FLOAT64)80; 
10 energy = 30.0 - 10.0*logI0(energy+EPSI); 

/* v 

/* Compute the predicted energy */ 


15 


20 


dot_dvector (past_cncrgyq_2d, energy_pred_coe!T_l, &val, 0, 
GVQ_VEC_S1ZE_2D-1); 

val - MAX (val, -20.0); 

energy += val; 


/* v 

/* Compute the predicted gain */ 
25 /*» _*/ 

prcd _gain = pow(10.O, energy/20.0); 

if(N_bfi = 0) 
30 { 


/*- 


/* */ 

35 /* */ 

/* get the quantized gains */ 
/* v 


gainQllUposJ = prcd_gain*gainSQ_l_64[index]; 


40 
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/* */ 

/* update past quantized energies */ 
/* V 


5 for (i = GVQ_VEC_S1ZE_2D- 1 ; i > 0; i«) 

pasl_cnergyq_2d[i] = past_energyq_2d[i-l]; 

past_encrgyq_2d[0] - 20.0 * log 10(gainSQ_l_64[ index]); 

10 } 
else 

{ 


15 /* */ 

/*========-=—=========== bad frame =======-==========—===*/ 

/* */ 

/* */ 

20 /* set down-scaling according to number of bad frames */ 
/* 

switch (N_bfi) 
{ 

25 case 1: 

cdown = 0.98; 
break; 

case 2: 

cdown = 0.94; 
30 break; 

case 3: 

cdown = 0.88; 
break; 

case 4: 

35 cdown = 0.80; 

break; 

case 5: 

cdown = 0.30; 
break; 

40 case 6: 
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cdown = 0.20; 
break; 

default: 

5 cdown = 0.20; 

break; 

} 

gainQ[l)[pos] = sqrt(past_fixed_energy/cuirent_flxed_cnergy); 
10 gainQ[l][pos] *= cdown; 

/* */ 

/* update past quantized energies */ 
/* »/ 


15 


20 


30 


inin_erg_16 = MIN(past_energyq_2d[0], past_energyq_2d[l]); 

for (i = GVQ_VEC_SIZE_2D-1; i > 0; i~) 
past_cncrgyq_2d[i] = past_energyq_2d[i-l]; 

past_energyq_2d[0] ~ MIN(min_crg_16, -energy + 

20*loglO(fabs(0.6*gainQ[l][pos]) + EPSI)); 

} 


25 /*- 


/* Update the past fixed codebook energy */ 
/* */ 

past_fixcd_energy = currcnt_fixcd_energy*sqr(gainQ[l][posl); 


/*- 


return; 

35 /* */ 

} 

/* FUNCTION : GEQ_gain_rcopt_2 0 */ 

/* */ 

40 /* PURPOSE : This function jointly estimates Ga and Gc. */ 
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*/ 


/* INPUT ARGUMENTS 
/♦ _ (FLOAT64 []) 


_ (FLOAT64 []) 

_ (FLOAT64 []) 
_(TNT16) 


vecO: filtered adaptive codebook */ 
excitation. */ 

veel : filtered fixed codebook */ 
excitation. */ 

target: target signal. */ 
l_sf: length of subframe. */ 
*/ 


/♦ 
5 /* 
/* 
/* 
/* 
/*- 

10 /* OUTPUT ARGUMENTS : */ 

/* _ (FLOAT64 ) gainO: adaptive codebook gain. */ 

/* _(FLOAT64) gainl: fixed codebook gain. */ 

/* */ 

/* INPUT ARGUMENTS : */ 
15 /* _Nonc. */ 

/* V 

/* RETURN ARGUMENTS : */ 

/♦ _ None. */ 

/*=========================================================== 

20 

void GEQ_gain_reopt_2(FLOAT64 *vccO, FLOAT64 *vecl, FLOAT64 'target, 

FLOAT64 *gain0, FLOAT64 *gainl, 1NT16 l_sf) 

{ 


==*/ 


25 


FLOAT64 *Cp, *Tgs, *Cc; 

FLOAT64 R_Cp_Tgs, R_Cp_Cp, R_Cc_Cc, R_Cp_Cc, R_Cc_Tgs; 
FLOAT64 den, num; 


30 


/* 


35 


40 


Tgs = target; 
Cp =vcc0; 
Cc = veel; 

dot_dvcctor(Cp, Tgs, 
dot_dvector(Cp, Cp, 
dot_dvector(Cc, Cc, 
dot_dvector(Cp, Cc, 
dot_dvecior(Cc, Tgs, 


&R_Cp_Tgs, 

&R_Cp__Cp, 

&R_Cc_Cc, 

&R_Cp_Cc, 

&R_Cc_Tgs, 


0, Lsf-l): 
0, Lsf-l) 
0, l_sf-l) 
0, l_sf-l); 
0, l_sf-l) 
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/* */ 

/* Optimize all gains */ 
5 /* */ 

num = R_Cp_Tgs*R_Cc_Cc - R_Cp_Cc*R_Cc_Tgs; 
den = R_Cp_Cp*R_Cc_Cc - R_Cp_Cc*R_Cp_Cc; 

10 if(den>0) 

den = MAX(0.001,den); 

else 

den = MIN(-0.001, den); 

15 (*gain0) = ntim/den; 

(♦gainO) = MAX(0.0, *gainO); 
(*gainO) = M1N(1.2, *gainO); 

(*gainl) = (R_Cc_Tgs - (*gainO)*R_Cp_Cc)/MAX(R_Cc__Cc, 0.00001); 

return; 
25 } 

/* */ 

30 /* FUNCTION : GEQ_energy_extrapolation 0. */ 

/* PURPOSE : This function extrapolate the energy of the */ 
/* excitation when a frame erasure occurs. */ 

35 /* INPUT ARGUMENTS : */ 
/* _ (INT16 ) i s: subfrarne starling sample. */ 
/* _ (INT16 ) i_sf: subfrarne number. */ 
/* _ (INT 16) l_sf: length of subfrarne. */ 
/* _ (FLOAT64 []) gainQ: adaptive and fixed codebook gains. */ 

40 /* _ (FLOAT64 **) unfeoddec: adaptive and fixed codebook excit. */ 
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/* _ (INT 16) bfi : current frame Bad Frame Indicator. */ 
/* _ (INT16 []) lag: subframe lags. */ 
/* _ (FLOAT64 []) ForPitch_dec: decoded picth evolution. 
/* _ (PARAMETER) channel: decoded indexes. 

5 /* */ 

/* OUTPUT. ARGUMENTS : */ 
/* _ (FLOAT64 []) ext_dec: final scaled excitation. */ 
/* _ (FLOAT64 []) Prev__Bcta_Pitch: excitation scaling factor. 
/* _ (FLOAT64 []) ET_buf: subframe energy factor. 

10 /* */ 

/* INPUT ARGUMENTS : */ 
/* None. */ 


*/ 
*/ 


*/ 


/* 


/* RETURN ARGUMENTS 

15 /* _None. 

/ * ==================:===; 


*/ 


void GEQ_cncrgy_extrapolation (INT16 i_s, INT16 i_sf, INT16 l_sf, 

FLOAT64 gainQ FLOAT64 **qua_unfcod, 
20 INT16 bfi, INT16 lag [], FLOAT64 ext_dec [J, 

FLOAT64 Prev_Beta_Pitch [], FLOAT64 ET_buf []> 
FLOAT64 ForPitch_dec [], PARAMETER channel) 


25 


INTI6 i; 


30 


FLOAT64 El, E2, ET, FET, PFET; 
FLOAT64 *px, AA, BB; 

FLOAT64 unp_vccl[L_SF], tmp_vec2[L_SF], tmp_vec3[L_SF]; 


35 


40 


for(i = 0; i < l_sf; i++) 
{ 

tmp_vecl[i] = gainQ[l] * qua_unfcod[l][i+i_s]; 
tmp_vec2[i) - gainQ(0] * qua_unfcod[0][i+i_s]; 
tmp_vec3[i] = gainQ[0] * qua_unfcod[0][t+i_s] + 

gainQ(l) * qua_unfcod[l][i+i_s]; 

} 
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dot_dvcctor(tmp_vecl, tinp_vecl, &E1, 0, l_sf-l); 
dot_dvcctor(tmp_vec2, lmp_vec2, &E2, 0, l_sM); 
dol_dvector(tmp_vec3, tmp vec3, &ET, 0, l_sf-I); 

ET_bufIi_sf| = 10.0*logl0(ET + EPSI); 
Prev_Beta_Pitch[i_sf| - E2 / (El + E2 + EPSI); 

px = ext dec+MAX LAG; 
dot_dvector(px, px, &FET, 0, l_sf-l); 

FET+=EPSI; 

if(bfi = 1) 
{ 

if (gainQ[OJ >0.6) 
if (channel. idx_SVS_dcci == 0) 
BB = 0.90; 

else 

BB = 0.95; 

else 

BB = 0.8; 

if (channe1.idx_SVS_deci = 0) 
{ 

if ((Iag[i_sf| > 0) && (gainQlOJ >= 0.6)) 

px = ext_d ec+MAX_L AG-lag [i_sf|; 

else 

px = ext_dec+MAX_LAG-l_sf; 

} 

else 

{ 

if (lag(i_sf] >0) 

px = ext_dcc+MAX_LAG-(INT16)ForPitch_dcc[i_s]; 

else 

px = ext_dec+MAX_LAG-l_sf; 
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/*- 


dot_dvccior(px, px, &PFET, 0, l_sf-l); 
AA = BB*sqrt(PFET/FET); 


px = extdcc+MAXLAG; 
sca_dvector(px, AA, px, 0, l_sf-l); 
10 } 


return; 


15 


-*/ 


/* V 

> 


20 

/♦ ===================:===== ===== == = = ===================== 

/* FUNCTION : GEQ_updatc_mem_4d_to_2d (). */ 

/* */ 

/* PURPOSE : This function update the cross memories */ 
25 /* for the gain quantizers for the transition */ 
/* 4 to 2 gains. */ 
/* */ 

/* INPUT ARGUMENTS : */ 
/* _ None. */ 

30 /* */ 

/* OUTPUT ARGUMENTS : */ 
/* _Nonc. . */ 

/* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 

35 /* _None. */ 


/* RETURN ARGUMENTS : 
/* None. 


40 
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void GEQ_update_incm_4d_to_2d (void) 
{ 


past__energyq_2d[0] = 0.5*(past_cnergyq_4d[0]+ pasl_energyq_4d[l]); 
past _encrgyq_2d[ll = 0.5*(pasl_energyq_4d[2]+ past_energyq_4d[3]); 


/*- 


10 


return; 


/* 


15 /*- 


/* FUNCTION : GEQ_update_mcm_2djo_4d (). 

/* */ 

20 /* PURPOSE : This function update the cross memories 
/* for the gain quantizers for the transition */ 
/* 2 to 4 gains. */ 
/* */ 


/* INPUT ARGUMENTS : 
25 /* _Nonc. 
/*- 

/* OUTPUT ARGUMENTS : 
/* _ None. 
/* 


30 /* INPUT/OUTPUT ARGUMENTS : 
/* _ None. 
/* 


/♦ RETURN ARGUMENTS 
/* _ None. 

35 


*/ 


*/ 


*/ 


*/ 


*/ 


-*/ 


*/ 


void GEQ_update_mem_2d_to_4d(void) 
{ 

/* 


40 


-*/ 
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FLOAT64 vai; 


/* 


val = 0.5*(past_energyq_2d|0] + past_energycL_2dll]); 


10 


past_energyq_4d[0] = past_cnergyq_2d[0J; 
past_cncrgyq_4d[l] = val; 
past_energyq_4d[2] = val; 
past_energyq_4d[3] = past_energyq_2d[l]; 


-*/ 


15 


return; 


-*/ 


20 


/*== 


/* FUNCTION : GEQ - update_mem_3d_to_2d (). */ 

/• .... */ 

/* PURPOSE : This function update the cross memories */ 

25 /* for the gain quantizers for the transition */ 

/* 3 to 2 gains. */ 

/* */ 

/* INPUT ARGUMENTS : */ 
/* _ None. */ 

30 /* — ~ */ 

/* OUTPUT ARGUMENTS : */ 

/* _ None. */ 

/* . r ♦/ 

/* INPUT/OUTPUT ARGUMENTS : */ 
35 /* _None. */ 

/♦ V 


/* RETURN ARGUMENTS : 
/* _ None. 


*/ 


40 


BNSDOCID: <WO_ _ 0122402 A 1 I > 


WO 01/22402 


PCT/US00/25182 


460 


void GEQ_update_mcm_3d_to_2d(void) 
{ 

/* 


-*/ 


past_energyq_2d[0] = 0.5*(past_energyqJ5d[0]+ past_energyq__3d(ll); 
past_cncrgyq_2d[l] = 0.5*(past_energyq_3d[ll+ past_encrgyq_3d[2]); 


/* 


10 


return; 


15 /*- 


-*/ 


/*=======-====-================="==== =s== == = = =: 

/♦FUNCTION : GEQ_update_mem_2d_to_3d 0 

/* */ 

20 /* PURPOSE : This function update the cross memories 
/* for the gain quantizers for the transition */ 
/* 2 to 3 gains. */ 
/* */ 

/* INPUT ARGUMENTS : */ 
25 /* _None. */ 

/* V 

/* OUTPUT ARGUMENTS : */ 
/* _None. */ 

/♦ */ 

30 /* INPUT/OUTPUT ARGUMENTS : 

/* _ None. */ 

/* */ 


*/ 


/* RETURN ARGUMENTS : 
/* _ None. 

35 /*================== 


void GEQ_updale_mem_2d to_3d(void) 
{ 

/* 


40 


WO 01/22402 


PCT/US00/25182 


461 


past_encrgyq_3d[0) = past_encrgyq_2d[0]; 

pasLcnergyqJJdll] = 0.5*(past_energyq_2d[0]+ past_cncrgyq_2d(l]); 
past_cnergyq_3d|2] = past_cnergyq__2d[l]; 


«7 


10 


return; 


15 /* FUNCTION : GEQ_updale_memJ3d_to_4d ()- 

/* PURPOSE : This function update the cross memories 
/* for the gain quantizers for the transition */ 

/* 3 to 4 gains. */ 


20 /*- 


/* INPUT ARGUMENTS : 
/+ _ None. 


/* OUTPUT ARGUMENTS : 
25 /* None. 
/* 


/* INPUT/OUTPUT ARGUMENTS : 

/* _ None. 

/* 


30 /* RETURN ARGUMENTS 
/* _ None. 


*/ 


*/ 


*/ 


*/ 


*/ 


=*/ 


35 void GEQ__update_mem_3d_to_4d(void) 
{ 

/* */ 

past_encrgyq_4d[0] = past_energyq_3d[0]; 
40 past_cnergyq_4d[ 1 J = past_encrgyq_3d[ 1 ] ; 
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past_energyci_4d[2] = past_energyq_3d[l]; 
past_energyq_4d[3] - past_energyq_3d[2); 


5 

return; 


} 

10 

/* — */ 

/* FUNCTION : GEQ_update_mcm_4d_to_3d 0- */ 
15 /* */ 

/* PURPOSE : This function update the cross memories */ 

/* for ihe gain quantizers for the transition */ 

/* 4 to 3 gains. */ 

/* _ */ 

20 /* INPUT ARGUMENTS : */ 
/* _Nonc. */ 
/* 1 */ 

/* OUTPUT ARGUMENTS : */ 
/+ _None. */ 

25 /* ~ */ 

/* INPUT/OUTPUT ARGUMENTS : */ 

/* _None. V 

/* */ 

/* RETURN ARGUMENTS : */ 
30 /* _None. */ 

void GEQ_update_mem_4d_to_3d(void) 
{ 

35 /* */ 

past_energyq_3d[0] = past_energyq_4d[0]; 

past_encrgyq_3d[Il = 0.5*(past_energyq_4d[l]+ past_energyq_4dl2]); 
past_energyq_3d|2] = past_energyqL4d[3]; 

40 
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return; 

5 /* */ 

} 

/* */ 

/♦ END */ 

^^^^^^^^^^^^^^^ 
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/*=========================-=========== 

/* Conexant System Inc. */ 

5 /* 43 1 1 Jamboree Road */ 
/* Newport Beach, CA 92660 */ 

/* L */ 

/» Copyright(C) 2000 Conexant System Inc. */ 
/• */ 

10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

/*==:================================-==========-= : 


==*/ 


15 /* PROTOTYPE FILE : lib _geq.h */ 


/* */ 

/* FUNCTIONS */ 

20 /* */ 

void GEQ_init_lib (void); 

void GEQ_gainVQMA_2 (FLOAT64 [], FLOAT64 **, FLOAT64 **, FLOAT64 [], INT16 *, 

25 1NT16JNT16); 

void GEQ_dec_gatns_2,7(INT16,INT16, INT16, FLOAT64 [], INTI6, FLOAT64 [], 

INT16, INT16); 

30 void GEQ_gainVQMA_2_8_5 (FLOAT64 [], FLOAT64 **, FLOAT64 ** FLOAT64 []> INT16 *, 

INT 16); 

void GEQ_dcc_gains_2_7_8_5 (INT16, INT16, FLOAT64 [], INT16, FLOAT64 [J, INT16, 

INT16); 

35 

void GEQ_Quant_PitchGain_3D (FLOAT64 *, INT 16 *); 

void GEQ_QuantJPitchGain_4D (FLOAT64 *, INT16 *); 


40 void GEQ_Dec_PitchGain_3D (INT16, INT16, INT16, FLOAT64 *); 
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(INT16, INT16, INT16, FLOAT64 *); 


void GEQ_gainVQMA_3 


(FLOAT64 [], FLOAT64 **, FLOAT64 **, FLOAT64 INT16 *); 


void GECLdec _gc_3_8 


(INT16, FLOAT64 INT16, FLOAT64 **, INT16); 


void GEQ_gainVQMA_4 


(FLOAT64 [], FLOAT64 FLOAT64 **, FLOAT64 **, INT16 *); 


10 voidGEQ_dec _gc_4_10 


(INT16, FLOAT64 *, INT16, FLOAT64 **, INT16); 


15 


void GEQ_gainNSQMA_l_5(FLOAT64 [], FLOAT64 **, INT16 []); 
void GEQ_dec_gains_l_5( INT16 , FLOAT64 FLOAT64 [], INT16 ); 

void GEQ_gainNSQMA_l_6(INT 1 6 , FLOAT64 [], FLOAT64 **, INT16 []); 
void GEQ_dec_gains_l_6( INT16 t TNT16 , FLOAT64 **, FLOAT64 [], INT16 ); 


void GEQ_gain_rcopt_2 (FLOAT64 [J, FLOAT64 [], FLOAT64 [], FLOAT64 *, 
20 FLOAT64 *, 1NT16); 


void GEQ_energy_extrapoIation (INT16, INT16, INT16, FLOAT64 [], FLOAT64 **, 

INT16, INT16 [], FLOAT64 U, FLOAT64 [], FLOAT64 [], 
FLOAT64 [], PARAMETER); 


void GEQ_updatc_mem_4d_u>_2d (void); 
void GEQ_update_mem_2d_to_4d (void); 
30 void GEQ_updatc_mcm_3d_to_2d (void); 
void GEQ_update_mem_2d_to_3d (void); 
void GEQ_update_mcm_3d_to_4d (void); 
void GEQ_updatc_mem_4d_to_3d (void); 

35 

/♦ END — */ 


BNSDOCID <WO 0122402A1 J > 


WO 01/22402 


PCT/USOO/25182 


466 


/* Conexant System Inc. */ 
5 /* 4311 Jamboree Road */ 
/* Newport Beach, CA 92660 */ 

/♦ V 

/* Copyright(C) 2000 Conexant System Inc. */ 

/* •/ 

10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

15 /* LIBRARY: lib ini.e */ 


/* */ 

/* INCLUDE */ 

20 /* */ 

^include "typedef.li" 

^include "const. h" 

25 

^include "main.h" 
^include "mcutil.h" 
^include "gputil.h" 
^include "extvar.h" 

30 

^include "Iib_ini.h H 

include "libjoch" 

include "Iib_q1sf.h M 
35 #include "lib^geq.h" 

include "lib_vad.h" 

^include H lib_ppr.h" 

include "lib_cla.h" 

^include "lib_snr.h" 
40 ^include "lib_pwfh M 
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^include "lib pit.Ii" 

include "lib_llp.li" 
^include M lib_smo.h M 
^include M iib_prc.h M 
5 ^include "lib_bit.h" 
^include M lib_j>pp.h" 
#include M lib fcs.h" 


/* 1 */ 

10 /* FUNCTIONS */ 

/* */ 

/♦=™ == =_==™=™=====™^ 

/♦FUNCTION : INI_allocate_memory O- */ 

15 /* */ 

/* PURPOSE : This function performs memory allocation. */ 

/* */ 

/* INPUT ARGUMENTS : */ 
/* _ None. */ 

20 /* */ 

/* OUTPUT ARGUMENTS : */ 
/* _ None. */ 

/* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 

25 /* __None. */ 

/* */ 

/* RETURN ARGUMENTS : */ 
/* _ None. */ 

30 

void INI_allocate_memory ( void ) 
{ 

/* */ 

/* Memory Allocation for Time-Domain Pre Filtering */ 
35 /* */ 

pre_flt_nuni = dvector (0, PPRFLTORDER-l); 
pre_fll_dcn = dvector (0, PPR_FLT_ORDER- 1 ) ; 
pre_fll_buf_z = dvector (0, PPR_FLT_ORDER- 1 ); 
40 pre_flt J>uf_p = dvector (0, PPRFLTORDER- 1 ); 
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Ip_flt_mim = dveclor (0, LP_FLT_ORDER-l); 
lp_flt_buf = dvcctor (0, LP_FLT_ORDER- 1 ); 

5 /♦ V 

/* Memory Allocation for Silence Enhancement */ 
/♦_ V 

zeroed = svector (0, SE_MEM_SIZE-l); , 

10 zero_rate = dvector (0, SE_MEM_SIZE-1); 

low_rate = dvector (0, SE_MEM_SIZE- 1); 

high_rate = dvector (0, SE_MEM_SIZE- 1); 

low_neg = dvector (0, 1); 

15 lowjos = dvector (0, 1); 


20 


-*/ 


/* Memory Allocation for Tilt compansation Post Filtering */ 
/* i */ 

tc_bufT_exc = dvector (0, L_LPC-1); 


/* ♦/ 

25 /* Memory Allocation for Time-Domain Post Filtering */ 
/♦ */ 

bufT_LTpost = dvector (0, MAX_LAG+L_SF-1); 
PF_mem_syn = dvector (0, NP-1); 

30 

/♦ */ 

/* Memory Allocation for Time-Domain Post Filtering */ 
/♦ _*/ 

35 pst Jll_num = dvector (0, PPR_FLT_ORDER- 1 ); 

psljlt_den = dvector (0, PPRFLTORD ER- 1 ) ; 
pst_fltjnif_z = dvector (0, PPRFLTORDER- 1 ); 
pst_flt_buf_p = dvector (0, PPR FLT ORDER- 1 ); 

40 /* */ 
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/* Memory Allocation for Linear Prediction Analysis 
/* */ 

siglpc = dvector (0, L_LPC-l); 

5 

Ult_window = dvector (0, L_LPC-1); 
lpc_window = dvector (0, L_LPC-1); 
Ipc_windowl = dvector (0, LLPC-1); 
lpc_\vindow2 = dvector (0, L_LPC-I); 
10 bwe Jactor = dvector (0, NP); 

rxx = dvector (0, NP); 

refl = dmatrix (0, N_SF_MAX, 0, NP-1); 

lsf_ne\v = dvector (0, NP-1); 

15 lsf_old = dvector (0, NP-1); 

lsf_mid = dvector (0, NP-1); 


lntLSF_C = dvector (0, N_SF4-1); 

20 pdcf = dmatrix (0, N_SF_MAX, 0, NP-1) 

pdcfq = dmatrix (0, NJSF_MAX, 0, NP-1) 

pdcfq_dec = dmatrix (0, N SF MAX, 0, NP-1) 


25 


/*- 

/* 

/*- 


-*/ 


Memory Allocation for the LSF quantization 


30 


lsf_cb_08k = d3tensor(0, MAXLTT_08k-l, 0,LMSMAX_08k-l, 0, MAXLNp -1) 
lsfcb_40k = d3tensor(0, MAXLTT_40k-I, 0,LMSMAX_40k-l, 0, MAXLNp -1) 
isfcb_85k = d3tcnsor(0, MAXLTT_85k-l, 0 t LMSMAX_85k-l, 0, MAXLNp -1) 


stage_cand_08k = svedor(0, 2); 
stage_cand_40k = sveclor(0, 3); 
stage_cand_85k = svcctor(0, 3); 


MS_08k = svector (0, LTT_08k-l); 
MS_40k = svector (0, LTT_40k-l); 
MS_85k = svector (0, LTT_85k-l); 
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qcs = dmatrix (0, LQMA_40k-l, 0, NP-1); 
qes_dec = dmatrix (0, LQMA_40k-l, 0, NP-1); 

last_qlsf = dvcctor (0, NP-1); 
5 lsfq_old = dvcctor (0, NP-1); 

lsfq_old_dcc = dvector (0, NP-1); 
Mean = dvector (0, NP-1); 

lsfq_mem_dec = dvector (0, NP-1); 
10 lsfq_mem_enc = dvector (0, NP-1); 

/* Memory Allocation for Perceptual Weighting */ 

15 

wspeech = dvector (0, L_OLPIT-l); 

\vspccch_mem = dvcctor (0, NP-1); 
wpdcf_pole = dmatrix (0, N_SF_MAX, 0, NP-1); 
\vpdcf_zero = dmatrix (0, N_SF_MAX, 0, NP-1); 
20 tmp_ws_m - dvector (0, NP-1); 

ModiSig_in = dvector (0, NP- 1 ); 

/* */ 

/* Memor>' Allocation for Impulse Response of the synthesis filter */ 
25 /* */ 

/* */ 

/* Memory Allocation for Signal Classification */ 

30 

frameclassmcm = svector (0, CLA MEM SIZE-1); 
onstplsvmem = sveclor (0, CLA_MEM_SIZE-1); 
voiced_mem = svector (0, CLA_MEM_SIZE- 1); 

35 buffer_cla = dvcctor (0, L_FRM+MEM_CL AS S+L_LPCLHD- 1 ); 

Lp_bufler = dvector (0, N__Lp-l); 

windowl = dvector (0, LPC_WIN1-1); 

40 P w = dmatrix (0, 1, 0, SLOPE_MAX_SIZE-l); 
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bufler_rcflO = dvector (0, CLA_MEM_SIZE-1); 


buflcr_wtilt = dvector (0, MAX_N_SF- 1 ); 
5 bufTcr_winax = dvector (0, MAX_N_SF- 1 ); 

bufTcr_vvRp = dvector (0, MAX_N_SF- 1 ); 
burTcr_max_cla = dvector (0, MAX_N_SF-1); 


/* */ 

10 /* Memory Allocation for Voice Activity Detection 
/* V 


15 


lag_buf = s\'ector (0, LTP_BUFF_SIZE-1); 
pgain_buf = dvector (0, LTP_BUFF_SIZE- 1 ) ; 


flag_vad_mein = svector (0, FLAG_VAD_MEM_SIZE- 1); 
vad_lsf_mem = dmatrix (0, VAD_MEM_S1ZE-1, 0, NP-1); 
min_cnergy_mem = dvector (0, VAD_MIN_MEM_SIZE- 1 ); 

20 meanjsf = dvector (0, NP-1); 

nonn_mcan_lsf = dvector (0, NP- 1 ); 

prev_cml_lsf_difr= dvector (0, VAD_MEM_SIZE-1); 
prev_cnergy = dvector (0, VAD_MEM_SIZE-1); 

25 


30 


/* */ 

/* Memory Allocation for Smoothing parameters estimation 
/* . */ 

isf smooth = dvector (0, NP-1); 


N_sub = svector (0, N_SF_MAX- 1 ); 
lsf_old_smo = dvector (0, NP-1); t 
35 majsf = dvector (0, NP-1); 

dSP_buf = dvector (0, DSP_BUFF_SLZE-1);; 


buffer_smo = dvector (0, HI_LAG2+L_SF-1); 
bufTcr_sum_smo = dvector (0, S MO_B UFFS IZE - 1 ) ; 
40 bufTer_max_smo = dvector (0, SMO_BUFF_SIZE- 1 ); 
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/♦ */ 

/* Memory Allocation for Open Loop Pitch Detection */ 
/♦ */ 

5 

oljag = svcctor(0, N_SF_MAX); 
lag = svector(0, N_SF_MAX); 
Rp_sub = dvector(0, N_SF_MAX-1); 


10 SincWindows = dvector (0, LENSINCTAB- 1 ); 

PlTmaxO = svector (0, NUM_MAX_SRCH-1); 
RinaxO = dvector (0, NUM_MAX_SRCH- 1 ); 

15 pitch JMnein = dvector (0, PIT_F_MEM-1); 

PitLagTabSb = dvector (0, LEN_PITCH_TAB_5B1T-1) 
PitLagTab7b = dvector (0, LEN_PITCH_TAB_7B1T-1): 
PitLagTab8b = dvector (0, LEN_PITCH_TAB_8B1T-1) 

20 


/♦ */ 

/* Memory Allocation for Open Pilcli Pre-processing */ 
/* */ 


25 


SincWindows_PP = dvector (0, LEN_SINCJTAB_PP-1); 


targ_mem = dvector (0, MAX_LAG-1); 


30 /* */ 

/* Memory Allocation for Closed Loop Pitch Detection 
/* */ 


SincWindo\vs_E = dvector (0, LEN_SINC_T AB_E- 1 ); 

35 

NewTg = dvector (0, LJFRM+NP-1); 

lag_f = dvector (0, N SF MAX-l); 

ext = dvector (0, MAX_LAG+L_SF-1); 

40 /* */ 
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/* Memory Allocation for Short Term Algebraic Analysis */ 


Maxldx = svector (0. MAXPN-1); 

p_track_2_5_0 = smatrix(0, 2-1, 0, 32-1); 
p_track_2_7_l = smatrix(0, 2-1, 0, 80-1); 

p_track_3_2_80 = s3tensor(0, 16-1, 0, 3-1, 0, 4-1); 
p_track_3_2_54 = s3tensor(0, 16-1, 0, 3-1, 0, 4-1); 

p_track_5_4_0 = smatrix(0, 5-1, 0, 16-1); 
p_track_5_3_l = smairix(0, 5-1,0, 8-1); 
p track_5_3_2 = smatrix(0, 5-1,0, 8-1); 

p_track_8_4_0 = smatrix(0, 8-1, 0, 16-1); 

PHI = dmatrix (0, L_SF-1 , 0, L_SF-1); 

unfcod = dmalrix (0, 1, 0, L_SF-1); 
fcod = dmalrix (0, 1, 0, L_SF-1); 

qua_unfcod = dmatrix (0, 1, 0, L_FRM-1); 
qua_fcod = dmatrix (0, 1, 0, L_FRM-1); 

unfcod_dcc = dmatrix (0, 1, 0, L_SF-1); 

wsp_m = dvccior (0, L_WSP-I); 


hhjif = dvector (0, L_HF-1); 

/♦ */ 

/* Memory Allocation for Gain Vector Quantisation */ 
/* */ 

qua__gainQ = dmatrix (0, 1, 0, N_SF_MAX-1); 

past_energyq_2d = dvector (0, GVQ_VEC_SIZE_2D-1); 
past_cncrgyq_3d = dvector (0, GVQ_VEC_SIZE_3D-1); 
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past_energyq_4d = dvector (0, GVQ_VEC__S1ZE_4D-1); 

gp_buf = dvector (0, GP_BUF_SLZE-I); 

5 pred_encrgy_d38 = dvector (0, GVQ_VEC_SIZE_3D-1); 

pred_cncrgy_d410 = dvector (0, GVQ_VEC_SIZE_4D-1); 


Prev_Beta_Pitch = dvector (0, BETAJBUF_SIZE-1); 

10 

energy _pred_coefT_ 1 
cncrgy_pred_coefi"_2 
energy_prcd_coefF_3 

15 

cnergy_prcd_coerT4d_l = dvector (0, GVQ_VEC_SIZE_4D-1); 
energy _prcd_coeff4d_2 = dvector (0, GVQ_VEC_SLZE_4D- 1 ); 
energy_pred_coefT4d_3 = dvector (0 % GVQ_VEC_SIZE_4D-1); 
energy_pred_cocfT4d_4 = dvector (0, GVQ_VEC_SIZE_4D-1); 

20 

gain_cb__2_128 = dmatrix (0,MSMAX_2_ 128-1, 0, GVQ_VEC_SIZE_2D-1); 
gain_cb_2_128_8_5 = dmatrix (0,MSMAX_2_128-1, 0, GVQ_VEC_SLZE_2D-1); 


= dvector (0, GVQ_VEC_SIZE_3D-1); 
= dvector (0, GVQ_VEC_SIZE_3D-1); 
= dvector (0, GVQ_VEC_SIZE_3D-1); 


25 /* */ 

/* Memory Deallocation for bit stream */ 

bitnoO = svector(0, 3-1); 
30 bitnol = svccior(0, 3-1); 


/* */ 

/* Memory Deallocation for Frame Erasure Concealcnement */ 
35 /* */ 

cnrg_bufT = dvector(0, ERNG_MEM_SIZE-1); 
ext_dcc_mem = dvector (0, MAX_LAG+L_SF-1); 


40 
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/* Memory Allocation for Speech Synthesis 
/+ 


10 


synth_mem = dvector (0, NP-1); 

synth_mcm_dec = dvcclor (0, NP-1); 
dif_mem = dvector (0, L_SF+NP-1); 

target_mcm = dvector (0, NP-l); 

quasynthmcm = dvector (0, NP-1); 
qua_dif_mcm = dvector (0, L_SF+NP- 1 ); 
quatargetmem = dvector (0, NP-1); 


qua_ext= dvcclor (0, MAX_LAG+L_SF-1); 
sigsyn_dcc = dvector (0, L_SF+NP-1); 


15 


cxt_dec = dvector (0, MAX_LAG+L_SF-1); 


/*- 


-*/ 


20 


return; 


25 /*- 


-*/ 


/* FUNCTION : INl_dcaIlocate_memory 0 */ 

/* */ 

30 /* PURPOSE : This function performs memory deallocation. */ 
/* ♦/ 

/* INPUT ARGUMENTS : */ 
/* _Nonc. V 

/* V 

35 /* OUTPUT ARGUMENTS : */ 
/* _ None. V 
/* ♦/ 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ None. */ 
40 /♦ */ 
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/* RETURN ARGUMENTS : V 
/* _ None. */ 

/*==============^=========^ 

5 void INl_dealIocate_niemory ( void ) 

{ ^ 

/* Memory Deallocation for Time-Domain Pre Filtering */ 
/* +/ 


10 


15 


free_dvector (pre_flt_mim, 0, PPRFLTORDER- 1 ); 
free_d vector (pre_flt_den, 0, PPR FLT ORDER- 1 ); 
frec dvector (prc_flt_buf_z ) 0, PPR_FLT ORDER- 1 ) ; 
frcc_dvector (prcjlt_buf_p, 0, PPR_FLT_ORDER- 1 ); 

free_dvcctor (lp_flt_num, 0, LP FLT ORDER- 1 ); 
free_dvector (lp_fltj>uf, 0, LP FLT ORDER- 1 ); 


/* */ 

20 /* Memory Deallocation for Time-Domain Silence Enhancement */ 
/* */ 

frcc_sveclor (zeroed, 0, SE_MEM_SIZE-1); 
free_dvcclor (zero_ratc, 0, SE_MEM_SIZE-1); 
25 free_dvcc(or (lo\v_rate, 0, SE_MEM_SIZE-1); 

frcc_dvector (high_rate, 0, SE_MEM_SIZE-1); 

f ree_d vector (low neg, 0, 1); 
frec_d vector (low_pos, 0, 1); 

30 

/* Memory Deallocation for Tilt coinpansation Post Filtering */ 
3 5 free_d vector (tc_biuT_cxc, 0, L LPC- 1 ); 


/* Memory Deallocation for Time-Domain Post Filtering */ 
/* */ 


40 
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free_dvector (buff_LTpost, 0, MAX_LAG+L_SF-1); 
free_dvector (PF_mcm_syn, Q, NP-1); 

/* ♦/ 

5 /* Memory Deallocation for Time-Domain Post Filtering 
/* */ 

frec_dvector (pst_flt_num, 0, PPRFLTORDER- 1 ); 
frce_dveclor (pst_flt_dcn, 0, PPR_FLT_ORDER- 1 ); 
1 0 free_dvcctor (pst Jlt_buf_z, 0, PPR_FLT_ORDER- 1 ); 

free_dvector (pstJUJbufj), 0, PPR_FLT_ORDER-l); 


*_ 


/* Memory Deallocation for Linear Prediction Analysis 
15 /* */ 

frcc_dvcctor (siglpc, 0, LJLPC-1); 

free_dvector (tilt_window, 0, L_LPC-1); 
frec_dvcctor (lpc_window f 0, L_LPC-1); 

20 frcc_dvector(lpc_windowl, 0, L_LPC-l); 

freed vector (lpc_window2, 0, LJLPC-I); 
free_dvector (bwe_faclor, 0, NP); 

frce_dvector (rxx, 0, NP); 
25 free_dmatrix (refl, 0, N_SF_MAX, 0 T NP-1); 

free_dvector (I sf_ncw, 0, NP- 1 ) ; 
free_dvector (lsf_old, 0 t NP-i); 
free_dvector (lsf_mid, 0, NP-1); 

30 frce_dvector (lntLSF_C, 0, N_SF4- 1); 

free_dmatrix (pdcf ? 0, N_SF_MAX, 0, NP-1); 
free_dmatrix (pdcfq, 0, N_SF_MAX, 0, NP-1); 
free_dmatrix (pdcfq_dcc, 0, N_SF_MAX, 0, NP-1); 

35 

/* */ 

/* Memory Allocation for the LSF quantization 
/* */ 

40 
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frec__d3tensor (lsf_cb_08k, 0, MAXLTT_08k-l, 0,LMSMAX_08k-l, 

0, MAXLNp-1); 

frec_d3tcnsor (lsf_cb_40k, 0, MAXLTT_40k-l, 0,LMSMAX_40k-l, 

0, MAXLNp-1); 

5 frec^d3tensor (lsf_cb_85k, 0, MAXLTT_85k-l, 0,LMSMAX_85k-l, 

0, MAXLNp -1); 

frcc_svector (stage_cand_08k, 0, 2); 
frce svector (stage_cand_40k, 0, 3); 
10 free_svector (stagc_cand_85k, 0, 3); 

free_svector (MS_08k, 0, LTT_08k-l) 
freesveclor (MS_40k, 0, LTT_40k-l) 
frcc_svcctor (MS_85k, 0, LTT_85k-l) 
15 

free_dma(rix (qes, 0, LQMA_40k-1 , 0, NP- 1 ); 

frcc_dmatrix (qes_dec, 0, LQMA_40k-l, 0, NP-1); 

frce_dvector (last_qlsf, 0, NP-1); 
20 free_dvector (lsfq_old, 0, NP-1); 

freedvector (lsfq_old_dec, 0, NP-1); 
freed vector (Mean, 0, NP-1); 

frce_dvector (lsfq_mcm_dec, 0, NP-1); 
25 free_dvector (lsfq_mem_enc, 0, NP-1); 

/* */ 

/* Memory Deallocation for Perceptual Weighting */ 

30 

free_dvector (wspeech, 0, LJDLPIT-1); 

frec_dvcctor (\vspeecli_mein, 0, NP-1); 
frce_dmatrix (\vpdcf_polc, 0, NSFMAX, 0, NP-1); 
free_dmafrix (\vpdcf_zero, 0, N_SF_MAX, 0, NP-1); 
35 freed vector (tmp_ws_m, 0, NP-1); 

free dvector (ModiSig__m, 0, NP-1); 

/* */ 

/* Memor>' Deallocation for Impulse Response of the synthesis filter */ 
40 /* */ 
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/* V 

/* Memory Deallocation for Signal Classification */ 
/♦ */ 

5 

free_svector (frame_class_mcm, 0, CLAJvlEMSLZE-1); 

free_svcctor (ons(plsv_mem, 0, CLAMEMSLZE- 1 ) ; 

free svector (voicedmem, 0, CL A_MEM_S IZE- 1 ) ; 

10 free_dvcctor (bufifer_cla, 0, L_FRM+MEM_CL ASS+L_LPCLHD- 1); 

free_dvector (LpbulTer, 0, N_Lp-l); 

frec_dvcctor (window!, 0, LPC_WIN1-1); 

1 5 free_dmalrix (P_w, 0, 1 , 0, SLOPE_MAX_SIZE- 1 ); 

frce_d vector (buflerjcflO, 0, CLA_MEM_SIZE-1); 

free_dvector (bufrer_wti!t, 0, MAX_NJSF-1); 
20 free_dvcctor (bufler_\\niax f 0, MAX_N_SF- 1 ); 

free__dvcctor (buffcr wRp, 0, MAX_N_SF-1); 

frcc_dvector (bulfer_max_cla, 0, MAX_N_SF- 1 ); 

/* */ 

25 /* Memory Deallocation for Voice Activity Detection */ 
/* */ 

free_svector (lag_buf, 0, LTP_BUFF_SIZE-1); 
frce_dvector (pgainjmf, 0, LTP BUFF SIZE- 1); 

30 

frce_sveclor (flag_vad_mem, 0, FLAGJVADMEMSIZE- 1 ); 
frccdmatrix (vadjsf_mem, 0, VAD_MEM_SIZE- 1 , 0, NP- 1); 

free_dvector (min_energy_mem, 0, VAD_MIN_MEM_SIZE-1); 
frcc dvcctor (meanlsf, 0, NP-1); 

35 frec dvector (nonn_mean_lsf, 0, NP-1); 

frec_dvector (prev_cmljsf_diff, 0, VAD MEM SIZE- 1 ) ; 

frcc dvcctor (prev_cnergy, 0, VADJvDEM SIZE- 1 ) ; 

40 /* */ 
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/* Memory Deallocation for Smoothing parameters estimation */ 
frec_dvector (lsf_smooth, 0, NP-1); 

5 

free_sveclor (N_sub, 0, N_SF_MAX-1); 
free_dvcctor (Isf_old_smo, 0, NP-1); 
frec_dvcctor (majsf, 0, NP-1); 
free_dvector (dSP_buf t 0, DSP_BUFF_S1ZE-1);; 

10 

free_dvcctor (buffer_smo, 0, M_L AG2+L_SF- 1 ); 
freedvector (burTer_sum_smo t 0, SMO_BUFF_SLZE-l); 
free_dvcctor (buflcr max smo, 0, SMO_BUFF_SIZE-l); 

/* Memory Deallocation for Open Loop Pitch Detection */ 

free_svector (ol Jag, 0, N_SF_MAX); 
20 free^svector (lag, 0, N_SF_MAX); 

frec_dvector (Rpsub, 0, N_SF_MAX-1); 


25 


30 


free_dvcctor (SincWindows, 0, LEN_SINC_TAB-1); 

free_svcctor (PITmaxO, 0, NUM_MAX_SRCH- 1 ); 
f rce_dvector (RinaxO, 0, NUM_MAX_SRCH- 1 ); 

frce_dvector (piich_f_mem, 0, PIT F MEM-l); 

free_dvector (PitLagTabSb, 0, LEN_PITCH_TAB_5BIT-1) 

freedvector (PitLagTab7b, 0, LEN_P1TCH_TAB_7BIT-1 ) 

free_dvector (PitLagTab8b, 0, LEN_PITCH_TAB_8BIT- 1 ) 


35 /*- 


/* Memory Deallocation for Open Pitch Pre-processing */ 
free_dvector (SincWindows_PP, 0, LEN_SrNC_TAB_PP-l); 


40 
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free_dvec(or (targ_mem, 0, MAX_LAG-1); 


/* Memory Deallocation for Closed Loop Pitch Detection */ 


free_dvcctor (SincWindows_E, 0, LEN_S1NC_TAB_E-1); 

frcc_dvector (NewTg, 0, L FRM+NP-l ); 
10 frce_dvector (lag_f, 0, N_SF_MAX-1); 

frec__dvcctor (ext. 0, MAX_L AG+L_SF- 1 ) ; 


/*- 


/* Memory Allocation for Residual and target signal buffer */ 
15 /* . */ 


20 


25 


35 


/* */ 

/* Memory Deallocation for Short Term Algebraic Analysis */ 

frcc_svector (Mavldx, 0, MAXPN-1); 

free dmatrix (PHI, 0, L_SF-1, 0, L_SF-1), 


free_smatrix(pjrack_2_5_p, 0, 2-1, 0, 32-1); 
frec_sina(rix(pjrack_2J7_l, 0, 2-1, 0, 80-1); 

free_s3tensor(p_track_3_2_80, 0, 16-1, 0, 3-1, 0, 4-1); 
30 free_s3lensor(p_track_3_2_54, 0, 16-1, 0, 3-1, 0, 4-1); 

fTee_smatrix(pjrack_5_4_0, 0, 5-1, 0, 16-1); 
free_smatrix(pjrack_5_3_i. 0, 5-1, 0, 8-1); 
frec_smatrix(p_track_5_3_2, 0, 5-1, 0, 8-1); 


free_smatrix(p_track_8_4J), 0, 8-1, 0, 16-1); 

frce_dmatrix (unfcod, 0, 1, 0, L_SF-1); 
free dmatrix (fcod, 0, 1, 0, L_SF-1); 


40 
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free_dmalrix (qua_unfcod, 0, 1,0, L_FRM-1); 

free_dmatrix (qua_fcod, 0, 1,0, L_FRM-1); 

5 free_dmatrix (unfcod dec, 0, 1,0, L_SF-1); 

free_dvccior (wsp_m, 0, L WSP-l); 
free_dvcctor (hh_hf, 0, L_HF-1); 

10 

/* */ 

/* Memory Deallocation for Gain Vector Quantisation */ 

15 free_dmatrix (qua__gainQ, 0, 1, 0, N_SF_MAX-1); 

frce_dvector (past_energyq_2d, 0, GVQ_VEC_SIZE_2D-1); 
free_dvector (past_energyq_3d, 0, GVQ_VEC_SIZE_3D-1); 
free_dvector (past_encrgyq_4d, 0, GVQ_VEC_SIZE_4D-1); 

20 

free_dvector (gp.buf, 0, GP_BUF_SIZE-1); 

free_dvector (pred_energy_d38, 0, GVQ_VEC_SIZE_3D-1); 
free_dvector (prcd_cnergy_d4I0, 0, G VQ_ VEC_SIZE 4D- 1 ) ; 

25 

frce_dvector (Prev_Beta_Pitch,0, BETA_BUF_S1ZE-1); 

frec dvector (energy_pred_coeff_l, 0, GVQ_VEC_SIZE 3D-1); 
30 frec_dveclor (energy jred_coeff_2, 0, GVQ_VEC_SIZE_3D-1); 

free_dvector (energy jrcd_coc£T_3, 0, G VQ_ VEC_S IZE_3 D - 1 ) ; 

free_dvector (cnergy_pred__coeff4d_ 1 , 0, GVQ_VEC_SIZE_4D-l); 
35 . free_dveclor (cnergy_pred__coefT4d_2, 0, GVQ_VEC_SIZE_4D-1); 

free_d vector (energy_pred_coetT4d_3, 0, GVQ_VEC_SLZE_4D-1); 
free_dvector (energy _prcd_coeff4d_4, 0, GVQ_VEC_SIZE_4D-1); 

frce.dmatrix (gain_cb_2_128, 0,MSMAX_2_128-1, 0, GVQ_VEC_SIZE_2D-1); 
40 free_dmatrix (gain_cb_2_128_8_5,0,MSMAX_2_ 128-1, 0, GVQ_VEC_SIZE_2D-1); 
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/*- 

/* 

/*- 


Memory Deallocation for bit stream 


frec_svector(bitnoO, 0, 3-1); 
free_svector(biLnol, 0, 3-1); 


10 


-*/ 


/* Memory Deallocation for Frame Erasure Conccalenemcnt 
/* */ 


15 


free_dvector (enrg_bufT, 0, ERNGMEMSIZE- 1 ); 
free_dvcctor (ext_dec_mcm, 0, MAX_LAG+L_SF-1); 


/* Memory Deallocation for Speech Synthesis 


-*/ 


-*/ 


20 


25 


frcc dvcctor (synthmem, 0, NP-1); 

free_dvector (synth_mem_dec, 0, NP-1); 
free_dvector (difjnem, 0, LJ5F+NP-1 ); 

frec_d vector (target_mem, 0, NP-1); 

free_d vector (qua_synth_mem, 0, NP-1); 
free_dvector (qua_dif_mcm, 0, L_SF+NP-1); 

frec dvector (qua_target_mem, 0, NP-1); 


30 


free_dvector (qua^ext, 0, M AX_L AG+L_SF-1 ); 
frcc_dvector (sigsyn_dec, 0, L_SF+NP-1); 


free_dvecior (ext_dec, 


0, MAX_LAG+L_SF-1); 


35 


return; 


40 
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/*- 


-*/ 


/* FUNCTION : INI_paramcters_setup 0- *' 

5 /* */ 

/* PURPOSE : Perfonns the encoder parameter initialisation. 

/♦ */ 

/* INPUT ARGUMENTS : */ 
/* _ (INT32 ) argc: number of input parameters. */ 
10 /* _ (char *[]) argv: pointer to the input parameters. */ 
/* ♦/ 


*/ 


/* 
15 /* 
/* 
/* 

/*■ 


/* OUTPUT ARGUMENTS : 

/* _(FILE**) fp_spccch_in: input speech file. 
_(FILE**) fp Jetstream: input speech file. 
_ (FILE **) fp_mode: input speech file. 
_ (FILE **) fp_signaling: input speech file. 
_ (INT16 **) smv_mode: SMV mode. 


*/ 
*/ 
*/ 
*/ 
V 


*i 


I* INPUT/OUTPUT ARGUMENTS : 
20 /* _None. 

/* 


*/ 


/* RETURN ARGUMENTS : 
/* _ None. 

/*=========—===== 


*/ 


25 


=*/ 


30 


void INI_parameters_sctup (INT32 argc, char *argv [], FILE **fp_speech_in, 
FILE **fp Jetstream, FILE **fp_mode, FILE **fp_signaling, 
INT 16 *smv_modc) 
{ 

/* */ 


INT16 i, non switch cnt; 


35 


/*- 

/* 

/*- 


Initialisation 


-*/ 


*/ 


-*/ 


40 


*fp speech in = NULL; 
*fp_bitstrcam = NULL; 
*fp_mode = NULL; 
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*fp_signaling = NULL; 

/* */ 

5 if(argc < 5) 

, { 

printf ("Usage: %s -m M |-f modc_file] [-s signaling_filel 
argv[0]); 

printf ( M input_speech_filc output_bitstrcam_file\n M ); 
10 exit(l); 

} 

else 

{ 

i« i; 

15 (*smv_mode) = 0; 

non_switch_cnl = 0; 
while (i < argc) 
{ 

if(argv[i][0] != '-') 
20 { 

if (non_s\vitch_cnt > 2) 

nrcrror("Usagc: smv_enc -m M [-f modefile] 
(-s signaling_file] inpul_speech_file 
output_biisircam_file\n #f ); 

25 

if (non_switch_cnt == 0) 
{ 

*fp_spcech_in = file_open_rb (argv[i]); 
printf( H Inpuc speech file : %s\n w , argv[ij); 
30 non switch_cnt++; 


} 


else 


{ 

♦fp bitstream « file_open_wb (argvji]); 
35 printf("Output bitstream file : %s\iT, argv[i]); 

non_switch_ciU++; 
} 


i++; 
} 


40 else 
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2)) 


10 and 


(♦smvmodc)); 


15 


20 


25 


{ 

swilch(argv[i][I]) 
{ 

case 'm': 


break; 


cascT: 


break; 


case V: i++; 


(♦smvmodc) = atoi(argv[iJ); 

if (((*smv_mode) < 0) || ((*smv_mode) > 

{ 

printf("SMV mode = %hd (0, 1, 


2 allowed)\n M 


exit(O); 
} 


♦fp modc = fopen(argvli], V); 
printf("Modc control file : %s\n", argv[i]); 
i++; 


*fp_signaling = file_opcn_rb (argv[ij); 
printf( M Signaling file : %s\n'\ argv[i]); 
i++; 


break; 


30 


output_bitstream_file\n"); 


35 


default: printf ("Usage: %s -m M [-f modc_flle] [-s signal ing_file] 

argv[0]); 

printf (" input_speech_file 


exit(I); 


break; 


40 
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return; 

/* 

} 


10 /*=====-================================= 

/* FUNCTION : INI_init_decoder 0 *' 
/* 


-*/ 


/* PURPOSE : Performs the encoder initialisation. */ 


15 /* ALGORITHM : */ 


-*/ 


/♦ 

/* INPUT ARGUMENTS : */ 
/* _ None. */ 
/* 


20 /* OUTPUT ARGUMENTS : * ! 
/* _ None. */ 


/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ None. */ 


25 / 


/* RETURN ARGUMENTS : */ 
/* _ None. */ 


30 void INI_init_encoder(void) 
{ 

/* 


fixralc = RATE85K; 

35 

/* 


BITJnitJib (); 
40 PPR_silcncc_enhan init (); 
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PPRJiItersJnit 0; 
VAD Jnit Jib (); 
CLAJnit Jib (); 
PPPJniiJib 0; 
5 PIT Jnit Jib (); 

GEQJnit Jib 0; 
LPCJnit Jib (); 
PWFJrutJib 0; 
SMOJnilJib 0; 
10 LSF_Q_initJib 0; 

SNRJnitJibO; 
FCSJnitJib 0; 
LTPJnitJib (); 
PRC Jnit Jib 0; 

15 

/*. */ 

return; 


20 /* */ 

} 

/* _ */ 

25 /*================================ ra 

/♦FUNCTION : INI inil decoder 0* */ 
/* v 

/* PURPOSE : Performs the decoder initialisation. */ 
/* ♦/ 

30 /* ALGORITHM : V 
/* _ */ 

/* INPUT ARGUMENTS : */ 

/* _ None. ♦/ 

/* */ 

35 /* OUTPUT ARGUMENTS : */ 
/* _ None. */ 

/* *, 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ None. */ 

40 /* */ 
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/* RETURN ARGUMENTS : 

/* _ None. */ 


5 void INIJnit_dccodcr(void) 


fix_rate_mem = RATE85K; 
10 past J>fi = 0; 

ppast_bfi = 0; 

bfi_caution = 0; 
nbfi_count = MAX_BFI_COUNT; 

N_bfi =0; 
15 bfh_oh = 0; 


BIT_initJib (); 
20 GEQJnit Jib (); 

PPRJillersJnit (); 

LPC Jnk Jib (); 

LSF__Q_init Jib (); 

CLAJnit Jib (); 
25 FCS Jnit Jib (); 

LTPJnit Jib 0; 


/* */ 

30 return; 

,* */ 

35 /* */ 

/* END */ 
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/*-=================—================================== 

/* Conexant System Inc. */ 
5 /* 4311 Jamboree Road ♦/ 
/* Newport Beach, CA 92660 */ 

/* */ 

/* Copyright (C) 2000 Conexant System Inc. */ 
/* * */ 

10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means of used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

/*===================-================================ 

15 /* PROTOTYPE FILE : libjni.h */ 

/* */ 

/* FUNCTIONS */ 

20 /* */ 

void INIallocatcmemory (void); 
void INI deal locate inemory (void); 

25 void INI_parametcrs_setup (INT32, char *[J, FILE **, FILE **, FILE **. 

FILE **, INT16 *); 

void INI_init_encodcr (void); 
void INI_init_dccoder (void); 

30 

/* END */ 

35 
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/* Conexant System Inc. 
5 /* 43 1 1 Jamboree Road 
/♦ Newport Beach, CA 92660 
/* 


♦/ 
*/ 


/* Copyright(C) 2000 Conexant System Inc. 
/* 


-*/ 


*/ 


10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

/* == ========================-======== s ========= =:= == ======= 


15 /* LIBRARY: libjo.c 


*/ 


/*- 
/*- 
20 /*- 


INCLUDE - 


-*/ 


^include "typedef.h" 

^include "main.h" 
25 ^include "const.h" 

^include "mcutil.h" 

include "libjo.h" 
30 include "lib swb.h" 


/*- 
/*- 
/*- 


35 


/* FUNCTION 
/* 


FUNCTIONS 


IO 


-v 


-*/ 


-*/ 


/* PURPOSE : This function reads one block from the input */ 
40 /♦ file. */ 
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/* rNPUT ARGUMENTS : */ 
/* _ (FILE *) file_x: input file. */ 

/* _(INT32) N: number of samples lo be */ 

5 /* extracted. */ 

/♦ - */ 

/* OUTPUT ARGUMENTS : */ 
/* _ (FLOAT64 []) x: extracted frame. */ 

/* _ (INT 16 []) s_x: extrac. frame short format. */ 

10 /* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ None. */ 

/* RETURN ARGUMENTS : */ 
15 /* _None. */ 

/*==:=====:============:=== s ===:======^^ 

INT32 IO_readsampIes (FILE *file_x, INT16 s_x[], FLOAT64 x [], INT32 N) 
{ 

INT32 rdsamp, i, r val; 


/*- 


25 


rd_samp = fread(s_x, sizeof(INT16), N, file_x); 


30 if (rd_samp > 0) 

{ 

for(i = 0; i < N; i-M-) 
{ 

35 #ifdef B YTE_S W AP_INPUT 

s_x(ij = b>lc_swap_intl6(s_xli]); 

tfendif 

40 x [i] = (FLOAT64) s_x[ij; 
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} 

rval = rd_samp; 

} 

5 else 

r_val= 0; 

/* . */ 

10 return r_val; 

/* */ 

} 

15 /* */ 

/♦FUNCTION : IO_wrilcsamples (). */ 
/* */ 

20 /* PURPOSE : This function write one block into the output */ 
/* file. */ 

/* */ 

/* INPUT ARGUMENTS : */ 
/* _ (FILE *) file_y: output file. */ 

25/* (INT32) N: number of samples to write. */ 
/* _ (FLOAT64 []) y: output frame. */ 
/* */ 

/* OUTPUT ARGUMENTS : */ 
/* _ (INT16 Q) s_y: output frame short format. */ 

30 /* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ None. */ 

/♦ */ 

/* RETURN ARGUMENTS : */ 

35 /* _None. */ 

INT32 IO_writesamples (FILE *file - y, FLOAT64 y f], INT 16 s_y[], INT32 N) 
{ 

40 /* */ 
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INT32 i, \vt_samp; 
FLOAT64 imp; 


for (i = 0; i < N; i++) 
{ 

tmp = y(i]; 


10 


15 


if(tinp >= 0.0) 

tmp += 0.5; 

else 

tmp-= 0.5; 

if(lmp > 32767.0) 

tmp = 32767.0; 


if(tmp < -32768.) 
20 imp- -32768.; 

if((INTI6)tmp <0.0) 

s_y(ij " (lNT16)tmp + 2; 

else 

25 s_y[ij = (INT16)lmp; 

#ifdef B YTE_SWAP_OUTPUT 

S _V [ ' 1 = byte_swap_i nt 1 6(s_y [i ] ); 

30 #endif 


wtsamp = rwritc(s_y, sizeof(INT16), N, file_y); 

35 

/* */ 

#ifdef VERBOSE 

if (wt samp != N) 
40 nrcrrorCError Writing output Samples!"); 
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return wt_samp; 


495 


-*/ 


10 /*- 


/*- 


15 


END 


-*/ 


==*/ 


========*/ 


/*==== 


20 /* Conexant System Inc. 
/* 43 1 1 Jamboree Road 
/* Newport Beach, CA 92660 
/* 


*/ 
*/ 


/* Copyright(C) 2000 Conexant System Inc. */ 

25 /* */ 

/* ALL RIGHTS RESERVED : */ 
/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 
30 /♦==================-================================ 


/* PROTOTYPE FILE: lib_io.h 


*/ 


==*/ 


/*- 
35 /*- 
/♦- 


-*/ 


FUNCTIONS 


-*/ 


INT32 IO_rcadsamples (FILE *, INT16 [], FLOAT64 [], INT32); 
INT32 IO_writcsamp1cs (FILE *, FLOAT64 [], INT16 [], INT32); 

40 
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/* END */ 

5 
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/*== 


==*/ 




/* Conexant System Inc. *' 
5 /* 4311 Jamboree Road *' 
/* Newport Beach, CA 92660 

/* 


■*/ 


/* Copyright(C) 2000 Conexant System Inc. 
/* — 


*/ 


10 /* ALL RIGHTS RESERVED: *' 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

15 /* LIBRARY: libjpc.c 


20 /*- 


/* 

/* INCLUDE * ; 

, */ 


=*/ 


^include "typedef h H 

#include "main.h" 
25 ^include "const.h" 
^include "mcutiLh" 
#include "gputil.h" 
^include "ext_var.h H 


30 include "libjh.h" 
include "libjpc.ir 


V 


/*- 

35 /*- 


DEFINE *' 


^define NB_BIS 5 

#definc MAX_LPC_ORDER 50 

tfdefine RESL 0.005 

40 #define NBIS 6 
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tfdefine PI2 


6.283185307179586 


/*- 
/*- 

5 


• FUNCTIONS 


-*/ 


/♦FUNCTION : LPCJnitJib (). 
/* 


*/ 
-*/ 


10 /* PURPOSE : This function performs the initialisation of the*/ 
/* global variables of the LPC library. */ 
/* */ 

/* INPUT ARGUMENTS : «7 
/* _ None. */ 

15 /* */ 

/* OUTPUT ARGUMENTS : */ 

/* _ None. */ 

/♦ */ 


/* INPUT/OUTPUT ARGUMENTS 
20 /* _None. 

/* 


/* RETURN ARGUMENTS 
/* _ None. 


*/ 


25 


void LPCJnitJib (void) 
{ 

/* 


30 


INT16 i, 1; 
FLOAT64 x, y; 


35 


/* 

/*- 


Generate the LPC Hamming window 


-*/ 


1 = L_LPC/2; 

for (i = 0; i < I; 
40 { 
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x = cos(i*PI/(FLOAT64)l); 
lpcjwindowfi] = 0.54 - 0.46 * x; 
} 

for (i = 1; i < L_LPC; i++) 
{ 

x = cos((i-l)*PI/(FLOAT64)(L_LPC-i)); 

lpc_window(i) = 0.54+0.46 * x; 

} 


/* Generate Ihc LPC Hamming window for (he last sub-frame */ 
/* */ 

15 1 = L_LPC-(L_LPCLHD+L_SF4/2- 1 0); 

for (i = 0; i < I; i++) 
{ 

x = cos(i*PI/(FLOAT64)I); 
20 lpc_windowl (i] = 0.54 - 0.46 * x; 

} 

for (i = 1; i < LJLPC; i++) 
{ 

25 x = cos((i-I)*PI/(FLOAT64)(L_LPC-l)); 

lpc_windowl[i] « 0.54+0.46 * x; 
} 

30 /* Generate the window for look ahead */ 
/* */ 

1 = L_LPC - L_LPCLHD/2; 

35 for (i = 0; i < 1; i++) 

{ 

x = cos(i*PI/(FLOAT64)l); 
lpc_window2[i] = 0.54-0.46 * x; 

40 
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for (i = 1; i <L_LPC; i++) 
{ 

x = cos((i-l)*0.48*PI/(FLOAT64)(L_LPC-I)); 

lpc_\vindow2(i] = x; 

} 


10 


/* Generate the 60 Hz bandwidth expansion factor 
/* with white noise correction factor */ 
/* */ 


*/ 


15 


owe Jactorf 0] = 1 .000 i ; 
x - 2.0*P1*60.0/FS; 
for(i= 1; i<NP+l; i++) 
{ 

y = -0.5*sqr(x*(FLOAT64)i); 
bwe_factor[i] = exp(y); 
} 


20 


/* 


erg = 0.0; 
lpcgain = 0.0; 


25 


subjpeg = 0.0; 


30 


/*- 
/*- 


*/ 


LPC Adaptive Interpolation Coeflcicnts */ 
*/ 


35 


lnlLSF_C(0] = 0.5; 
IntLSF_Cfl) = 0.6; 
IntLSF_C[2] = 0.7; 
IntLSF_C[3J = 0.8; 


40 


return; 
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-*/ 


5 /• 


-*/ 


/♦===== 
/* FUNCTION 
/* 


=*/ 


: LPC_analysis (). 


10 /* PURPOSE 
/* 


This function performs windowing. 


/* 
15 /* 
/* 
/* 
/* 
/* 


*/ 
*/ 


/* INPUT ARGUMENTS : 
/* _ (INT 16 ) Mpc: LPC frame size. 
_ (FLOAT64 []) sig: inpul frame. 
_ (FLOAT64 []) Ipcjwindow: analysis window, 
_ (FLOAT64 []) bvvc__factor: bandwidth expansion 

(INT16 ) Order: prediction order. */ 
_(INT16 ) flag_flat: flat speech flag. v */ 


*/ 
*/ 


20 /* OUTPUT ARGUMENTS : 
/* _ (FLOAT64 fl) rxx: 
_ (FLOAT64 U) refl: 
_(FLOAT64 *)pderr: 


/* 
/* 
/* 
25 /+ 
/* 

/* INPUT/OUTPUT ARGUMENTS : 
/* _ None. 
30 /* 


*/ 

autocrrelation function. */ 
output reflection cocfT. */ 
output LPC prediction error. */ 


_ (FLOAT64 [D lpc_alpha: output LP filter coeff. 
_ (FLOAT64 []) Isf: line spectrum frequencies. 
_ (FLOAT64 *) lpc_gain: output LPC gain. 


*/ 
*/ 


/* RETURN ARGUMENTS : 
/* _ None. 


*/ 


-*/ 


35 void LPC_analysis (INT16 1 Jpc, FLOAT64 sig [], FLOAT64 lpc_window [], 

FLOAT64 rxx[l, FLOAT64 bwcJactor[], FLOAT64 refl [], 
FLOAT64 *pden\ FLOAT64 lpc_alpha [], FLOAT64 lsf [], 
INT16 LPC_ORDER, FLOAT64 *lpcgain, INT 16 flagjlat) 


40 


{ 
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/* 


FLOAT64 w, energy, val; 
INT16 i; 

/* */ 


energy = 0.0; 
for (i = 0; i < Mpc; i++) 
10 energy += (lNT16)sig[i)*(INT16)sig[i]; 

if(cnergy — 0.0) 
{ 

ini_dvector (lpcalpha, 0, LPC_ORDER-l, 0.0); 

15 

ini_dveclor (rxx, 0, LPC_ORDER, 0.0); 

ini_dvcctor (refl, 0, LPC_ORDER-l, 0.0); 

20 (*pderr) = 0.0; 

(*!pcgain) = -DBLMAX; 
} 

else 

{ 

25 /* */ 

/* Windowing for Linear Prediction Analysis */ 
/* */ 


muljjvcctor (sig, lpc_window, siglpc, 0, l_lpc-l); 
/* Autocorrelation Function */ 


35 LPC_autocorrelation (siglpc, ljpc, rxx, (TNT16)(LPC_ORDER+l)); 

/* */ 

/* Bandwidth Expansion */ 
/* */ 

40 
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mul_dvector (rxx, bwcjactor, rxx, 0, LPCJDRDER); 

/* ♦/ 

/* Lcroux-Gueguen Recursion */ 
5 /* ♦/ 

LPC_leroux_gueguen (rxx, refl, pderr, LPC_ORDER); 

/* */ 

10 /* PARCOR to prediction coefficient convertion */ 
/* */ 

LPC_refl2prcd(rcfl, lpc_alpha, LPC_ORDER); 

15 /* */ 

/* Bandwith expassion */ 
/* ♦/ 

(*lpcgain) = -10.*logl0((*pdcrr)/(rxx[01 + EPSI)); 

20 

/* */ 

if (flag_nat== 1) 
{ 

25 if (("Ipcgain) < 10.0) 

w= 0.995; 
else if ((*lpcgain) < 20.0) 
w = 0.995; 

else 

30 \v= 0.995; 

} 

else 

{ 

if ((*lpcgain) < 10.0) 
35 w= 0.995; 

else 

{ 

if((*lpcgain)<20.0) 
w = 0.99; 

40 else 
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504 

w = 0.98; 


-*/ 


val = 1.0; 

for (i = 0; i < LPC_ORDER; i++) 
{ 

10 val *= w; 

Ipcalphafi] *= val; 
} 

15 } 

/* */ 

/* LPC to LSP CONVERSION */ 
/* */ 


LPCJpctolsf (lpc_alpha, Isf, LPC_ORDER); 


/*- 


25 return; 

/* */ 

} 

30 /* */ 


=*/ 


/♦FUNCTION : LPC_refl2prcd 0 */ 
/* ♦/ 

35 /* PURPOSE : This function calculate the prediction coeff. */ 
/* using the PARCOR coefficients. */ 
/* 

/* INPUT ARGUMENTS : */ 
/* _ (FLOAT64 []) refl : output reflection cocfT. */ 

40/* _(INT16 ) LPC_ORDER : LPC order. */ 
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/• •/ 


/* OUTPUT ARGUMENTS : */ 
/* _ (FLOAT64 []) a : output LP filter coeflf. */ 

/♦ */ 

5 /* INPUT/OUTPUT ARGUMENTS : */ 
/* ^ _None. */ 

/* */ 

/* RETURN ARGUMENTS : */ 
/* _None. */ 

void LPC_refl2pred (FLOAT64 refl [], FLOAT64 a [J, INT16 LPC_ORDER) 
{ 

/* */ 


15 


20 


25 


INT32 m, n, j; 
FLOAT64 x; 


for (m = 0; m< LPCJDRDER; m ++) 
{ 

/* */ 


a [m) = -reflfm]; 


-«7 


30 for(j :si 0;j<m/2;j++) 

{ 

n = m - 1 - j; 
x = a[j] + refl[m] * afn]; 
a[n) = afn] + refl[m] * aUJ; 
35 aU] = x; 

} 

/* */ 

/* Update the prediction coefTicicnts every 2 cycles */ 
40 /♦ */ 
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if(m&l) 

a|in/2J = a[m/2] + refl [m] * a[m/2]; 


5 /* */ 

} 

/* ♦/ 

10 return; 

/* */ 

} 

15 /* */ 

/* FUNCTION ; LPCJeroux^gueguen 0- */ 
/* _ ♦/ 

20 /* PURPOSE : This function performs Leroux Gueguen recursion. */ 
/* */ 


/* This subroutine implements a modified form of Durbin's */ 

/* algorithm for solving a set of auto-correlation equations. This */ 

/* routine uses an intennediate variable which is constrained to */ 

25 /* be less than the energy of the signal, i.e. r [0]. This */ 

/* variable takes the role of the predictor coefficients which */ 

/* normally are used in Durbin's form of the algorithm. This */ 

/* routine returns onJy the reflection coefficients. */ 

/* Reference: J. Leroux and C.J. Gueguen, H A Fixed Point */ 


30 /* Computation of the Partial Correlation */ 

/* Coefficients", IEEE Trans. ASSP, June 1977, */ 

/* pp. 257-259. */ 
/* */ 


/* In the case that either numerical instability or an */ 

35 /* inappropriate auto-correlation vector results in a set of */ 

f* coefficients corresponding to an unstable filter at some stage */ 

/* in the recursion, this routine returns the coefficients as */ 

/* determined at the previous iteration. This is equivalent to */ 

/* truncating the auto-correlation coefficient at a point such */ 

40 /* that it is positive definite. */ 
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/* */ 

/* INPUT ARGUMENTS : */ 
/* (FLOAT64 []) r : input autocorrelation.*/ 

/* _ (INT 16 ) LPC_ORDER : LPC order. */ 

5 /♦ */ 

/* OUTPUT ARGUMENTS : */ 
/* _ (FLOAT64 []) refl : output reflection cocff. */ 

/* _ (FLOAT64 *) re : output residual energy. */ 

/♦ */ 

10 /* INPUT/OUTPUT ARGUMENTS : */ 
/* _ None. */ 

/* */ 

/* RETURN ARGUMENTS : */ 
/* _ None. */ 

15 / *========== = = = ==== ===== ^=============:========-^^=========— 


void LPCJeroux_gucgucn (FLOAT64 r [], FLOAT64 refl [], FLOAT64 *re, 

INT 16 LPCORDER) 

{ 

20 /* */ 


rNT32 k, i; 


FLOAT64 if, sum; 

25 FLOAT64 *cp, *en; 


ep = dvector (0, LPC_ORDER-I); 
30 en = dvector (0 t LPC_ORDER-l); 


35 


r 


/* Initialisation */ 
/* 

(*re) = r[0]; 


for (i = 0; i < LPC_ORDER; i++ ) 
{ 

40 cp[i] = rfi+lj; 
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25 


30 


cn[ij = r[i]; 
} 


5 /* Algorithm */ 

/*„., ♦/ 

for (k = 0; k < LPC_ORDER; k++) 
{ 

10 /* */ 

/* Check for zero prediction error */ 

/* : */ 

if ( (cn[0] == 0.0) && (ep[k] == 0.0)) 
15 if =0.0; 

else 

rf=-ep[k]/en[0]; 

/* */ 

20 /* Calculate the error (equivalent to rc = re * (l-rf**2)) */ 
/* A change in sign of PRERR means that if has a magnitude */ 
/* greater than unity (corresponding to an unstable */ 
/* synthesis filter) */ 
/* */ 


cn [0]+=rf*eprkl; 

if(en[0] <0.0) 

(*re) = cnlO]; 


break; 


-*/ 


35 refl [k] = if; 

if (k = (LPC_ORDER-l)) 
return; 

for (i = k+1; i < (LPCJ3RDER-1); i++) 
40 { 
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sum = ep[il + rf * cn[i-kj; 
en [i-k] += rf * cp[i]; 
ep f m J = sum; 
} 

5 

ep [LPC_ORDER-l] += rf * en [LPC_ORDER-k-l]; 
} 


10 /* Fixup for negative prediction error */ 


printf ("\nLPCJeroux_gueguen - negative error cncrgyW); 

15 for (i = k; i < LPC_ORDER; i++ ) 

refl li] = 0.0; 


20 


25 


frec_dvector (ep, 0, LPC_ORDER-l); 
frcc_dvector (cn, 0, LPC_ORDER-l); 


return; 


/*- 


30 


/* FUNCTION : LPC_pred2refl (). 
35 /+ 


/♦PURPOSE : This function calculate the PARCOR coefficients */ 
/* using the prediction coeff. */ 

/* INPUT ARGUMENTS : */ 
40 /* _ (FLOAT64 []) a : output LP filter coeff. */ 
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/* _ (INT 16 ) LPCORDER : LPC order. */ 

/* */ 

/* OUTPUT ARGUMENTS : V 
/* _ (FLOAT64 []) refl : output reflection coeft */ 

5 /* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 

/* _ None. */ 

/* */ 

/* RETURN ARGUMENTS : */ 
10 /* _None. */ 

/*====================^=======r = ==== = == ===== 


void LPC _j3red2rcfl (FLOAT64 a [], FLOAT64 refl [], INTI6 LPC_ORDER) 
{ 

15 /* */ 


FLO AT64 f[MAX_LPC_ORDER] ; 

INT16 in, j, n; 
20 FLOAT64 km, denom, x; 


if (LPC_ORDER > M AX_LPC_ORDER) 
25 nrerror ("LPC order is too large!!! 1 *); 


30 


/* Initialisation 
/* 


cpy dvector (a, f, 0, LPC_ORDER-i); 


35 for (m = LPC_ORDER-l ; m >= 0; m-) 

{ 

km = f[m)\ 

if (km <= -1.0 || km >= 1.0) 
{ 

40 printf( H Nonstable reflection coeffs ! ! !\n"); 
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return; 
} 

5 rcfl [m] = -km; 

denom = 1.0/(1.0 - km * km); 

for(j = 0;j<m/2;j++) 
{ 

10 n = m-l-j; 

x = denom * f\j] + km * denom * f[n]; 
f[n] = denom * f[ n I + km * denom * fljj; 
fill = x; 
} 

15 

if (m& 1) 

flj| = denom * fft] + km * denom * flj]; 

} 


20 /* */ 

return; 

/* */ 

25 } 

/* */ 

30 /* FUNCTION : LPCJpclolsf O- *' 

/+ */ 

/* PURPOSE : This function onvert predictor coefficients */ 
/* toLSFs. */ 

/* */ 

35 /* The transfer function of the predictor filter is transformed */ 
/* into two reciprocal polynomials having roots on the unit */ 
/* circle. These roots of these polynomials interlace. It is */ 
/* these roots that determine the line spectral frequencies. The*/ 
/* two reciprocal polynomials are expressed as series expansions*/ 

40 /* in Chebyshev polynomials with roots in the range -1 to +l.Thc*/ 
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/* inverse cosine of the roots of the Chebyshev polynomial */ 
/* expansion gives Ihc line spectral frequencies. If NPTS line */ 
/* spectral frequencies are not found, this routine signals an */ 
/* error condition. */ 
5 /* ♦/ 

/♦ */ 

/* INPUT ARGUMENTS: */ 
/* _ (FLOAT64 []) PRCOF: Predictor coefficients. */ 
/* _(TNT16 ) LPC_ORDER ; LPC order. */ 
10 /* _(INT16 )NPTS: Number of coefficients (at most 50)*/ 
/* */ 

/* OUTPUT ARGUMENTS: */ 
/* _ (FLOAT64 []) FRLSF: line spectral frequencies (in */ 
/* ascending order). */ 
15 /* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ None. */ 

/* */ 

/* RETURN ARGUMENTS : */ 
20 /* _None. */ 

void LPC_lpclolsf( FLOAT64 PRCOF[], FLOAT64 FRLSF[], INTI6 NPTS) 
{ 

25 /*- */ 


INT16 NC[2|,j,i,NF, IP; 

FLOAT64 Fl[(MAX_LPC_ORDER+l)/2+l], F2[(MAX_LPC_ORDER+l)/2+l], 
Tf 21 [(MAX_LPC_ORDER+ 1 )/2+ 1 ] ; 

30 

FLOAT64 XLOW,XMID,XFnGH,XI>rr,YLOW t YMID,YHIGH; 
/♦ 

35 #ifdef VERBOSE 

if (NPTS > MAX LPC ORDER) 

nrerrorCPTOLSF - Too many coefficients! !!!!"); 

#endif 


40 
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/+ */ 

/* Determine the number of coefficients in each of the polynomials */ 
/+ with coefficients T(., 1) and T(.,2). */ 
/♦ V 

5 

if C(NPTS%2) !=0) 
{ 

NC[1] = (NPTS+l)/2; 
NC(0] = NC[1] + 1; 
10 } 
else 

{ 

NC[1J = NPTS/2 + 1; 
NC{0] = NC|1]; 
15 } 

/* */ 

/* Let D=z**(-1), the unit delay, then the predictor filter with */ 

/* N coefficients is */ 
20 /* */ 

/* N n */ 

/* P(D) = SUM p(n) D . */ 

/* n=l */ 

/* */ 
25 /* The error filter polynomial is A(D)=1-P(D) with N+l terms. */ 

/* Two auxiliary polynomials * are formed from the error filter */ 

/* polynomial, 

/* F1(D) = A(D) + D**(N+1) A(D**(-1)) (N+2 terms, symmetric) */ 
/* F2(D) = A(D) - D**(N+1) A(D**(-1)) (N+2 terms, anti-symmetric) */ 

30 /* * f 

/* Establish the symmetric polynomial F1(D) and the anti -symmetric */ 

/* polynomial F2(D) */ 
/* Only about half of the coefficients are evaluated since the */ 
/* polynomials arc symmetric and will later be reduced in order by */ 
35 /+ division by polynomials with roots at +1 and -1 */ 
/* */ 

F1[0] = 1.0; 
j = NPTS-l; 
40 for(i = 1; i < NC[0J; i++) 
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{ 

Fl|iJ = -PRCOFfi-l| - PRCOFUI; 

j = J - 1 ; 
} 

5 

F210J = 1.0; 
j = NPTS-i; 

for(i= 1; i <NC[1], i++) 
{ 

10 F2[i] = -PRCOF[i-lJ + PRCOF[j]; 

} 


/* */ 

15 /* N even, Fl(D) includes a factor 1+D, */ 

/* F2(D) includes a factor 1-D */ 
/♦ N odd, F2(D) includes a factor 1-D**2 */ 
/* Divide out these factors, leaving even order symmetric */ 
/* polynomials, M is the total number of terms and Nc is the number */ 
20 /* of unique terms, */ 

/* N polynomial M Nc=(M+l)/2 */ 
/♦even, G1(D) = F1(D)/(I+D) N+l N/2+1 */ 
/* G2(D) = F2(D)/(1-D) N+l N/2+1 */ 
/♦odd, G1(D) = F1(D) N+2 (N+l)/2+l */ 
25 /* G2(D) = F2(D)/(1-D**2) N (N+l)/2 */ 
/* */ 


if((NPTS%2) !=0) 

for (i=2;i<NQl];i++) 
30 F2[i] = F2[i] +F2[i-21; 

else 

for(i=l;i<NC[0];i++) 
{ 

Fl[i] = Fl[i]-Fl[i-l]; 
35 F2|i] = F2[i]+F2[i-l]; 

} 

/* «7 

/* To look for roots on the unit circle, G1(D) and G2(D) are */ 
40 /* evaluated for D=exp(ja). Since G 1(D) and G2(D) are symmetric, */ 
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/* they can be expressed in terms of a scries in cos(na) for D on */ 
/* the unit circle. Since M is odd and D=exp(ja) */ 
/* •/ 
/* M-l n . */ 

5 /* Gl(D) = SUMfl(n)D (symmetric, fl(n) = fl (M-l -n)) */ 

/* n=0 */ 
/♦ Mh-1 */ 

/* =expOMha)[fl(Mli) + 2SUMn(n)cos((Mh-n)a)] */ 
/* n=0 */ 

10 /* Mh */ 

/* = cxp(j Mh a) SUM 1 1 (n) cos(na) , */ 
/* n=0 */ 

/* */ 

/* where Mh=(M-l)/2=Nc-l . The Nc=Mh+l coefficients t l(n) are * 

15 /* defined as */ . 

/* tl(n)= fl(Nc-l), n=0, */ 

/* = 2 fl(Nc-l-n) , n=l,...,Nc-l. */ 

/* The next step is to identify cos(na) with the Chebyshev polynomial*/ 

/* T(n,x). The Chebyshev polynomials satisfy T(n,cos(x)) = cos(nx). */ 

20 /* Then omitting the exponential delay tenn which does not aiTect the*/ 

/* positions of the roots on the unit circle, the series expansion in*/ 
/* terms of Chebyshev polynomials is */ 
/* V 
/* Nc-1 */ 

25 /* Tl(x) = SUMtl(n)T(n,x) */ 

/* n=0 */ 

/* */ 
/* The domain of Tl(x) is -1 < x < +1. For a given root of Tl(x), */ 
/* say xO, the corresponding position of the root of F1(D) on the */ 

30 /* unit circle is exp(j arccos(xO)). */ 

/* */ 
/* Establish the coefficients of the series expansion in Chebyshev */ 
/* polynomials */ 

,♦ •/ 

35 

TlO]l01 = FlfNC[0]-l]; 
j = NC|0]-2; 

for (i = 1; i < NC|0); i++) 
{ 

40 T|01(il = 2.0*FlUl; 
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} 

T[1][0] = F2[NC|1H1; 
5 j = NC[l]-2; 

for (i = 1; i <NC[1]; i++) 
{ 

T(l][i] = 2.0*F2UI; 

j=j-i; 
10 > 

/* Sample at equally spaced intervals between -1 and 1 to look for */ 
/* sign changes. RESL is chosen small enough to avoid problems with */ 

15 /* multiple roots in an interval. After detecting a sign change, */ 

/* successive bisections and linear interpolation are used to find */ 
/* roots corresponding to LSF frequencies. Since the roots of the */ 
/* two polynomials interlace, the search alternates between the */ 
/* polynomials T(. f 1) and T(.,2).1P is either 1 or 2 depending on */ 

20 /* which polynomial is being examined. */ 
/* */ 

NF-0; 
IP = 0; 

25 XLOW =1.0; 

YLOW = LPC_chebyshev (XLOW,T[IP],NC[IP]); 

while ((XLOW >-!.)&& (NF < NFTS)) 
{ 

30 XHIGH = XLOW; 

YHIGH = YLOW; 

if ((XHIGH-RESL) > -1.0 ) 

XLOW = XHIGH-RESL; 

35 else 

XLOW = -1.0; 
YLOW = LPC_chebyshev(XLOW,T[IP],NC[lP]); 
40 if (YLOW* YHIGH <= 0.0) 
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{ 

NF = NF + 1; 


/* Bisections of the interval containing a sign change */ 


for (i = 0; i < NBIS; i++) 
{ 

XMID = 0.5*(XLOW+XHIGH); 
YMID = LPC„chebyshev(XMID,T[TP],NC[lP]); 
if (YLOW*YMID <= 0.0) 
{ 

YHIGH=YMID; 
XHIGH=XMID; 
} 

else 

{ 

YLOW=YMID; 
XLOW=XMID; 

} 
} 


/* Linear interpolation in the subinterval with a sign */ 
/* change (take care if YHIGH=YLOW=0) 4 


if (YH1GH != YLOW) 

XINT = XLOW - YLOW*(XraGH-XLOW)/CYHIGH-YLOW); 

else 

XINT=0.5*(XLOW+XHIGH); 


FRLSFfNF-1] = acos(XINT)/PI2; 


/* Start the search for the roots of the next polynomial */ 
/* at the estimated location of the root just found */ 
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IP = 1 - IP; 
XLOW = XINT; 

YLOW = LPC_chcbyshev (XLOW,TfIP],NCf IPJ); 
} 

} 


-V 


/* Hall if NPTS frequencies have not been found */ 
/♦ */ 

10 

#ifdef VERBOSE 

if(NF != NPTS) 

nrerror("LPCJpctolsf - Too few frequencies computed 11 ); 

tfendif 

15 


/*- 


return; 

20 

/* */ 

} 


/* */ 

25 

/•——--^^ 

/* FUNCTION : LPC_chebyshev 0- */ 
/* *, 

/* PURPOSE : Evaluate a series expansion in Chebyshcv */ 

30 /* polynomials. */ 

/* */ 

/* The series expansion in Chebyshev polynomials is defined as */ 

/* */ 

/* N-l */ 

35 /* Y(x) = SUMc(i)T(i,x), */ 

/* i=0 */ 

/* */ 

/* where Y(x) is the resulting value (Y(x) «= CHEBPS(...)), */ 

/* N is the order of the expansion, */ 

40 /* c(i) is the coefficient for lite i'th Chebyshev */ 
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/* polynomial */ 

/* (c(i) = COF(i+i)),and ♦/ 

/* T(i,x) is the i'th order Chebyshev polynomial */ 

/* evaluated at x. */ 

5 /* The Chebyshev polynomials satisfy the recursion */ 

/* T(i,x) = 2xT(i-l,x)-T(i-2,x), */ 

/* with the initial conditions T(0,x)= 1 and T( 1 ,x)=x. This */ 

/* routine evaluates the expansion using a backward recursion */ 

/* to obtain a numerically stable solution. */ 

10 /* V 

; */ 

/* INPUT ARGUMENTS: */ 

/* _(FLOAT64 )X: Input value. */ 

/* _ (FLOAT64 []) COF: Array of coefficient values. COFfi] is */ 

15 /* the coefficient corresponding to the */ 
/* i-l'th order Chebyshev polynomial, */ 
/* _ (INT16 ) N: Order of the polynomial and number of */ 
/* coefficients. */ 
/♦ */ 

20 /* OUTPUT ARGUMENTS: */ 
/* _ None. */ 
/* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ None. */ 

25 /* */ 

/* RETURN ARGUMENTS : */ 
/* _(FLOAT64 )CHEBPS: Predictor coefficients. */ 


30 FLOAT64 LPC_chcbyshev( FLOAT64 X, FLOAT64 COF[], INT16 N) 
{ 

/* */ 

INT16 i; 

35 FLOAT64 Bl, B0, B2, CHEBPS; 


/* */ 

/* Consider the backward recursion b(i ( x)=2xb(i+l,x)-b(i+2,x)+c(i), */ 
/* with initial conditions b(N,x)=0 and b(N+l,x)=0. */ 
40 /* Then dropping the dependence on x, c(i)=b(i)-2xb(i+l)+b(i+2). */ 
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/* V 
/♦ N-l */ 
/* Y(x) = SUM c(i) T(i) */ 
/* i=0 */ 
5 /* */ 

/* N-l */ 
/* = SUM [b(i)-2xb(i+l)+b(i+2)J T(i) */ 
/* i=0 */ 
/* N-l «7 

10 /* =b(0)T(0)^(l)T(l)-2xb(l)T(0) + SUMb(i)[T(i)-2xT(i-l)+T(i-2)J */ 

/* i=2 */ 

/* The term inside the sum is zero because of the recursive */ 
/* relationship satisfied by the Chcbyshcv polynomials. Then */ 
/* substituting the values T(0)=1 and T(l)=x, Y(x) is expressed in ♦/ 

15 /* terms of the difference between b(0) and b(2) (errors in b(0) and */ 
/* b(2) tend to cancel), */ 
/* */ 
/* Y(x) = b(0)-xb(l) - (b(0)-b(2)+c(0)] / 2 */ 
/* ♦/ 

20 

B2 = 0.0; 
Bl =0.0; 
B0 = 0.0; 

for (i = N-l;i>= 0; i-) 
25 { 

B2 = B1; 
Bl = B0; 

BO = (2.*X)*B1 - B2 + COFli]; 
} 


30 


CHEBPS = 0.5*(B0 - B2 + COF[0]); 


35 return (CHEBPS); 

/* 

} 

40 /* 
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/* FUNCTION : LPC_aulocorrelation 0- *' 
,* . V 

5 /* PURPOSE : Calculate the correlation for a data sequence. */ 

/* , */ 

/* This subroutine calculates the auto-correlation for a */ 

/* given data vector. Rxx(i) gives the auto-correlation at */ 

/* lag i, for i running from 0 to NTERM-1. */ 

10 /* */ 

/* NX */ 

/* Rxx(i) = SUM X(j) * X(j-i) */ 

/* j=i */ 

/* */ 

15 /* This algorithm requires */ 

/* (N+l)*(NX+N/2) mulliplies and */ 

/* (N+l)*(NX+N/2)adds. ♦/ 

/* */ 

/* V 

20 /* INPUT ARGUMENTS: */ 

/* _ (FLOAT64 []) x: Input data vector with NX elements. */ 
/* _ (INT1 6 ) L: Number of data points. */ 
/* _ (INT 1 6 ) ORDER_l : Order of the polynomial and number of */ 
/* coefficients. */ 

25 /* */ 

/* OUTPUT ARGUMENTS: */ 

/* _ (FLOAT64 []) r: Auto-correlation vector with ORDER_l */ 

/* elements. */ 

/* */ 

30 /* INPUT/OUTPUT ARGUMENTS : */ 
/* _ None. */ 

/• */ 

/* RETURN ARGUMENTS : */ 
/* _ None. */ 


void LPC_autocorrelation (FLOAT64 x[J, INT16 L, FLOAT64 r[], INT16 ORDERJ) 
{ 

/* */ 


40 
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INT16 i; 


for (i = 0; i < ORDER_l ; i++ ) 

dot_dvcctor(x, x+i, r+i, 0, (INT16)(L-i-l)); 


-*/ 


10 


return; 


-♦/ 


15 /*- 


/* 


*/ 


/* FUNCTION : LPC_ptoa(). 

/* 

20 /* PURPOSE : This function convert Uie prediction coeff. in */ 
/* tha classical LP filter coefficients. */ 

/* */ 

*/ 

*/ 


/* 
/*- 


/* INPUT ARGUMENTS: 
25 /* _ (FLOAT64 []) p: prediction coeffcients. 
/* (INT 16 )LPC_ORDER: order of the LPC. 


/* 


/* OUTPUT ARGUMENTS: 
/* _ (FLOAT64 []) a: LP filter coefficients. 
30 /* 


/* INPUT/OUTPUT ARGUMENTS : 
/* _ None. 

/* 


*/ 


/* RETURN ARGUMENTS : 
35 /* _None. 


*/ 


*/ 


*/ 


*/ 
*/ 


-*/ 


=*/ 


=*/ 


40 


void LPC_ploa( FLOAT64 p[], FLOAT64 a[], INT16 LPC.ORDER) 
{ 

/* — — 


/ 
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INT16 i; 

/* 

5 

#ifdef VERBOSE 

if (LPC_ORDER > MAX_LPC_ORDER) 

nrcrrorfLPC order is too large in pioa()!!! M ); 

tfendif 

10 


a[0]=l.; 

for (i = 0; i < LPC_ORDER; i++) 
15 a[i+l] =-p[i); 


return; 


20 


} 


/* r */ 


25 


/*«= 


/* FUNCTION : LPCJsHop (). V 

/* */ 

/* PURPOSE : This function convert LSFs to predictor coeff. */ 

30 /* */ 

/* The line spectral frequencies are assumed to be frequencies */ 
/* corresponding to roots on the unit circle. Alternate roots on */ 
/* the unit circle belong to two polynomials. These polynomials */ 
/* are formed by polynomial multiplication of factors representing */ 

35 /* conjugate pairs of roots. Additional factors arc used to give */ 

/* a symmetric polynomial and an anti-symmetric polynomial. The */ 
/* sum (divided by 2) of these polynomials gives the predictor */ 
/* polynomial. */ 

/* */ 

40 /* */ 
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/* INPUT ARGUMENTS: * ! 
/* _ (FLOAT64 []) FRLSF: Array of NPTS line spectral */ 
/* frequencies (in ascending order). */ 

/* Each line spectral frequency lies in */ 

5 /♦ the range 0 to 0.5. */ 

/* (INT16 ) NPTS: Number of coefficients (at most 50). */ 

/♦_: — */ 


/* OUTPUT ARGUMENTS: 

/* _ (FLOAT64 []) PRCOF: predictor coefficients. 


10 /* 


/* INPUT/OUTPUT ARGUMENTS : 
/* _ None. 


*/ 


/* RETURN ARGUMENTS : 
15 /* _None. 


*/ 


*/ 


*/ 


=====*/ 


void LPC _lsftop( FLOAT64 FRLSF[], FLOAT64 PRCOF[], INT16 NPTS) 


20 


-*/ 


INT16 NC, i, M, k; 


25 


FLO AT64 F 1 J(MAX_LPC_ORDER+ 1 )/2 +1], F2l(MAX_LPC_ORDER/2)+l], 
FLOAT64 A, x; 


30 


F1[0] = L0; 
F210}= 1.0; 


-*/ 


/* Each line spectral frequency w contributes a second order */ 

/* polynomial of the form Y(D)=l-2*cos(w)*D+D**2. These polynomials ♦/ 

35 /* ar e fonned for each frequency and then multiplied together. */ 

/* Alternate line spectral frequencies are used to form two */ 
/* polynomials with interlacing roots on the unit circle. These two +/ 
/* polynomials are again multiplied by 1+D and 1-D if NPTS is even */ 
/* or by 1 and 1-D**2 if NPTS is odd. This gives the symmetric and */ 

40 /* anti-symmetric polynomials that in turn are added to give the */ 


3N3DOCID. <-WO 0 l22*K)2Ai_L» 


WO 01/22402 


525 

/* predictor coefficients. */ 
/* 


tfifdcf VERBOSE 
5 if (NPTS > MAX_LPC_ORDER) 

nrerror ("LSFTOP - Too many coefficients!! !"); 

#endif 

/* */ 

10 /* Fonn a symmetric F 1(D) by multiplying together second order */ 
/* polynomials corresponding to odd numbered LSFs */ 
/* */ 

NC = 0; 

15 for (i = 0; i < NPTS; i += 2) 

{ 

x = cos(PI2*FRLSF[i]); 
A = -2.0 * x; 

LPC_convsm(Fl, &NC, A); 

20 } 


/* Form a s>'inmetric F2(D) by multiplying together second order */ 
/* polynomials corresponding to even numbered LSFs */ 
25 /* --*/ 

NC = 0; 

for (i = 1; i <NPTS; i 2) 
{ 

30 x = cos(P12*FRLSF[il); 

A = -2.0 * x; 

LPC_convsm(F2, &NC, A); 

} 

35 /* */ 

/* Both F1(D) and F2(D) are symmetric, with leading coefficient */ 
/* equal to unity. Exclusive of the leading coefficient, the */ 
/* number of coefficients needed to specify F1(D) and F2(D) is: */ 
/* NPTS F1(D) F2(D) */ 

40 /* even NPTS/2 NPTS/2 */ 
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/* odd (NPTS+l)/2 (NPTS-l)/2 *' 
•/ 


if((NPTS%2) !=0) 
{ 

/* 


/* NPTS odd *> 
/* F2(D) is multiplied by the factor (1-D**2) 


-*/ 

*/ 

-V 


M = (NPTS-l)/2; 
for (i = M; i >= 2; i») 
F2[i] «F2[i]-F2[i-21; 


15 /*- 


/* Fonn the predictor filter coefficients */ 
/* Note that F 1(D) is symmetric and F2(D) is now */ 
/* anti-symmetric. Since only the first half of the */ 
/* coefficients are available, symmetries are used to get */ 
/* the other half. */ 


k = NPTS-1; 

for (i=0; i < M; i++ ) 

25 { 

PRCOF[i] = -0.5*(Fl[i+l] +F2[i+lI); 

PRCOF[kl = -0.5*(Fl[i+l] -F2[i+1]); 

k = k-l; 

} 

30 PRCOF[kl = -0.5*Fl[k]; 

} 


else 


{ 

/*- 


-*/ 


35 /* NPTS even */ 

/* F1(D) is multiplied by the factor (1+D) */ 
/* F2(D) is multiplied by the factor (1-D) */ 


40 M = NFTS/2; 
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for ( i=M; i >= 1; i- ) 
{ 

Flli|=Flli]+Fl[i-U; 
F2[i]=F2[il-F2|i-l); 
5 > 

/* V 

/* Form the predictor filler coefficients */ 
/* Note that F 1(D) is symmetric and F2(D) is now */ 
10 /* anti-symmetric. */ 

/* */ 

k = NPTS - 1; 

for (i = 0; i < M; i++) 

15 < 

PRCOF[i]=-0.5*(Flli+l]+F2[i+l]); 

PRCOF[k]=-0.5*(Fl[i+l]-F2[i+l]); 

k = k- 1; 


25 


} 


20 } 


/*- 


— */ 


return; 


-*/ 


/* 

} 

30 

/♦FUNCTION : LPC_adptive__interp (). */ 

/* V 

/* PURPOSE : This function this function generates the LPC */ 

35 /* coefficients by interpolating in a NON linear */ 

/* way the lsf. */ 

/* */ 

/* INPUT ARGUMENTS: */ 
/* _ (FLOAT64 [J) IsfJ : first set of lsf. */ 

40 /* (FLOAT64 []) lsf_2: second set of lsf */ 
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/* _ (FLOAT64 G) IsLold: lsf from last frame. */ 
/+ (INT16 *) intjdx: codebook index. * f 
*/ 

' */ 
/* OUTPUT ARGUMENTS: 

5 /* (FLOAT64 *♦) pdcf: predictor coefficients. */ 

--*/ 

^ 

/* INPUT/OUTPUT ARGUMENTS : 

*/ 

/* None. 

*/ 

/* _ 

*/ 


*/ 


10 /* RETURN ARGUMENTS : 

/* _ None. 

void LPC adplive imerp (FLOAT64 lsf [], FLOAT64 lsf! D . FLOAT64 lsf_o!d fl, 
voidLPC_aapuve_ V k FLOAT64 **pdcf, INT16 *int_idx) 

15 

< */ 

/* 

FLOAT64 refJsflNPK inlJsfTNPl, dis, mindis, delta, vail, val2; 
20 INT 16 i,k; 


Middle lsf search 


-*/ 
-*/ 


25 


/*- 

/* 
/*- 


*/ 


Weights *' 


30 int. 


JsqO] = (1.0-lsfUO]) * (1-0 - Isflfll + lsniO]); 


35 


for(i= l;i<NP-l;i++) 
{ 

vail =lsfl[i+l] -lsn[i]; 
va!2 = lsflli] -lsfl[i-l]; 
delta = MIN(vall, va!2); 

intjsqil = (1-0 - lsfllil) * (1-0 - delta ); 

. } 


40 
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delta = lsflfNP-l]+lsfl[NP-2]; 

intJsfTNP-lJ = (10 - IsflfNP-l]) * (1.0 - delta); 

/♦ */ 

5 /* Search */ 

*/ 

mindis = DBL_MAX; 

10 for (k « 0; k < N_SF4; k++) 

{ 

for (i = 0 ; i < NP ; i++) 

ref_lsf[i] = IntLSF_C[k]*lsfIi]+(l-IntLSF_C[k]) , *lsf_old[i]; 

15 dis = 0.0; 

for (i = 0; i < NP; i++) 

dis += fabs(refjsfli]-lsfl[i]) * int_lsf[i]; 

if (dis < mindis) 
20 { 

mindis = dis; 
*int_idx = k; 
} 

} 

25 


k *int_idx; 
for (i = 0; i < NP; 

30 refjsf[i] = lntLSF_C[k)*lsfTi]+ (l-IntLSF_C[k])*lsf_old[i]; 

/* */ 

/* LSF to prediction coefficients convcrtion */ 


35 


/* 


/* ♦/ 

/* Sub-frame #0 V 


/* 


40 for (i = 0; i < NP; 
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40 
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hit Jsfli] = 0.5*<lsf_old[il+reMsUi]); 
LPC_lsftop(int_lsf, pdcflO], NP); 


15 for (i = 0; i < NP; i++) 

intjsfli] = 0.5*(refjsail + lsflij); 

LPCJsftop(int jsf, pdcfl21, NP); 


20 /*- 


return; 


/*- 

} 


/♦ 

/♦ Sub-frame # I *' 

*' 


LPCJsftop(refJsf,pdcfIll, NP); 


/* 

/* Sub-frame #2 */ 


/ 


/* Sub-frame #1 

/* * 

LPC_lsftop(lsf f pdcfpi, NP); 


/* 

/* Update the memories 

30 cpy_dvector (Isf, Isfold, 0, NP-1); 


-*/ 
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/* FUNCTION : LPC_adptivc_interp_dcc (). */ 

/♦ */ 

/* PURPOSE : This function this function generates the LPC */ 
5 /* coefficients by interpolating in a NON linear */ 

/* , way the Isf. */ 

f* */ 

/* INPUT ARGUMENTS: */ 
/♦ (FLOAT64 []) lsf_l : first set of lsf. */ 

10 /* _ (FLOAT64 []) lsf_old: lsf from last frame. */ 
/* _(INT16 *) intjdx: codebook index. ♦/ 

/* */ 

/* OUTPUT ARGUMENTS: */ 
/* (FLOAT64 **) pdcf: predictor coefficients. */ 

15 /* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 

/* _ None. */ 

/* */ 

/* RETURN ARGUMENTS : */ 
20 /* _None. */ 


void LPC_adptivc_interp_dcc (FLOAT64 lsf [J, FLOAT64 lsf_old [], 

FLOAT64 **pdcf, INT16 intjdx) 

25 { 

/* V 


30 


FLOAT64 rcfJsflNPJ, inMsflNP]; 
INTI6 i; 


/*- 


/* Middle LSF */ 

/* */ 


35 for (i = 0; i < NP; 

ref Jsflil = IntLSF_C[int_idxJ*lsfIi] + 

( 1 -IntLSF_C[int_idx])*lsfo!d[i] ; 


/♦ */ 

40 /* LSF to prediction coefficients convertion */ 
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/* 


/* 

Sub-frame #0 

/* 


for (i = 0; i < NP; 

intjsfli] = 0.5*asf_oldli]+rcfjsqi]); 

10 LPCJsfiop(int Jsf, pdcqO], NP); 


LPCJsftop(ref_lsf, pdcfTM, NP); 


25 LPCJsftop(int Jsf, pdcfI2], NP); 


/* 

/*■ 


LPC Jsflop(lsf, pdcf!3]> NP); 


35 /* 


cpy_dvector (lsf, Isfold, 0, NP-1); 
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*/ 

V 


/* 

/# Sub-frame #1 *' 
/* 


-*/ 


y* Sub-frame #2 

*/ 

20 /* 


for (i = 0; i < NP; i++) 

intjsfli) = 0.5*(rcf Jsfli] + IsfW); 


/» — 

Sub-frame #1 


-*/ 


* Update the memories 


-*/ 


-*/ 
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/*- 


/*- 


====*/ 


/* FUNCTION 
10 /* 


: LPC_interpotateJpc_4to2 0 


/* PURPOSE : This function this function generates the LPC 
/* coefficients by interpolating the Isf */ 

/* (frequency' domain). */ 

/* */ 

15 /* INPUT ARGUMENTS: */ 
/* _ (FLOAT64 []) lsf_l: first set of lsf. */ 
/* _ (FLOAT64 []) lsf_2: second set of lsf. */ 
_ (FLOAT64 []) lsf_old: lsf from last frame. */ 


/* 
/* 

20 /* 


/* 
/*- 


_ (INT 16 ) flag: switch between interpolation coelT. */ 
for quantized ( 1) or unquantized */ 
(0) LSF. */ 
*/ 

/* OUTPUT ARGUMENTS: */ 
/* _ (FLOAT64 **) pdcf: predictor coefficients. */ 

25 /* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 

/* _ None. */ 

/* */ 

/* RETURN ARGUMENTS : */ 
30 /* _None. */ 

/*=============================================:=: 


35 


void LPC_interpoIateJpc_4to2 (FLOAT64 lsf_l [J, FLOAT64 lsf_2 [], 

FLOAT64 Isfold [], FLOAT64 **pdcf, INT 16 flag) 

{ 

/* */ 


40 


INT16 i; 
FLOAT64 C; 
FLOAT64 tmpmcmfNP]; 
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10 


20 


35 


/* 

Sub-frame #1 *' 


*/ 


/* 

/* 


if (flag == 1) 
{ 


C = 60.0 / 160,0; 

for (i = 0; i < NP; i++) 

tmpmemlij = C*lsf_Ui] + (l-C)*lsfoldli]; 

} 


else 


{ 

C = 60.0 / 80.0; 
15 for (i = 0; i < NP; i++) 

tmpmcmli] = (l-C)*lsf_oldlil + C*lsf2[il; 

} 


LPCJsftop (tmpmein, pdcf[0], NP); 


/* 

/* Sub-frame #2 

. */ 

/* 


25 if (flag ==1) 

{ 

C = (60.0 + 80.0) / 160.0; 
for(i = 0;i<NP; i++) 

impmemlil = C*lsf_l[i] + (l-C)*lsf_oldli]; 

30 > 


else 


{ 

C = 60.0 / 80.0; 

for (i = 0; i < NP; i-H-) 

tmpmemfi] = C*lsfJ[i] + (1-C)*lsf_2[i]; 

LPCJsftop (tmpmein, pdcqi], NP); 
} 


40 LPCJsftop (tmpmein, pdcfl 1 ], NP); 
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/* ♦/ 

/* Update the lsf for interpolation in the next coding frame */ 
/♦ •/ 

5 

cpy_dveclor (lsf_l, Isf_old, 0, NP-1); 

/* */ 

10 return; 

} 

15 /* */ 

/♦FUNCTION : LPC_interpoIatc_lpc_4to3 0- */ 
/♦ _ */ 

20 /* PURPOSE : This function this function generates the LPC */ 
/* cocfllcients by interpolating the lsf */ 

/* (frequency domain). */ 

/* — */ 

/* INPUT ARGUMENTS: */ 

25/* _(FLOAT64 []) lsf.1: first set of lsf. */ 
/* _ (FLOAT64 [])lsf_2: second set of lsf. */ 
/* _ (FLOAT64 []) Isfold; lsf from last frame. */ 
/* _ (INT 16 )flag: switch between interpolation coeff. */ 
/* for quantized (1) or unquantized */ 

30 /» (0) LSF. */ 

/* i */ 

/♦ OUTPUT ARGUMENTS: */ 
/* _ (FLOAT64 **) pdcf: predictor coefficients. */ 
/* V 

35 /* INPUT/OUTPUT ARGUMENTS : */ 
/* _ None. */ 
,* ♦/ 

/* RETURN ARGUMENTS : */ 
/* None. */ 
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void LPC_intcrpolatc_lpc_4to3 (FLOAT64 IsfJ []. FLOAT64 Isf_2 [], 

FLOAT64 lsf_old [], FLOAT64 **pdcf, INT16 flag) 


10 


{ 

/* 


INT16 i; 
FLOAT64 C; 
FLOAT64 tmpinemfNP]; 


/*- 


-*/ 


/* 

/* Sub-frame #1 */ 


-*/ 


-*/ 


15 if (flag == 1) 

{ 

C= 46.5/ 160.0; 

for (i = 0; i < NP; i-Hf) 

tmpmemli] = C*lsf_l[i] + (l-C)*lsf_old[i]; 

20 } 
else 

{ 

C = 46.5 / 80.0; 
for (i = 0; i < NP; i++) 
25 tmpmcm[i] = (l-C)*lsf_old[i] + C*Isf_2[U; 

} 


LPCJsftop (tmpmem, pdcflO], NP); 


30 /' 


'*_ 


-*/ 


/* Sub-frame #2 */ 

/* V 


if (flag == 1) 
35 { 

C = (46.5 + 53.0) / 160.0; 
for (i = 0; i < NP; i++) 

tmpmcm[il = C*lsf_l[i] + (l-C)*lsf_old[i]; 

} 

40 else 
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{ 

C = 20.0 / 80.0; 
for (i = 0; i < NP; i++) 

tmpmem(i] = C*lsf_l|i] + (1-C)*lsf_2|i); 

LPCJsflop (tmpmem, pdcfl 1 ] , NP); 
} 

LPCJsftop (tmpmem, pdcfll], NP); 

/* */ 

/* Sub-frame #3 */ 

/* */ 

15 if(flag==l) 
{ 

C = (46.5 + 2.0*53.0) / 160.0; 
for (i = 0; i < NP; 

tmpmemli] = C*lsf_l[i] + (l-C)*lsfoldfi]; 

20 } 
else 

{ 

C = (20.0 + 53.0)/ 80.0; 
for (i = 0; i < NP; i++) 
25 tmpmem|i] = C*lsf_lli] + (l-C)*Isf_2[il; 

} 

LPCJsftop (tmpmem, pdcf[2], NP); 


30 


35 


-*/ 


/* Update the Isf for interpolation in the next coding frame */ 
/» ♦/ 

cpy_dvector (lsf_l, 1sf_old, 0, NP-1); 

/• */ 

return; 


40 /*- 
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5 /* 


/♦FUNCTION : LPC_convsmO- 
/* 


*/ 


*/ 


/* PURPOSE : This function convolve coefficients for */ 
/* symmetric polynomials. 
10 /* — 


*/ 


/* INPUT ARGUMENTS: 

/* _ (INT 16 *)N: number of coefficients. 
/* (FLOAT64 ) A: cosinusoidal coefficient. 
/* " 


*/ 
*/ 


*/ 


15 /* OUTPUT ARGUMENTS: 
/* _ None. 

/* INPUT/OUTPUT ARGUMENTS : 
/* _ (FLOAT64 []) X: input/outuput signal. 
20 /* - ■ 


-*/ 


/* RETURN ARGUMENTS : 
/* _ None. 


*/ 


*/ 


25 void LPC_convsm (FLOAT64 X[], INT 16 *N, FLOAT64 A) 
{ 

/* 


-*/ 


30 


INT16 k, n; 


n = (*N); 

35 if(n>=2) 
{ 

Xln+l] = X[n-ll; 

for(k = n+l;k>=3;k-) 

Xfk] = X[k] + A * X[k-1] + X[k-2], 

40 
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X[2]=Xf2] + A*X[1J + 1.0; 

XIM = X[1J + A; 

} 

else if (n ==1) 
5 { 

X[2) =2.0 + A*X[1J; 
X[l] = X[l] + A; 
> 

else if (n -= 0) 
10 X[l]-A; 

n = n+ 1; 

(*N) = n; 

15 

/* */ 

return; 

20 /* */ 

} 


/*- 


25 ____„__^^ 

/♦FUNCTION : LPCJmpuIseResponsc (). */ 

/* V 

/* PURPOSE : This function calculates the LPC synthesis */ 
/* filler filter response including perceptual */ 

30 /* weighting. */ 

/* ♦/ 

/* INPUT ARGUMENTS : */ 

/* _ (FLOAT64 []) wpdcf_zero: prccetual filter numerator */ 

/* coefficients. */ 

35 /* _ (FLOAT64 []) wpdcf_pole: precetual filter denominator */ 
/* coefficients. */ 
/* _ (FLOAT64 []) pdcfq: quantized prediction coeff. */ 
/* _(INT16 )l_sf: sub-frame size. */ 
/* ♦/ 

40 /* OUTPUT ARGUMENTS : */ 
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/* _ (FLOAT64 []) hh: impulse response. */ 


-*/ 


/* INPUT/OUTPUT ARGUMENTS : * ! 
/* _ None. */ 

5 ,* */ 

/* RETURN ARGUMENTS : */ 
/* _ None. */ 
/♦==============-==================^== 


10 void LPCJmpulseResponse (FLOAT64 hh[J, FLOAT64 wpdefzero 

FLOAT64 wpdcf_polc[], FLOAT64 pdcfq 0, 
INT16 1_sf) 

{ 

/* */ 


15 


25 


30 


35 


40 /' 


*= 


FLOAT64 lmpmeiTi[NPJ; 


20 ini_dvcctor (hh, 0, l sf- 1 1 0.0); 

LPCjrtoa (wpdcf_zcro, hh, NP); 

ini_dvector (tmpmem, 0, NP-l, 0.0); 
FLT_allsyn (hh, !_sf, pdcfq, NP, hh, tmpmem); 


ini_dvcctor (tmpmem, 0, NP-l, 0.0); 

FLT_allsyn (hh, I_sf, wpdcf_pole, NP, hh, impmem); 


return; 


} 


,* */ 

/♦ END — */ 
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/*==^==============================-============================== 

/* Conexant System Inc. */ 
5 /* 4311 Jamboree Road */ 
/* Newport Beach, CA 92660 */ 
/* */ 

/* Copyright(C) 2000 Conexant System Inc. */ 

/♦ */ 

10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

15 /* PROTOTYPE FILE: libjpc.h */ 

/* */ 

/* FUNCTIONS */ 

20 /* */ 

void LPC_inil_lib (void); 

void LPC_analysis (INT16, FLOAT64 [], FLOAT64 [], FLOAT64 [], 

25 FLOAT64 [], FLOAT64 [], FLOAT64 *, FLOAT64 □, 

FLOAT64 [], INT16, FLOAT64 *, INT16); 

void LPC_autocorreIation (FLOAT64 [], INT16, FLOAT64 [], INTI6); 

void LPCJeroux_gucguen (FLOAT64 [], FLOAT64 [], FLOAT64 *, INT16); 


30 


35 


void LPC_refl2prcd (FLOAT64 [], FLOAT64 [], INT 16); 

void LPCJpctolsf (FLOAT64 [], FLOAT64 [], INT 16); 
FLOAT64 LPC_chebyshev (FLOAT64, FLOAT64 [], INT 16); 

void LPCjJtoa (FLOAT64 [], FLOAT64 0, INT16); 

void LPCJsftop (FLOAT64 [], FLOAT64 [J, INT16); 

void LPC_j>red2refl (FLOAT64 [], FLOAT64 [J, INT16); 


40 
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void LPC_adptive_interp (FLOAT64 [), FLOAT64 [], FLOAT64 [], FLOAT64 ♦* 

INTI6 *); 


void LPC_adplivc.inteip.dec (FLOAT64 [), FLOAT64 [], FLOAT64 **. INT16); 

5 

void LPC>terpolateJpc_4lo3 (FLOAT64 [], FLOAT64 [], FLOAT64 [], 

FLOAT64 **, INT16); 
void LPC_inlerpoIate Jpc_4to2 (FLOAT64 [], FLOAT64 [], FLOAT64 G, 

10 

FLOAT64 **, INT16); 
void LPC.convsm (FLOAT64 [], INT16 *, FLOAT64); 

15 void LPCJmpulseResponsc (FLOAT64 [], FLOAT64 [], FLOAT64 [], FLOAT64 [], 

INT16); 
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/*= 
20 /*- 


END *' 


i 
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/♦ Conexant System Inc. */ 
5 /* 43 1 1 Jamboree Road */ 
/* Newport Beach, CA 92660 */ 
/* ♦/ 

/* Copyrighl(C) 2000 Conexant System Inc. "*/ 

/♦ V 

10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used lo make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 


15 /* LIBRARY: libjtp.c */ 


— */ 


/* INCLUDE */ 

20 /* */ 

#includc "lypedef.h" 

#include "main li" 
25 ^include "const. h" 
^include "gputil.h" 
^include "mcuul.h" 

^include "cxt_var.li" 

30 

#inciude "libJlUi" 
^include "libjtp.h" 
^include "lib_pit.li" 


35 /' 


/♦ FUNCTIONS V 

/* */ 


40 /* FUNCTION : LTPJnil Jib 0 
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/♦ — */ 

/* PURPOSE : This function initialise the gloval variable of the */ 

/* library LTP. */ 

/♦ ♦/ 

5 /* ALGORITHM : */ 

/* , */ 

/* INPUT ARGUMENTS : */ 
/* _ None. */ 

/* */ 

10 /* OUTPUT ARGUMENTS : */ 
/* _ None. */ 
/* ♦/ 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ None. */ 

15 /* */ 

/* RETURN ARGUMENTS : */ 
/* _ None. */ 

20 void LTP_init_lib (void) 
{ 

/+ */ 


ini_dvector(Iag_f, 0, N_SF_MAX-1, 30.0); 


25 


/*- 


30 


min_pit = MINLAG; 
max_pit = HI_LAG; 

LTPInitJSincWindows 0; 
LTP^generate_PitLagTabO; 


/*- 


35 


return; 

/* ♦/ 

} 


40 
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*/ 




/* FUNCTION : Hwind 0- *' 

5 /* */ 

/* PURPOSE : This function returns a value of a Hamming window 
/* centered at WinLim. */ 
/♦ " */ 

/* ALGORITHM : */ 

10 /* */ 

/* INPUT ARGUMENTS : */ 

/* _ (INT16 ) WinLim: the center of the Hamming window. */ 

/* _(FLOAT64)t: the location of the value. */ 

/* _ — */ 

15 /* OUTPUT ARGUMENTS : */ 
/* _ None. */ 

I* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ None. */ 

20 /* */ 

/* RETURN ARGUMENTS : */ 
/* _ (FLOAT64 ) val: hamming window value at t. */ 


25 

FLOAT64 Hwind (FLOAT64 t, INT16 WinLim) 
{ 

/* 


30 FLOAT64 val, x; 

/* */ 

val = 0.0; 

35 

if(fabs(t) <- WinLim) 
{ 

x = cos(l*PI/WinLiin); 
val = 0.54 + 0.46 * x; 
40 } 
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/*- 


return val; 

*/ 


/* 
} 


10 


/* FUNCTION : sincFwin2 0 */ 


/ 


/* PURPOSE : This function returns returns a value of a Hamming */ 
15 /* windowed STNC function to interpolate a discrete */ 

/* digital signal. */ 

/* _ */ 

/* ALGORITHM : * 7 

/* ♦/ 

20 /* INPUT ARGUMENTS : * 7 

/* _ (INT16 ) WinLim: the center of the Hamming window. */ 
/* _ (FLOAT64 ) t: the location of the value. */ 


/*- 


-*/ 


/* OUTPUT ARGUMENTS : *' 
25 /* None. */ 


/ 


/* INPUT/OUTPUT ARGUMENTS : * / 
/* _ None. */ 

/. */ 

30 /* RETURN ARGUMENTS : */ 
/* _ (FLOAT64 ) F: hamming window value at t. */ 


35 FLOAT64 sincFwin2(FLOAT64 t, INT16 WinLim) 
{ 


FLOAT64 x, num, den, sine; 
40 FLOAT64 F; 
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10 


15 


20 


x = t; 

if(labs(0< 0.000001) 
F= 1.0; 

else 

{ 

if (WinLim <= 6) 

{ 


else 


nuin = sin(x*PI*0.9); 

den = PI*x*0.9; 

sine = num / den; 

F = H\vind(t, WinLim) * sine; 

} 

{ 

num = sin(x*PI*0.95); 

den = PI*x*0.95; 

sine = num / den; 

F= Hwind(t, WinLim) * sine; 

} 


25 


/*- 


-*/ 


return F; 


30 


/*-- 


-*/ 


35 /*= 


/* FUNCTION : sincFwin 0 
/♦ 


♦/ 


/* PURPOSE : This function returns returns a value of a Hamming */ 
/* windowed SINC function to interpolate a discrete */ 

40 /* digital signal. V 
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/* •/ 

/* ALGORITHM : * 7 
;* */ 

/* INPUT ARGUMENTS : *' 
5 /* _(INT16 ) WinLim: Uie center of the Hamming window. 

/♦ _ (FLOAT64 ) l: the location of the value. */ 

/* 


*/ 

*/ 


/* OUTPUT ARGUMENTS : 
/* _ None. 

10 /* - *' 

/+ INPUT/OUTPUT ARGUMENTS : 
/* _ None. *' 

/* 

/* RETURN ARGUMENTS : 

15 /* _ (FLOAT64 ) F: hamming window valuea at t. */ 


*/ 


FLOAT64 sincFwi n(FLO AT64 I, INT 16 WinLim) 
20 { 

/* 


*/ 


25 


FLOAT64 x, num, den, sine; 
FLOAT64 F; 


30 


35 


x = t; 

if(fabs(t)< 0.000001) 
F= 1.0; 


else 


{ 

num = sin(x*PI); 

den = PI*x; 

sine — num / den; 

F = Hwind(t,WinLim) * sine; 

} 


40 


/*-- 
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return F; 


/* 

} 

5 

/* „ 


/* FUNCTION : D2A_InlcrpWeight 0- 

10 /* */ 

/* PURPOSE : This function produces a weighting function wG for */ 
/* the purpose of interpolating signal. */ 
/* */ 

/* ALGORITHM : */ 
15 /* */ 

/* INPUT ARGUMENTS : */ 
/* _ (INT16 ) WinLim : half Weighting function length. */ 
/* _ (FLOAT64 ) f : Interpolation fractional value. */ 
/* */ 

20 /* OUTPUT ARGUMENTS : */ 
/* _ (FLOAT64 []) vv : Weighting function. */ 

/* V 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ None. */ 

25 /♦ */ 

/* RETURN ARGUMENTS : */ 
/* _ None. */ 


30 void D2AJnterpWeight (FLOAT64 w[], FLOAT64 f, INT16 WinLim) 
{ 

/* */ 

rNT16 k; 
35 FLOAT64 C; 

/* r*/ 

/* Sine Function */ 


/*- 


40 


BNSDOCIDkWO 01224O2A1 I > 


WO 01/22402 


PCT/USOO/25182 


550 

for (k = 0; k < 2* WinLim; k++) 

\v[k] = sincFwin((f+WinLim-l-k), WinLim); 

/* */ 

5 /* Normalization */ 

/*_ V 

C = 0; 

for (k = 0; k < 2*WinLim; k++) 
10 C+=w[k]; 

C= 1.0/MAX(C, 0.1); 

for (k = 0; k < 2*WinLim; k++) 
w[k] *= C; 

15 


20 


return; 


/* */ 

} 


25 /* */ 

/♦=================================================================*/ 

/* FUNCTION : D2A_InlcrpWeight2 0- *> 

,* _:. . */ 

30 /* PURPOSE : This function produces a weighting function w[] for */ 

/* the purpose of interpolating signal. */ 

/* */ 

/* ALGORITHM : */ 

/* ♦/ 

35 /* INPUT ARGUMENTS : */ 

/* _ (INT16 ) WinLim : half Weighting function length. */ 

/* (FLOAT64 )f: Interpolation fractional value. */ 

/* */ 

/* OUTPUT ARGUMENTS : */ 
40 /* _ (FLOAT64 f]) w : Weighting function. */ 
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/«■ V 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ None. */ 

/+ V 

5 /* RETURN ARGUMENTS : */ 
/* _None. */ 


void D2A_IntcrpWcight2(FLOAT64 w[],FLOAT64 f,TNT16 WinLim) . 
10 { 


15 


30 


TNT16 k; 
FLOAT64 C; 

/* */ 

/* Sine Function */ 

/* */ 


20 for (k = 0; k < 2* WinLim; k++) 

w[k] = sincF\vin2((f+WinLirn-l-k), WinLim); 

/* */ 

/* Normalization */ 
25 /* */ 

C-0; 

for (k = 0; k < 2*WinLim; k++) 
C += w|kj; 


C- 1.0/MAX(C, 0.1); 
for (k = 0; k < 2* WinLim; k++) 
w[kj *= C; 


35 /* 


reiurn; 


/* */ 

40 } 
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5 /* FUNCTION : D2A_interp 0 */ 


r 


/ 


/* PURPOSE : This function produces a interpolation of digital */ 
/* signal to return the signal value between two samples */ 

/* */ 
10 /* 


-*/ 


/* ALGORITHM : */ 
/* 


/* INPUT ARGUMENTS : */ 

/* _ (FLOAT64 []) w : Weighting function. */ 
15 /* _ (FLOAT64 []) s : signal. */ 

/♦ (INT 16 ) WinLim : half Weighting function length. */ 

/* (INT16 ) Len : Lengtli of signal. */ 

/* _ (FLOAT64 ) t : Time point of the signal value */ 

/* between two samples. */ 
20 /* */ 

/* OUTPUT ARGUMENTS : */ 

/* None. */ 

/* INPUT/OUTPUT ARGUMENTS : */ 
25 /* _None. */ 

/» */ 

/* RETURN ARGUMENTS : */ 
/* _ (FLOAT64 ) X : Interpolated signal sample. */ 

30 

FLOAT64 D2A_inlerp (FLOAT64 w[],FLOAT64 s[],INT16 Lcn,FLOAT64 l,INT16 WinLim) 
{ 

35 INT16 k,Ll,L2,LowL, HighL; 

FLOAT64 X; 

/♦ */ 

40 LowL =(INT16)t-WinLim+l; 
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LI = MAX(0,LowL); 
HigliL = LowL+2*WinLim; 
L2 = MIN(Lcn,HighL); 
X = 0.0; 

for.(k = Ll;k<L2; k++) 

X+= sfk]*w[k-LowLJ; 


10 


-*/ 


15 


return X; 


-*/ 


/*- 


-*/ 


20 /* FUNCTION : LTP_lag_to_idx7b (). 
/* 


-*/ 


/* PURPOSE : This function produces the extract the 7 bits index */ 


/* 
/+ 

25 /* 


corresponding to the pitch value 


*/ 


30 /< 
/" 
/* 
/*■ 

/' 

35 /* 
/* 


/* RETURN ARGUMENTS : 

/* _ (TNT 16 ) idx : corresponding index. 


*/ 


ALGORITHM : 

*/ 

_ .* 

INPUT ARGUMENTS : 


_ (FLOAT64 ) pit : pitch value. 

* 

1 OUTPUT ARGUMENTS : 


_ None. 

*/ 

* 

' INPUT/OUTPUT ARGUMENTS : 


_ None. 

*/ 


* 


■*/ 


*/ 


*/ 


*/ 
*/ 


40 
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INT 16 LTPJag_to_idx7b (FLOAT64 pit) 
{ 

/* 


FLOAT64 Min, D; 
INT 16 i, idx; 


10 if(pit<53){ 

Min = fabs(PitLagTab7b[0] - pit); 
idx = 0; 

for(i= l;i<=60;i++){ 

D = fabs(PitLagTab7b[i] - pit); 
15 if(D<Min){ 
Min = D; 
idx = i; 

} 

} 

20 } 

else { 

idx = ( P it-PitLagTab7b[60J) + 0.5; 

idx= MIN(60 + idx, M AX_P ITJDX_7b) ; 

} 

25 


return (idx); 


} 


/♦FUNCTION : LTPJag_to_idx8b 0 * ; 
35 /* */ 

/* PURPOSE : This function produces the extract the 8 bits index */ . 

/* corresponding to the pitch value */ 

/* */ 

/* */ 

40 /* ALGORITHM : */ 
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— */ 


/* INPUT ARGUMENTS : *' 
/* _ (FLOAT64 ) pit : pilch value. */ 
/« 


/ 


5 /* OUTPUT ARGUMENTS : * f 
/* _ None. *' 
/* 


-*/ 


/* INPUT/OUTPUT ARGUMENTS : *' 
/+ _ None. */ 
10 /* 


-*/ 


/* RETURN ARGUMENTS : */ 
/* _(INTI6 ) idx : corresponding index. */ 


=*/ 


15 INT16 LTP_lag_toJdx8b( FLOAT64 pit) 
{ 

FLOAT64 Min, D; 
INT16 i, idx; 

20 

if (pit <= 33.2) { 
idx = (INTl6)((pit-MTN_LAG)/0.2 + 0.5); 

} 

25 else { 

if(pit<44){ 

Min = fabs( PitLagTab8b[8 1 ] - pit); 
idx = 81; 

for(i = 82; i<= I21;i++) { 
30 D = fabs( PilLagTab8b[i] - pit); 

if (D <Min) { 
Min = D; 
idx = i; 

} 

35 > 
} 

else { 

if (pit < 62.0) { 

Min = fabs(PilLagTab8b(12IJ - pit); 
40 idx =121; 
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for(i= 122;i<=160;i++){ 

D = fabs(PiiLagTab8b[i] - pit); 
if(D<Min) { 
Min = D; 
5 idx = i; 

} 

} 

} 

else { 

10 if ( pit < 92) { 

Min = fabs(PitLagTab8b[1601 - pit); 
idx * 160; 

for(i = 161; i<= 199;i++) { 

D = fabs(PitLagTab8b[i] - pit); 
15 if(D<Min){ 

Min = D; 
idx = i; 

} 

} 

20 } 

else { 

idx = (INTl6)((pit - 92) + 199 + 0.5); 

} 

} 

25 } 
} 

idx = MAX(idx, 0); 
idx = MIN(idx, MAX_PIT_IDX_8b); 
30 return (idx); 


/*= 


> 


35 /* FUNCTION : LTP_generatc_PitLagTab 0- *' 

/* 

/* PURPOSE : This function generates the pitch lag table. */ 


/ 


40 /* ALGORITHM : *' 


===*/ 
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/* INPUT ARGUMENTS : *' 

/* _ None. */ 

/♦ */ 

5 /♦ OUTPUT ARGUMENTS : V 
/* _None. */ 

/* V 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* None. */ 

10 /* */ 

/* RETURN ARGUMENTS : */ 
/* _ None. */ 

15 void LTP_gcnerate_PilLagTab (void) 
{ 

/*„ */ 

INT16 i,k; 
20 FLOAT64 D; 

/* */ 

/* 8 bit table */ 

/* */ 

25 

PitLagTab8b[0] = M1N_LAG; 


for (i = 1; i <= MAX_PlT_lDX_8b ; i++) { 
if ( PilLagTab8b[i-l] < 33) { 

PilLagTab8b[il = PitLagTab8b[i-l) + 0.2; 

30 } 

else { 

if (PilLagTab8b[i-lJ <91) { 

D - 0.2+0.8*(PitLagTab8b[i-ll-33.0)/(91.0-33.0); 

PitLagTab8b[i] = PitLagTab8b(i-ll + D; 
35 } 

else { 

k = (INT16)(PitLagTab8b[i-ll+ 1.1); 

PilLagTab8b[il = k; 

} 

40 } 
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/* 

/* 7 bit tabic *' 


PitLagTab7blO] = MIN_LAG; 

for (i = 1; i <= MAX_PIT_IDX_7b ;i++) { 

D = MIN(0.325*PitLagTab7b[i-l]/MTN_LAG, 1); 

10 if(D>0.99) { 

k = PilLagTab7b[i-l] + D + 0.5; 

PitLagTab7b[i] = k; 

} 

else 

15 PitLagTab7bii] = PitLagTab7b[i-l]+D; 

} 


/* 

/* 5 bit table */ 

20 /* 1 


PitLagTab5blO] = 0.0; 
for (i = 1; i <= MAX_PIT_IDX_5b ; i++) { 
if (PitLagTab5bli-l] <= 0.8) 
25 D= 1.0/5.0; 

else { 

if(PitLagTab5b[i-l]<- 1.8) 

D= 1.0/4.0; 
else 

30 D= 1.0/3.0; 

} 

PilLagTab5bli] = PitLagTab5b[i-l] + D; 
} 


/* */ 


40 return; 
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-*/ 


/*================—============= 

/* FUNCTION : LTP_Init_SincWindows 0 


/* 
/* 


15 /* 
/* 
/* 
/* 

/' 

20 /* 
/* 
/* 
/* 
/* 


PURPOSE : This function initializes the table of Sine 

interpolation windows. 

*/ 

*/ 

ALGORITHM : 

*/ 

INPUT ARGUMENTS : 


_ None. 

*/ 

OUTPUT ARGUMENTS : 


_ None. 

*/ 

1 INPUT/OUTPUT ARGUMENTS : 


None. 

*/ 


25 /* RETURN ARGUMENTS : 
/* _None. 


*/ 


*/ 


*/ 


void LTP_Init_SincWindows (void) 
30 { 


35 


FLOAT64 f; 
INT16 i; 


for (i=0;i<NUM_SINC_WIN;i++) { 
f=DELT_F*i; 

40 D2AJnteipWcigha(SincWindows+i*LEN_SmCXSINC_LIMrT); 
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> 

for (i=0;i<NUM_SINC_WlN;i++) { 
f=DELT_F*i; 

5 D 2A_InterpWe ig lU(SincWi n dows_E + i*LEN_SINC_E,f,SINC_LIMlT_E); 
} 

for (i=0;i<NUM_SrNC_WIN;i++) { 
f=DELT_F*i; 

} 


-*/ 


15 


return; 

- */ 


} 


20 


/*= 


*/ 


25 /* FUNCTION : LTP_excit_vari_pitch 0- 

♦/ 

/* " 

/* PURPOSE : This function calculates LTP excitation with */ 

/* interpolated pitch track. *' 

*/ 

/♦ " 

30 /* ALGORITHM : *' 

*/ 

/* 

/* INPUT ARGUMENTS : *' 
/* _ (FLOAT64 []) SincWindows : table of interpolation weights. */ 
/* (FLOAT64 []) PitFun : Pitch track. */ 
35/* _(FLOAT64[])LTm: Excitation memory. */ 
/* _ (INT16 ) LJLTm : Length of the excitation memory.*/ 
/* _(INT16 )Len : Length of the LTP excitation. */ 
_ m . — — */ 

/* OUTPUT ARGUMENTS : *' 
40 /♦ _ (FLOAT64 U) E : LTP excitation. */ 
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/• */ 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ None. */ 
/♦ 


*/ 


5 /* RETURN ARGUMENTS : */ 
/* _None. */ 


void LTP_excit_vari_pitch (FLOAT64 *SincWindows,INT16 Lcn_Sinc,INT16 Sinc_Limit, 
10 FLOAT64 PitFun[],INT16 LJLTm,FLOAT64 LTm[],INT16 Len, 

FLOAT64 E[]) 

{ 

/* */ 

15 FLOAT64 t, f, * Weight; 

INT16 k, T t m; 


/*- 


20 for (k = 0; k < Len; k++) 

{ 

t = L_LTm + k - PitFun[k]; 
T - (INT16)t; 
f=t-(FLOAT64)T; 
25 m = (INT16)(P^(FLOAT64)DELT_F2-H).500001); 

Weight = SincWindows + m*Lcn_Sinc; 

Efk] = D2A_intcrp (Weight, LTm, (INT16)(L_LTm+Len), t, 

Sinc_Limit); 
30 LTm [L_LTm+k] = E[k]; 

} 


35 rclurn; 


/+- 

} 


40 
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*/ 

/* 


/* FUNCTION : LTP_excit_consl_pitch 0- 

*/ 

5 /* 

/* PURPOSE ; This function calculates LTP excitation with 
/* constant pitch track. 

/* " 

/* ALGORITHM : 
10 /* „ — 


*/ 


*/ 


— */ 
*/ 

— */ 


/♦ INPUT ARGUMENTS : *' 
/* __(FLOAT64 )Pit_f: Pilch lag (fractional). */ 
/♦ _ (FLOAT64 []) LTm : Excitation memory. 
/* ~ (INT16 ) LLTm : Length of the excitation memory */ 
15 /* (INT16 )Len : Length of the LTP excitation. */ 
/* (INT16 )mem_flag : memory update flag. 

/* 

/* OUTPUT ARGUMENTS : 

/* _(FLOAT64[])E: LTP excitation. */ 
20 /* : 


*/ 


*/ 
-*/ 

*/ 


/* rNPUT/OUTPUT ARGUMENTS : 
/* _None. 

/* — 

/* RETURN ARGUMENTS : 
25 /* None. 

/* =s ======================= ============== 


-*/ 

*/ 

*/ 

*/ 


void LTP.eXci,.cons,_pitch (FLOAT64 Pit_f,IMT16 L_LTm, FLOAT64 LTmUJN™ Len, 

FLOAT64 E[],INT16 memjlag) 

30 { 

*/ 


35 


FLOAT64 t, f, *Weight; 
INT16 k, T, m; 





40 


t = L_LTm - Pit_f; 
T = (INT16)t; 
f=t-(FLOAT64)T; 
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in = (INT16)(r*CFLOAT64)DELT_F2 + 0.500001); 
Weight = SincWindows_E + m*LEN_SINC_E; 

for (k = 0; k < Lcn; k-M-) 
{ 

t = LLTm + k - Pit_f; 

E[k] = D2AJnterp (Weight, LTm, (INT 1 6)(L_LTm+Len), t, 


10 


SrNC_LIMIT_E); 
if (mcm_flag ==1) 

LTm[L_LTm+k] = E[kJ; 

} 


15 


return; 


-*/ 


-*/ 


20 


/*= 


=*/ 


25 /* FUNCTION : LTP_FineIndcx_scarch (). 

/* */ 


V 


/* PURPOSE : This function does the fine search of the correlation.*/ 



/*- 



-*/ 


/* 

ALGORITHM : 

*/ 


30 

/*■ 



-*/ 





/* 

INPUT ARGUMENTS : 


*/ 


/* 

_ (FLOAT64 []) PitTab: table of pitch values. 

*/ 


/* 

_ (INT16 ) PI : 

sarch minimum value. 

*/ 


/*■ 

_ (INT16 ) P2 : 

sarch maximum value. 

*/ 

35 

/* 

_(INT16 )LowL : 

lower pitch value. 

*/ 


/♦ 

_ (INT16 ) L_R: 

length of correlation. 

*/ 


/♦■ 



-*/ 






/* 

OUTPUT ARGUMENTS 


*/ 


/* 

_ (INT16 ) index : 

memory update flag. 

*/ 

40 

/*■ 



-*/ 
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/* INPUT/OUTPUT ARGUMENTS : *' 
/* _ (FLOAT64 []) R: correlation. */ 


-*/ 


/♦ RETURN ARGUMENTS : *' 
5 /* _None. *' 

void LTP_Finelndex_scarch (FLOAT64 PitTabQ. INT16 P1JNT16 P2.INT16 LowL, 
INT16 L_R,FLOAT64 R[] JNT16 *indcx) 

10 { 

/* */ 

FLOAT64 t, GG, f, MaxR=0, * Weight; 
INT16 i,T, in; 


15 


/♦ */ 

/* Search for the best precise pitch and index */ 
/* -V 


20 for(i = Pl;i<=P2;i++) 

{ 

t = PitTab[i] - LowL; 
T=(INT16)t; 
f=t-(FLOAT64)T; 
25 in = (INT16)(f*(FLOAT64)DELT_F2 + 0.500001); 

Weight = SincWindows + m*LEN_SINC; 
GG = D2A_intcrp(Weight, R, L_R, I, SINC_LIMIT); 
if(i ==P1 || GG > MaxR) 
{ 

30 MaxR = GG; 

(*index) = i; 
} 

} 

35 T = (INT16)(PitTab[*index] + 0.5 - LowL); 

R[TJ = MaxR; 


40 return; 
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/*- 


-*/ 


-*/ 


/* FUNCTION : LTP_PP_pitch_ext 0- *' 

10 /* */ 

/* PURPOSE : This function extracts the adaptive codcbook 
/* excitation for pitch pre-processing (Mode 1) at the */ 


/* 


encoder. 


•7 


/* 

15 /* ALGORITHM : 
/* 


- -*/ 
*/ 

-*/ 

/* 

INPUT ARGUMENTS : 


*/ 

/* 

_ (FLOAT64 1]) PitFun: Pitch track. 

*/ 

/* 

_ (FLOAT64 []) Tgs: 

target signal. 

*/ 

20 /* 

_(FLOAT64 [])ext: 

excitation signal. 

*/ 

/* 

_ (FLOAT64 []) hh: 

impulse response. 

+i 

/* 

_ (INT 16 )i_sf: 

sub-frame number. 

*/ 

/* 

_ (INT 16 )l_sf: 

sub-frame size. 

*/ 

/*■ 



*/ 


25 /* OUTPUT ARGUMENTS : 

/* (INT 16 *)lag: lag value. */ 
_ (FLOAT64 *) lag_f: fractional lag value. 
_(FLOAT64 *)R_llp: pitch correlation. 
_ (FLOAT64 []) unfcod: unfiltcred excitation. 
_ (FLOAT64 []) fcod: filtered excitation. 


/* 
/* 
/* 

30 /* 

/*■ 


*/ 
*/ 
*/ 


/* INPUT/OUTPUT ARGUMENTS : 
/* _ None. 


35 /* RETURN ARGUMENTS : 
/* _ None. 

/*================== 


*/ 


void LTPJ>P_pitch_etf (FLOAT64 PitFun [],FLOAT64 Tgs [], FLOAT64 ext [], 
40 FLOAT64 hh [], INT 16 i_sf,FLOAT64 *unfcod, 
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FLOAT64 *fcod, INT16 *Iag, FLOAT64 *lag_f, 
FLOAT64 *R_ltp t INT 16 !_sf) 


/*- 


-*/ 


FLOAT64 numerator, denominator, eng_Tgs, tmp[L_SF]; 


FLOAT64 *buf; 


10 


buf = dvector (0, l_sf-l); 


15 


/* 

/* 

/* 


LTP excitation : unfcodf] 


20 


cpy_dvector(exl + MAX LAG, tmp, 0, L_SF-1); 

LTP_excit_vari _pitch(SincWindows_E, LEN_SINC_E, SINC_LIM1T^E, PitFun, 

MAX LAG, ext, l_sf, unfcod); 


cpy_dvccior(imp, ext+MAX_LAG, 0, L_SF-1); 


25 


/*- 

/* 

/*- 


*/ 


Filter the pitch vector (LTP excitation) */ 


filterAZ (hh, unfcod, fcod, buf, (INT16)(l_sf-l), l_s0; 


30 


/*- 

/* 

/*- 


Integer pitch 


-*/ 


35 


Iag[i__sf| = (INT16)(MIN(PitFun[Ls€^2]+0.5 t max_pit)); 
lagJlLsf] = PilFun[l_sff2]; 


40 


/* 
/*- 


Compute die pitch gain (LTP gain) 
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dot_dvcctor (Tgs, fcod, &numcrator, 0, I_sf-1); 
dot_dvector (fcod, fcod, &denominator, 0, !_sf-l); 
dot_d vector (Tgs, Tgs, &eng_Tgs, 0, l_sf-l); 

(*RJtp) = MAX(numerator, 0.0) / sqrt(MAX(dcnominator*engJTgs > 0.1)); 

5 


free_dvector (buf, 0, l_sf-l); 

10 /* ♦/ 

return; 

/* ♦/ 

15 } 

/* */ 

20 /* FUNCTION : LTP_PP_pitch_ext_dccod 0- *' 

/* */ 

/* PURPOSE : This function extracts the adaptive codebook */ 
/* excitation for pitch pre-processing (Mode 1) at the */ 

/* decoder, */ 

25 /* */ 

/* ALGORITHM : */ 

/* ♦/ 

/* INPUT ARGUMENTS : */ 

/* _ (FLOAT64 []) PitFun: Pitch track. */ * 

30/* _ (FLOAT64 []) ext: excitation signal. */ 
/* _ (INT16 ) i_sf : sub-frame number. */ 
/* _ (INT 16 ) l_sf : sub-frame size. */ 

/* */ 

/* OUTPUT ARGUMENTS : */ 

35 /* _(INTI6 *)lag: lag value. ♦/ 

/* _ (FLOAT64 *) lag_f: fractional lag value. */ 
/* _ (FLOAT64 []) unfcod: unfiltcrcd excitation. */ 

/* */ 

/♦ INPUT/OUTPUT ARGUMENTS : */ 

40 /* _None. ♦/ 
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/♦ */ 

/♦ RETURN ARGUMENTS : * f 
I* _None. */ 

5 

void LTP_PP_pitch_ext_decod (FLOAT64 PilFun[],FLOAT64 cxt[], INT16 i_sf, 

FLOAT64 *unfcod, INT 16 *lag, FLOAT64 *Iag_f, INT 16 Lsf) 


{ 


10 


FLOAT64 tmp[L_SF]; 


/*- 


*/ 


/* LTP excitation : unfcod[] */ 


15 /*- 


-*/ 


cpy_dvector (cxt+MAXJ-AG, Imp, 0, L_SF-1); 

LTP.cxcit.vari^itclKSincWindows.E, LEN_SINC_E, SINC_LIMTT_E, PitFun, 

MAX LAG, cxt, l_sf, 

20 unfcod); 

cpy_dveclor(tmp, cxt+MAX LAG, 0, L_SF-1); 


/* 


-*/ 


25 /* Pitch */ 
/* 


-*/ 


laglLsf] = (INT16)(PitFun[l_s(72]+0.5); 
lagJlLsfl = PitFun[l_sl72]; 


30 


return; 

35 /* 

} 


40 /*= 


=*/ 
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569 


/* PURPOSE : This function performs the traditional search of the */ 
/* the adaptive codebook in Mode 0. */ 
5 /* V 


/* ALGORITHM : 

/* INPUT ARGUMENTS 
/* _(FLOAT64 [])Tgs: 
10 /* _ (FLOAT64 []) cxt: 
/* _ (FLOAT64 []) hh: 
/* _(INT16 )i_sf: 
/* _(INT16 )l_sf: 


target signal, 
excitation signal, 
impulse response. 

sub-frame number. 

sub-frame size. 


...♦/ 

*/ 
*/ 
*/ 
*/ 

*/ 

*/ 


/* _ (INT 16 ) fnn_class_pp : pitch prc-proc. classification. */ 


15 

/*■ 



— v 


/* 

OUTPUT ARGUMENTS : 


*/ 


/* 

_(1NT16 *)lag: 

lag value. 

*/ 


/* 

_(FLOAT64 *)lag_f: 

fractional lag value. 

V 


/* 

_(FLOAT64 *)pgain: 

pitch gain. 

*/ 

20 

/* 

_(FLOAT64 *)R_ltp: 

LTP criterion. 

*/ 


/* 

_ (FLOAT64 []) unfcod: 

unfiltered excitation. 

*/ 


/* 

(FLOAT64 []) fcod: 

filtered excitation. 

*/ 


/* 

_ (INT16 *) piljdx : 

pitch index. 

*/ 


/*- 



— V 






25 

/* 

INPUT/OUTPUT ARGUMENTS : 

*/ 


/* 

_ None. 

*/ 



/*- 



— */ 


/* RETURN ARGUMENTS 
/* _ None. 

30 /*=================== 


*/ 


void LTP_close_7b_pitch(FLOAT64 Tgs [], FLOAT64 ext [J, FLOAT64 hh [], 

INT16 i_sf, FLOAT64 unfcod [J, 
FLOAT64 fcod [], INT 16 *lag,FLOAT64 *lag__f, 
35 FLOAT64 *pgain, FLOAT64 *R_ltp, INT16 l_sf, 

INT16 frm_class_pp, INT 16 pit Jdx []) 

{ 

/* */ 


40 


FLOAT64 


pit_f, numerator, denominator, MaxR, eng_Tgs; 
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FLOAT64 ftinpfL_SF]; 

INT16 i, k, IP1, IP2, LRp, PITCHi; 

FLOAT64 *buf; 

FLOAT64 Rpl201 = {0.0}; 


/*- 

/* 

/*- 


Allocate temporary memory 


-*/ 
*/ 
-*/ 


10 


buf = dvector (0, l_sf-l); 


15 


20 


25 


/*- 

/* 

/*- 


Searching range 


if (laglLsfl < M1N_LAG2) 

lag[i_sf] *=2; 
IP1 = MAX(MLN_LAG2, lag[i_sf] - 3); 
IP2 = MIN(HI_LAG2, lag[i_sfj + 3); 

if ((frm_c1ass_pp > 0) && (i_sf == N_SF2-1) && <lag[i_sf| > l_sf*0.75)) 
{ 

IP1 = MAX(MIN_LAG2, lag[i_sf]-l); 
IP2 = MIN(H1_LAG2, lag(i_sf]+l); 
} 


/*- 

/* 

/*- 


Integer correlation for integer lag 


•7 


*/ 


30 


L_Rp =IP2-1P1 + 1; 


#ifdef VERBOSE 

if (L_Rp>= 20) 
35 nrcrror("L_Rp>=20 ! !"); 

#endif 


40 
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for (i = IP1; i <= 1P2; i++) 
{ 

if (i == IP1) 

filterAZ (hh, cxt+MAX_LAG-i, ftmp, buf, 

5 

<TNJ16)(I_sf-l), l_sf); 
else 

{ 

for(k=l_sf-l;k>0;k-) 
10 ftmprk] = Amp[k-1] + e\l[MAX_LAG-i]*hh[k]; 

ftmpIOJ = ext[MAX_LAG-i]*hhIO|; 
} 

dot_dvcctor (Tgs, ftmp, &Rp[i-IPl], 0, I_sf-I); 
15 dot_dvcctor(ftmp, ftmp, ^denominator, 0, l_sf-l); 

Rp[i-TPl] /= sqrt(MAX(denominator, 0.1)); 


} 


20 /*- 


./* Searching for integer pitch 


MaxR = Rp[0J; 
25 PITCHi = IP i; 

for(i = IPl+l;i<=IP2;i++) 
{ 

if(Rp[i-IPl]>MaxR) 
{ 

30 MaxR = Rp[i-IPl]; 

PITCHi = i; 
} 

. } 

if ((MaxR < 0) && (i_sf==N_SF2-l ) && (frm_class_pp > 0)) 
35 PITCHi = lag[i_sf|; 

/* */ 

/* Fine index searching */ 

40 
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piMdx[i_sfl = PITCHi - MINLAG2; 
pit_f= PITCHi; 
laglLsQ = PITCHi; 
lag Jli.sf] = PITCHi; 


/* LTP excitation : unfcod[] */ 

*/ 


10 cpy_dvector (ext+MAXJLAG, ftmp, 0, l_sf-l); 

LTP_excit_const_pitch (pitj, MAX_LAG, ext, l_sf, unfcod, 1); 
cpy_dvector (ftmp, cxt+MAXLAG, 0, l_sf-l); 


/* ' 

/* Filter Hie pitch vector (LTP excitation) */ 

/* */ 

ini_dvector (buf, 0, l_sf-l, 0.0); 

fillerAZ (hh, unfcod, fcod, buf, (INT16)(l_sf-l), l_sf); 


/*- 


7 


/* Compute the pilch gain (LTP gain) */ 
*/ 


/ 


dot_dvcctor (Tgs, fcod, &numcrator, 0, l_sf-l); 

dot_dvector (fcod, fcod, ^denominator, 0, l_sf- 1 ); 

dot_dvector (Tgs, Tgs, &cng_Tgs, 0, l_sf-l); 

(♦pgain) = numerator / MAX(denominator, 0.1); 


*/ 

/* Limit the pitch gain -> 0 <= pgain <= 1.2 */ 


/* */ 


35 if((*pgain)<0.0) 

(♦pgain) = 0.0; 
if ((*pgain)> 1.2) 

(♦pgain) f 1.2; 


40 (*RJtp) = MAX(numerator, 0.0) / sqrt(MAX(denominator*eng_Tgs, 0.1)); 
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5 

frcc_d vector (buf, 0, l_sf-l); 


10 return; 

/* V 

} 

15 /♦ */ 

/* FUNCTION ; LTP_c!ose_8_5k_pitch 0- +/ 

20 /♦ */ 

/* PURPOSE : This function performs the traditional search of the */ 
/* the adaptive codebook for SMV 8.5 kbps. */ 

/* : */ 

/♦ ALGORITHM : */ 

25 /* */ 

/* INPUT ARGUMENTS : */ 
/* _ (FLOAT64 []) Tgs: target signal, */ 

/* _ (FLOAT64 []) ext: excitation signal. */ 
/* _ (FLOAT64 I]) hit: impulse response. */ 

30 /* _ (INT 16 )i_sf: sub-frame number. */ 
/* _ (INT 16 )Lsf: sub-frame size. */ 
/* _(INT16 ) frm_class_pp : pitch pre-proc. classification. */ 

/* ♦/ 

/* OUTPUT ARGUMENTS : */ 

35 /♦ _(TNT16 *)lag: lag value. */ 

/* _ (FLOAT64 *) lag_f: fractional lag value. */ 
/* _ (FLOAT64 *) pgain: pitch gain. */ 
/♦ _ (FLOAT64 *) RJlp: LTP criterion. */ 
/* _ (FLOAT64 []) unfcod: unfiltered excitation. */ 

40 /* _ (FLOAT64 []) fcod: filtered excitation. */ 
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/* _ (INT 16 *) pit_idx : pitch index. 
/* 


574 
*/ 


-*/ 


/* INPUT/OUTPUT ARGUMENTS 
/* _ None. 

5 /♦ 

/* RETURN ARGUMENTS : 
/* _ None. 


*/ 


=«7 


10 void LTP_closc_8_5kj>itch (FLOAT64 Tgs [J, FLOAT64 cxl [], FLOAT64 hh 

INT16 i_sf, FLOAT64 unfcod [], 
FLOAT64 fcod [], INT16 *lag,FLOAT64 *lag_f, 
FLOAT64 *pgain, FLOAT64 *RJtp, INT 16 l_sf, 
INT16 frm_class_pp, INT16 pit_idx []) 


15 


{ 

/* 


20 


FLOAT64 

FLOAT64 

INT16 

FLOAT64 

FLOAT64 


pit_f, numerator, denominator, MaxR, eng_Tgs; 
fimp[L_SF], DilPitTabl331; 

i, k, PP1 = 0, PP2 = 0, IP1, IP2, LowL, HighL, L_Rp, PITCHi; 
*buf; 

Rp[2*SINC_LIMIT+40] = {0.0}; 


25 


7*- 
/* 
/*- 


Allocate temporary memory 


-*/ 

*/ 
-*/ 


buf = dvector (0, l_sf-l); 


30 


/*- 

/* 

/*- 


Searching range 


*/ 


-*/ 


35 


IP1 = MAX(MIN_LAG, lag[i_sf] - 3); 
IP2 = MIN(H1_LAG2, lag[i_sf] + 3); 


40 


if ((i_sf == I) || (i_sf == N_SF4-1)) 
{ 

for(i = 0;t< 16; i++) 

DifPitTab[16+il - MIN (HI_LAG2, 
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for(i= l;i<- 16; i++) 

DifPitTab[16-i] = MAX(MIN_LAG, 


PP1 = 0; 
PP2 = 31; 

if ((frm_class_pp > 0) && (i__sf == N_SF4-1)) 
{ 

IP1 = MAXflVttN LAG, lag[i_sf]-D; 
IP2 = MIN(HI_LAG2, lag[i_sf]+l); 
if(DifPitTab(0] >= IP2) 

PP2 « 0; 
if(DifPitTab[311 <= IP1) 

PP1 = 31; 
for (i = 0; i < 32; i++) 

{ 

if(DifPUTab[il>=IPl) 
{ 

PP1 =i; 
break; 


} 


lagJILsM] + PitLagTab5b[i]); 


lagjli_sf-l] - PilLagTab5b[i]); 


} 


25 


30 


35 


for (i = 31; i>= 0; i») 
{ 

if(Di£PilTabli] <= IP2) 
{ 

PP2 = i; 

break; 

} 


} 


} 


IP1 = DifPitTabrPPI) + 0.5; 
IP2 = DifPitTab[PP2]+0.5; 

} 


40 


/*- 

/* 

/*- 


Integer correlation for integer lag 


-*/ 


*/ 

— */ 
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LowL = IP1 - SINC_LIM1T - 1; 
HighL = IP2 + SrNC_LIMlT + 1; 
L_Rp = HighL - LowL + 1; 

#ifdef VERBOSE 


if (L_Rp >= 2*SINC_LrMIT + 40) 

nrcrrorC , L_Rp>=2*SINC_LrMTT+24 !! \n H ); 

10 

#endif 


15 for (i = LowL; i <= HighL; i++) 

{ 

if (i == LowL) 

filter AZ (hh, cxt+MAX_LAG-i, ftmp, buf, 


20 (lNT16)(l_sf-l), I_sf); 

else 

{ 

for(k = I_sf-l;k>0;k~) 

ftmp[k] = ftinp[k-l] + ext[MAX_LAG-i|*hh[k]; 
25 ftmp[0] = extfMAX_LAG-i]*hh[01; 

} 


dot_dvecior (Tgs, ftmp, &Rp(i-LowL], 0, l_sf-l); 
dot_dvector(ftmp, ftmp, &denominator, 0, l_sf-l); 
30 Rp(i-LowL] /= sqrt(MAX(denominator, 0.1)); 


} 


/♦ */ 

35 /* Searching for integer pitch */ 

/♦ */ 


MaxR - RpfTPl - LowL]; 
PITCHi = IP1; 
40 for (i = IP 1+1; i <= IP2; i++) 
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{ 

if (Rp[i-LowL] > MaxR) 
{ 

MaxR = Rp[i-Lo\vLJ; 

PITCHi = i; 

} 

} 


if ((MaxR < 0) && (frrn_class_pp > 0) && (i_sf == N_SF4-1)) 
PITCHi - lag[i_sf|; 


/* ~ */ 

/* Fine index searching */ 
/* */ 


if ((i_sf == 0) || (i_sf == N_SF4/2)) 
{ 

PP1 = LTPJag_toJdx8b(MAX(PITCHi - 0.9, MIN_LAG»; 
PP2 = LTPJagjoJdx8b(MIN(PITCHi + 0.9, HIJLAG2)); 

LTP_FineIndex__search (PitLagTab8b, PP1, PP2, LowL, L_Rp, Rp, 

pit_idx+i_sf); 


pit_f = PitLagTab8b[pit_idx[i_sf]l; 
lagfLsfl = (INT16)(pit_f + 0.5); 

lagJlLsfl = pit_f; 
} 

else 

{ 

if (DifPUTabfPPll >= (PITCHi+0.9)) 

PP2 = PP1; 
if (DifPitTab[PP2] <= (PITCHi-0.9)) 

PP1 = PP2; 
for (i = PP1; i <= PP2; i++) 

{ 

if (DifPitTab[iJ >= (PITCHi-0.9)) 
{ 

PP1 = i; 

break; 

} 


0122402A1 l_ > 


WO 01/22402 


10 


15 


20 


35 


578 

} 

for (i = PP2;i>= PPl;i-) 
{ 

if (DifPitTab[i] <= (PITCHi + 0.9)) 
{ 

PP2 = i; 
break; 

} 

} 

PP1 = MTN(PP1, PP2); 

LTP_Finelndex_search (DiiPitTab, PP1, PP2, LowL, L.Rp, Rp, 

pit_idx+i_sO; 

pit_f = DifPitTab[piUdx[Lsf]]; 
lagiLsfl = <lNT16)(pit_r + 0.5); 
lagJILsfl = P lX J> 
} 


/*- 

/* 

/*- 


— */ 


LTP excitation : unfcod[] *' 

--*/ 


25 cpy_dvector (cxt+M AX_L AG , ftmp, 0, l_sf-l); 

LTP.excit.const .pitch (pit J. MAX_LAG, ext, l_sf, unfood. 1); 
cpydvector (ftmp, ext+MAXLAG, 0, l_sf-l); 

*/ 

/* " 

10 ,* Filter the pitch vector (LTP excitation) */ 

*/ 

/* 


ini_dvector (buf, 0, l_sf-l, 0.0); 

filterAZ (hh, unfcod, fcod, buf, (lNT16)(Lsf-l), Lsf); 


/* Compute the pitch gain (LTP gain) 


-*/ 

*/ 
-♦/ 


40 dot_dvector(T g s, fcod, &numerator, 0,l_sf-l); 
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dot_dvector (fcod, fcod, &dcnominator, 0, l_sf-l); 
dot_dvector (Tgs, Tgs, &eng_Tgs, 


0, 1 sf-1); 


(♦pgain) = numerator / MAX(denominator, 0.1); 

/*.. ♦/ 

/♦ Limit the pitch gain -> 0 <= pgain <- 1.2 */ 
/♦ ♦/ 


10 


if ((*pgain) < 0.0) 

(♦pgain) = 0.0; 

if((*pgain)> 1.2) 

(♦pgain) = 1.2; 


15 


(*R_ltp) = MAX(numerator, 0.0) / sqrt(MAX(dcnominator*cng_Tgs, 0.1)); 


20 


25 


/*- 

/* 

/*- 


Dcllocate temporary memory 


frcedvector (buf, 0, l_sf-l); 


return; 


-♦/ 
♦/ 
-*/ 


-♦/ 


30 


-♦/ 


/♦== 


/♦ FUNCTION : LTP _pitch_dccodtemp 0 
35 /* 


♦/ 


*/ 


/♦ PURPOSE : This function perfroms a temporary decoding of the ♦/ 
/* LTP infonrtation codebook contribution. ♦/ 
/* */ 

/* ALGORITHM : */ 
40 /* ♦/ 
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/* INPUT ARGUMENTS : 
/* _ (FLOAT64 []) ext: excitation signal. 
/* (INT 16 ) i_sf : sub-frame number. 
/* (INT 16 )L sf : sub-frame size. 
5 /* _ (FLOAT64 ) pit_f: fractional lag value. 
/* — « ~ 


*/ 
*/ 
V 


-*/ 


V 


/+ OUTPUT ARGUMENTS : 
/* _ (FLOAT64 []) unfcod: unfiltered LTP excitation. */ 

*' 


10 /* INPUT/OUTPUT ARGUMENTS : 
/* _ None. 

/* 

/* RETURN ARGUMENTS : 
/* _ None. 

15 


*/ 


=====*/ 


void LTPj.itcli.decodlcmp (FLOAT64 ext [], 1NT16 i_rf, FLOAT64 unfcod []. 

FLOAT64 pit J, 1NT16 l_s0 


20 


/*- 


FLOAT64 LTm [M AX_L AG+L_SF] ; 


25 


30 


/*- 


cpy.dvector (ext, LTm, 0, MAX_LAG-1); 

LTP_excit_const jilch (pit _f, MAXLAG, LTm, l.sf, unfcod, 1); 

*/ 


35 


/*- 


return; 


/*- 


40 /* FUNCTION : LTP_7b_pitch_decod 0- 


-*/ 
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/* ♦/ 

/* PURPOSE : This function decodes the traditional adaptive 
/* codebook contribution. */ 
/♦ */ 


*/ 


5 /* ALGORITHM : 


*/ 


/* 


/* 
10 /* 


/* INPUT ARGUMENTS 
/* _(INT16 )bfi: 
_ (FLOAT64 []) ext: 
_(INT16 )i_sf: 
_ (INT 16 ) l_sf : 


/* 
/* 

/*■ 


bad frame indicator. 

excitation signal, 
sub-frame number, 
sub-frame size. 


_ (1NT16 *) pit_idx : pitch index. 


--♦/ 
*/ 
*/ 
*/ 

V 

*/ 
*/ 
-*/ 


/* OUTPUT ARGUMENTS : 
15 /* _(INT16 *)lag: lag value. */ 

/* _ (FLOAT64 *) lag_f: fractional lag value. 

/* _ (FLOAT64 [J) unfcod: unfiltcred excitation. 

/* */ 

/* INPUT/OUTPUT ARGUMENTS : 
20 /* _None. */ 

/* */ 


*/ 


/* RETURN ARGUMENTS : 
/* _ None. 

/*================= 


*/ 


*/ 


25 


30 


void LTP_7b_pitch_dccod (INT16 bfi, FLOAT64 ext [], INT16 i_sf, 

FLOAT64 unfcod [], INT 16 lag [], FLOAT64 lag_f fl, 
INT16 l_sf, INT16 piMdx []) 

{ 

/* */ 


FLOAT64 


LTm[MAX_LAG+L_SFl, pit_f; 


35 


/*- 

/* 

/*- 


Decode lag 


-*/ 


40 


if (bfi == 0) 
{ 

pit J = pit_idx[i_sf| + MIN_LAG2; 
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25 


/*== 


else 
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lag[i_sfl = (lNT16)(pit_fH).5); 

lagjli_sfl=pit_f; 

} 

{ 

if(i_sf == 0) 

lag[i_sf] = lag[l]; 

else 

lagti_sf]= MIN(lag[i_sf-l], HIJLAG2); 

lagJILsf] = (FLOAT64) lag|i_sf]; 
pit_f = (FLOAT64) lag[i_sf|; 
} 


15 /*- 


/* LTP excitation : unfcod[] */ 


/*- 


-*/ 


cpy_dvector (ext, LTm, 0, MAX_LAG-1); 
20 LTP_cxcit_const_pitch (pit_f, MAX_LAG, LTin, l_sf, unfcod, 1); 

/* */ 


return; 


/* */ 

30 


/* FUNCTION : LTP_8_5k _pitch_decod 0- *' 

/* */ 

/* PURPOSE : This function decodes the traditional adaptive */ 
35 /* codebook contribution in Mode 0. */ 
/♦ ♦/ 

/* ALGORITHM : */ 
/♦ V 

/* INPUT ARGUMENTS : */ 
40 /* _(INT16 )bfi: bad frame indicator. */ 
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/* _ (FLOAT64 []) cxt: excitation signal. */ 

/* _ (INT16 ) i_sf : sub-frame number. */ 

/* _(INT16 )I_sf: sub-frame size. */ 

/* _ (TNT 16 ♦) pitjdx : pitch index. */ 
5 /* */ 

/* OUTPUT^ARGUMENTS : */ 

/* _(INT16 *)Iag: lag value. */ 

/* _ (FLOAT64 *) lag_f: fractional lag value. */ 

/* _ (FLOAT64 []) unfcod: unfiltered excitation. */ 
10 /* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 

/* _ None. */ 

/* */ 

/* RETURN ARGUMENTS : */ 
15 /* _Nonc. */ 

void LTP_8_5k_pitch_dccod (INT16 bfi, FLOAT64 ext [], INT 16 i_sf, 

FLOAT64 unfcod [], INT16 lag [], FLOAT64 lag_f [], 
20 INT16 l_sf, INT16 pitjdx []) 

{ 


FLOAT64 LTm [M AX_L AG+L_SF] , pit_f, DitPitTab[33J; 
25 INT16 i; 

/* */ 

/* Decode lag */ 


/ 


30 


if (ofi ==0) 
{ 

if (0_sf ~ 1) II (Lsf == N_SF4-1)) 
{ 

35 for (i = 0; i < 16; i++) 

DifPitTab [16+i] = MTN (HI_LAG2, 

l]+PiULagTab5bIil); 
40 for(i= l;i<= 16; i-M-) 


lag_fli_sf- 
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Difl>itTab [16-i] = MAX(MIN_LAG, 


PiLLagTabSbli)); 


10 


15 


20 


else 


else 


pit_f = DilPitTablpit_idx[i_sf]]; 
} 


pit_f = PitLagTab8b[pit__idx[i_sf]]; 


lag[i_sf] = (lNT16)(pit_f+0.5); 

1agJlL sf 1 = pil_f; 

} 

{ 

if (i_sf== 0) 

iag[i_sf] = iag[3]; 

else 

lag[i_s(] = MTN(lagfLsf-l], H1_LAG2); 

lag_qi_sf] = (FLOAT64) lagU.sfl; 
pi(_f = (FLOAT64) laglLsfl; 


lagJTLsf-n- 


25 


/*- 

/* 

/*- 


} 


LTP excitation : unfcod[] 


-*/ 


*/ 


30 


cpy_dvector (ext. LTm, 0, MAXLAG-1); 

LTP_excit_consi_pitch (pit_f, MAX LAG, LTm, l_sf, unfcod, 1); 


35 


return; 


40 
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/♦FUNCTION :LTP_adap_cbk_correction (). */ 

5 /♦ */ 

/* PURPOSE : This function extrapolated the adaptive codcbook */ 
/* excitation when a frame erasure occurs. */ 

/♦ */ 

/* ALGORITHM : */ 
10 /* */ 


/* INPUT ARGUMENTS : */ 
/* _ (1NT16 ) fix_rate_m: previous frame bit-rate. */ 
/* _(INT16 )bfi: frame # n Bad Frame Indicator. */ 
/* _ (INT16 ) past_bfi: frame # n-1 Bad Frame Indicator. */ 

15 /* _ (INT16 ) ppast_bfi: frame # n-2 Bad Frame Indicator. */ 

/* _ (FLOAT64 **) qua_gainQ: adaptive and fixed codebook gains. */ 
/* _ (INT16 ) SVS_deci_m: frame # n-1 mode indicator. */ 
/* _ (FLOAT64 []) lag_f: decoded pitch lags */ 
/* _ (FLOAT64 ) tempjagf: extrapolated fractional pitch lags */ 

20 /* */ 

/* OUTPUT ARGUMENTS : */ 

/* _ (INT16 *) update : update flag. */ 

/* (INT16 f]) lag : extrapolated lag values. */ 

/* _ (FLOAT64 **) gainQ: adaptive and fixed codcbook gains. */ 

25 /* _ (FLOAT64 [J) lag_f: extrapolated fract. lag values. */ 

/* _ (FLOAT64 *) ForPitch_decTEMP: interpolated pitch track. */ 
/* _ (FLOAT64 []) cxt_dcc : updated LTP memory. */ 
/* _ (FLOAT64 **) unfcod_dec : extrapolated LTP excitation. */ 


/* */ 

30 /* INPUT/OUTPUT ARGUMENTS : */ 

/* _ (FLOAT64 []) pitch_f_mem : past pitch values. */ 

/* _ (FLOAT64 []) tempext_dcc : temporary LTP memory. */ 

/* */ 

/* RETURN ARGUMENTS : */ 
35 /* _None. */ 

void LTP_adap_cbk_corrcction (INT16 fix_rate_m, INT 16 bfi, INT 16 past_bfi, 

INT 16 ppastj>fi, FLOAT64 **qua__gainQ, 
40 FLOAT64 gainQ [J. INT 16 SVS_deci_m, 
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FLOAT64 tempjagf, INT 1 6 *updatc, 
FLOAT64 pitch_f_mcm [], INT 16 lag [], 
FLOAT64 lag_f [], FLOAT64 ForPitch_decTEMP [], 
FLOAT64 tempext_dec [J, FLOAT64 ext_dec [], 
FLOAT64 **unfcod_dcc, PARAMETER channel) 


/*- 


-*/ 


10 


INT16 n_sf, i_s, i_sf, l_sf; 
INT 16 currjsf; 


FLOAT64 *px, tempjag; 
FLOAT64 FET, PFET, AA; 


15 


20 


if ((bfi == 0) SlSl (past_bfi == 1) && (ppast_bfi == 0) && 
((channel .fix_rate == RATE4_0K) || (channel. fix ralc == RATE8_5K)) 
&& ((fix_ratc_m RATE4_0K) || (fix_rate_m == RATE85K)) 8lSl 

(qua_gainQ[0][0] > 0.6)) 

{ 

(♦update) = 1; 


25 


30 


if (fix_rate_m == RATE85K) 
n_sf=N_SF4; 

else 

{ 

if (SVS_dcci_m == 1) 
n_sf- N_SF3; 

else 

n_sf=N_SF2; 

} 


35 


if (channel.fix_rale ==RATE8_5K) 
currlsf = L_SF4; 

else 

ciirr Isf = L SFO; 


40 


if ((SVS_dcci_m ==!)&& (channel.idx_SVS_deci == 0)) 
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{ 

/♦ */ 

/* PP then LTP */ 
/♦ V 

lempjag = (tempjagf- pitch_f_mcm [O])* 159.0 / 

((double) L_FRM+currJsf-1.0)+pitch_f_mem [OJ; 


PITJPitchlntcrpolat (tcmpjag, pilch_f_mcm. 


/* */ 

/* Sub-frame loop */ 
15 /* •/ 


i_s = 0; 

for (i_sf = 0; i_sf < n_sf; i_sf++) 
{ 


/* */ 

/* Sel subframe size */ 
/* */ 

25 

if (fix_ralc_m != RATE4 0K) 
l_sf=L_SF4; 

else 

{ 

30 if (SVS_deci_m == 1 ) 

{ 

if(i_sf==N_SF3-l) 
l_sf=L_SF3; 

else 

35 l_sf=L_SF0; 

} 

else 

l_sf=L_SF; 

} 

40 


ForPitch_decTEMP, 0); 
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/* */ 

/* Adaptive Codcbook Contribution */ 
/* */ 

if (SVS_dcci_m == 1) 
{ 

/* */ 

/* PPthenLTP (LTPorPP) */ 
/♦ */ 

LTP_PP_pitch_ext_decod (ForPilch_dccTEMP+i_s, 

tempcxt_dec, i_sf, unfcod_dec[0], lag, 
lag.C Lsf); 


} 


else 


{ 

if ((SVS_deci_m = 0) && (channel. idx_SVS_deci == 1)) 

20 < 

/* */ 

/* LTP then PP */ 
/* */ 

25 tempjag = ((pitchf- Iag_fl0])*(i_sf+L0)*l_s0/ 

((double) LFRM*2.0) + lagJIO], 

> 

else 

{ 

/* -*/ 

/* LTP then PP */ 
/* ♦/ 


tempjag = ((tempjagf - lag_fl0])*(Lsf+1.0)*l_sl) / 

((double) L_FRM+curr_lsf) + lag_qO]; 


} 

lag[i_sfl = (short) tempjag; 

LTPj>itch_decodtemp(lempext_ - dec, i_sf, unfcod_dec[0], 
40 tempjag, l_sf); 
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} 


/♦ V 

/* Gains */ 
5 /* */ 

gainQ[01 = qua _gainQ[0]li_sf]; 
gainQ[l) = qua _£ainQ[l][i_sf]; 

10 /* */ 

/* RE-Build the excitation */ 
/*„„..„—: _ */ 


wad_dvector (unfcod_dec[0], gainQ[0], qua_unfcod[l]+i_s, 
15 gainQ[l], lcmpext_dec+MAX LAG, 0, l_sf-l); 

dol_dvcctor (tempext_dec+MAX_LAG, tcmpext_dec+MAX_LAG, &FET, 
0, l_sf-l); 

FET EPSI; 

20 

if(lag[i_sfl>0) 
{ 

if (SVS_deci_m == 1) 

px = tempcxt_dcc+MAX_LAG-(short)ForPitch_decTEMP[i_s]; 

25 else 

px = tempext_dec+MAX_LAG-lag[i_sf|; 

dot_dvector (px, px, &PFET, 0, i_sf-l); 

30 AA = sqrt(PFET/FET); 

} 

else 

{ 

px = tempext_dec+MAX_LAG-l_sf; 
35 dot_dvector(px, px, &PFET, 0, l_sf-l); 

AA = sq rt (PFET/FET) ; 
} 

px = tempext_dec+MAX_LAG; 
40 sca_dvcctor(px, AA, px, 0, l_sf-l); 
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cpy_dvector (tempext_dec-H_sf, lempext_dec, 0, MAX LAG-l); 
i s += 1 sf ; 


} 


10 /*- 


/* Replace Adaptive CB */ 


/*- 


cpy_dvector (lempcxt_dec, ext_dcc, 0, MAX_LAG-1); 
15 } 


/*- 


return; 


20 /* 
} 


/* 

25 

/* END ■ 
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/4=======5=======s===:===========r====:= = = ===================== 

/* Conexant System Inc. 
5 /* 43 11 Jamboree Road */ 
/* Newport Breach, CA 92660 */ 
/* V 

/* Copyright(C) 2000 Conexant System Inc. */ 

/* V 

10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 
/ „ =:=:======================:=======:== ==== = ========= 5 ======= 


=*/ 


15 /* PROTOTYPE FILE : libjtp.h */ 

/ * ===:===================:============= : ====s= = ==== ========= 


/* FUNCTIONS */ 

20 /* */ 

void LTPJnitJib (void); 

void LTPJnitJSincWindows (void); 
25 void LTP_gcncrate_PilLagTab (void); 

FLOAT64 Hwind (FLOAT64, INT16); 

FLOAT64 sincFwin2 (FLOAT64, INT16); 
FLOAT64 sincFwin (FLOAT64, INT16); 

30 

void D2A_Interp Weight (FLOAT64 [J, FLOAT64, INT 16); 

void D2A_lnterpWeight2 (FLOAT64 [J, FLOAT64, INT16); 

FLOAT64 D2AJnterp (FLOAT64 [],FLOAT64 [],INT16, FLOAT64, INT 16); 

35 INT16 LTPJag_to_idx5b (FLOAT64); 
INT 16 LTPJag_to_idx7b (FLOAT64); 
1NT16 LTP_lag_toJdx8b (FLOAT64); 

void LTP_FineIndex_search (FLOAT64 [], INT16, INT16, INT16, INT16, 

FLOAT64 0, INT16 *); 

40 
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void LTP_excit_vari_pitch (FLOAT64 *, INT16, INT16, FLOAT64 [] f INT16, 

FLOAT64[], INT16, FLOAT64 []); 


void LTP_excit_const_pilch (FLOAT64, INT16, FLOAT64 [], INT16, FLOAT64 [], 

INT16); 


10 void LTP_PP_pitch_ext 


(FLOAT64 [], FLOAT64 *, FLOAT64 * FLOAT64 * 

INT16, FLOAT64 *, FLOAT64 *. INT16 *, 
FLOAT64 *, FLOAT64 *, INT16); 


void LTP_PP_pitch_ext_decod 


15 


(FLOAT64 [J, FLOAT64 *, INT16, FLOAT64 * 

INTI6 *, FLOAT64 *, INT16); 


20 


void LTP_cIosc_8_5k_pitch (FLOAT64 [], FLOAT64 [], FLOAT64 [], INT16, 

FLOAT64 [], FLOAT64 [], INT16 *, FLOAT64 *, 

FLOAT64 *, FLOAT64 *, INT16, INT16, INT16 

D); 


void LTP_close_7b_pitch 


25 


(FLOAT64 [J, FLOAT64 [], FLOAT64 [1, INT16, 

FLOAT64 (], FLOAT64 Q, INT16 *, FLOAT64 *, 
FLOAT64 * FLOAT64 *, INT16, INT16, 
INT16 []); 


void LTP_pilch_dccodlemp (FLOAT64 [), INT 16, FLOAT64 [], FLOAT64, INT16); 


30 


void LTP_7b _pitch_dccod (INT16, FLOAT64 [J, INT16, FLOAT64 [], INT 16 [], 

FLOAT64 [], INT16, INT16 Q); 
void LTP_8_5k_pitch_dccod (INT16, FLOAT64 [], INT16, FLOAT64 [], INT 16 (], 
35 FLOAT64 [], INT16, IKT16 []); 


40 


void LTP_adap_cbk_coircction 0NT16, 1NT16, INT16, INT16, FLOAT64 **, 

FLOAT64 G, INT16, FLOAT64, INT 16 *, FLOAT64 [], 
INT16 [], FLOAT64 {), FLOAT64 [], FLOAT64 0, 
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FLOAT64 [J, FLOAT64 **, PARAMETER); 

/* END */ 

5 ^ ssssa ^ B—MmBm ^^ 
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/* Conexant System Inc. 
5 /* 43 1 1 Jamboree Road 
/* Newport Beach, CA 92660 
/* 


/* Copyright(C) 2000 Conexant System Inc. 
/♦ 


*/ 
*/ 


*/ 
-V 

-*/ 


*/ 


*/ 


10 /* ALL RIGHTS RESERVED: 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

/ *= = ================-=====-======== : == = == ==: = ====1============= 


15 /* LIBRARY: lib_pit.c 


==*/ 


/*- 
20 /*- 


-V 


INCLUDE 


-*/ 


-*/ 


#include "typcdef.h" 

#include "main.h" 
25 ^include "consl.h" 
^include "gputil.h" 

^include "ext var.h" 

30 ^include "libj3it.h" 
^include "libUp.h" 


#ifdef DIAGNOSTICS 


35 


^include "lib dia.h" 


#cndif 


40 /*- 


-*/ 
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/* FUNCTIONS */ 

/♦ */ 

5 /* FUNCTION : PIT_LT_Corr_Rinax (). */ 

/* _ */ 

/* PURPOSE : This function performs initialisa the global */ 
/* variables of the PIT library. */ 
/* */ 

10 /* INPUT ARGUMENTS : */ 
/* _ None. */ 

/♦ */ 

/* OUTPUT ARGUMENTS : */ 
/* _ None. */ 

15 /* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 

/* _ None. */ 

/* */ 

/* RETURN ARGUMENTS : */ 
20 /* _None. V 

void PIT inilJib (void) 
{ 

25 /* */ 

lagl = 20; 

/♦ */ 

30 

pitclif = MIN_LAG; 

ini_dvector (pitch_f_mem, 0, PIT_F_MEM-1, MTN_LAG); 

35 /♦ */ 

/♦ PIT_ol_2pitchs */ 

/* */ 

VUVm = 1; 
40 VUVmm = 0; 
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pitchm = 20; 
pitch_mm = 40; 
IoptO = 0; 

5 ini_svector (PITmaxO, 0, NUM__MAX_SRCH-1, 20); 

LagCount = 0; 
VadCount = 0; 
Avjag - M1N_LAG; 

10 

Rp_m = 0.0; 


15 


ini_svector(olJag, 0, N_SF_MAX, 30); 
ini_svector(1ag, 0, N_SF_MAX, 30); 


20 


return; 


25 


/* FUNCTION 
/* 


PIT_LT_Corr_Rmax (). 


*/ 


/* PURPOSE : This function performs a first pitch */ 
30 /* determination by finding NUM_MAX_SRCH maxima in 

/* the autocorrelation. */ 

/* */ 

*/ 

/* INPUT ARGUMENTS : *' 


35 7* 

_(INT16) 

Low order : lower autocorrelation order. 

/* 

_ (INT 16) 

High order: Higher autocorrelation order. 

/* 

_ (INT 16) 

L: length of correlation window. ♦/ 

/* 

_ (INT 16) 

L__r: length of input. */ 

/* 

_ (FLOAT64 

[]) res: input frame. */ 

40 /*— 


„ - */ 
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/* OUTPUT ARGUMENTS : */ 
/* _(INTI6 []) PITmax: aulocorrelal ion maxima */ 


/* position. */ 

/* _ (FLOAT64 []) Rmax: autocorrelation maxima values */ 

5 /♦ */ 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ None. */ 

/* RETURN ARGUMENTS : */ 
10 /* _None. */ 


void PIT_LT_Corr_Rmax (INT16 Low_ordcr, INT16 High_ordcr, INT 16 L, 

INT 1 6 L_r, FLOAT64 res[], rNT 16 PITmax [], 
!5 FLOAT64 Rmax []) 

{ 

/* */ 


INT 16 i, k, iO, Tl, T2, Kl, K2, L_R, low, high; 
20 FLOAT64 x, y, eng; 

FLOAT64 RI(HI_LAG2-MIN_LACH4+2*SINC.LIMIT)]; 


/* V 

/* Residual Aurocorrelation Calculation */ 
25 /* V 


low = Low_prder-SINC_LIMTT-l; 
higli = High_ordcr+SINC_LIMIT+ 1 ; 
L_R =high-1ow+l; 

30 

#ifdef VERBOSE 

if (L_R>=Hl_LAG2-MIN_LAG+4+2*SINC_LIMIT) 

{ 

printf( M L_R>=HI_LAG2-MIN_LAG+4+2*SINC_LIMIT !!!\n"); 
35 exil(0); 

} 

#endif 


iO = L_r-L; 

40 dot_dveclor (res+i0 f res+iO, &cng, 0, L-l); 
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dot_dvector (rcs+i0-low+ 1 , res+iO-low+ 1 , &y, 0, L-l); 
for (i = low; i <= high; 
{ 

doi_dvcctor (rcs+iO, res+iO-i, &R[i-lowl, 0, L-l); 

y += res[i0-i]*res[i0-ij; 

y -= res[iO-i+L]*res[iO-i+L]; 

R[i-lbw] /= sqrt(MAX(y*eng, 0.01)); 

} 


10 / 


-*/ 


/* Determine 4 best lags */ 

/* */ 

T2 = Low_order; 
15 for (k = 0; k < 4; k++) 
{ 

/* */ 


/* Initial search */ 

/*_ */ 

20 

T1 = T2; 

T2 = M1N(T1*2, High_ordcr+l); 
PITrnaxM = Tl; 
Rjnaxfk] = RfTl-lowJ; 
25 for (i = Tl+I; i < T2; i++) 

{ 

if(R[i-low] > Rmax[k]) 
{ 

Rmaxlk)=R{i-low]; 
30 PITmax[k]=i; 
} 

} 

."./* */ 

35 /* Further search with low-pass filtering */ 
,* */ 

Kl = MAX(PITrnax[k]-l, Low_order); 
K2 = MTN(PITmax[k]+l, High_ordcr); 
40 x = Kl-low; 
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RfKl-low] = D2A_intcrp(SincWindo\vs, R, L_R, x, SINC__L1M1T); 
PITmaxlk] =K1; 
Rmaxfk] = R[Kl-lowl; 
for(i = Kl+l;i<=K2; i++) 
5 { 

x = i-low; 

R[i-low] = D2A_interp(SincWindo\vs, R, L_R, x, SINC_LIM1T); 
if (RJi-low] > Rmaxfk]) 
{ 

10 PITmax[k] = i; 

Rmax[k]=R|i-low]; 
> 

} 


15 / 
} 


35 


/ 


/*- 


30 return; 


/*- 

} 


/*- 


/* In case of 3 regions */ 
20 /* */ 

if (Low_order*8 >= High_ordcr) 
{ 

PlTinax[3J = PITmax[2]; 
25 Rinax|3] = Rniaxl2J; 

} 


/♦FUNCTION : PIT_FirstPitcliLag 0 *' 
40 /* */ 
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/* PURPOSE : This function performs a first pilch */ 

/* determination. */ 

/* */ 

/* . ♦/ 

5 /* INPUT ARGUMENTS : */ 
/* _ (INT 16 []) PITmax: autocorrelation maxima */ 
/* position. */ 
/* _ (FLOAT64 []) Rmax: autocorrelation maxima values */ 
/* */ 

10 /* OUTPUT ARGUMENTS : */ 
/* _ (INT16 *) lagopt: optimum lag position. */ 
/* _(FLOAT64 *)R_opt: optimum lag frame */ 
/* autocorrelation value. */ 

/* _ (INT 16 *) Iopt: optimum PITmax index. */ 

15 /* */ 

/* INPUT/OUTPUT ARGUMENTS : V 
/* _ None. */ 

/* RETURN ARGUMENTS : */ 
20 /* None. */ 


/*= 


void PIT_FirstPitcIiLag (INT16 PITmax [], FLOAT64 Rmax [], INT16 *lag_opU 

FLOAT64 *R_opt, INT16 *Iopt) 

25 { 

/* */ 

FLOAT64 MaxR; 
INTI6 i; 

30 

/* First search and correction */ 
/♦ */ 

35 (*Iopt) = 0; 

MaxR = Rmax[0]; 

for (i = 1; i < NUM_MAX_SRCH; i++) 
{ 

if (Rmax [i] > MaxR) 
40 { 
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(*Iopt) = i; 

MaxR = Rinax[iJ; 

} 

} 

5 


(*lag_opl) = Prrmax{(*Iopt)]; 
(*R_opt) = MaxR; 

10 


return; 

15 /* .*/ 

} 

/* FUNCTION : PIT^PitcliLagCorrect 0 */ 
/* */ 

/* PURPOSE : This function corrects the first pitch */ 
/* determination. */ 

25 /* */ 

/* INPUT ARGUMENTS : */ 
/* _ (INT 16 ) pitch_m: pitch of previous frame. */ 
/* _(INT16 ) VUVm: voice / unvoiced decision of */ 

30 /* previous frame. */ 

/* (INT 16 ) pitchjnm: pitch value of 2 frames */ 

/* earlier. */ 

/* _ (INT 16 ) VUVmm: voice / unvoiced decision of */ 
/* 2 frames earlier. */ 

35 /* _ (INT16 U) PITmax: autocorrelation maxima */ 
/* position. */ 

/* _ (FLOAT64 []) Rmax: autocorrelation maxima values */ 

/* */ 

/* OUTPUT ARGUMENTS : */ 

40 /* _ (INT16 *) lop: optimum PITmax index. */ 
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/* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ None. */ 

/* */ 

5 /♦ RETURN ARGUMENTS : */ 

/* _(INT16 )PITi: corrected pilch value. */ 

/♦ ===:==========================================:====== 


INT16 PIT_PitcliLagCorrect(INrri6 pitch_m,INT16 VUVm,INT16 pitch_mm,INT16 VUVmm, 
10 INT16 hiJag.INTie *Iop,INT16 ♦PITmax,FLOAT64 *Rmax) 

{ 


35 


INT16 PITi, i, k, PI, P2, PIT test, Iopt, flag; 
15 TNT16 Decism, Dccis_mm; 

FLOAT64 D, DO; 

/* */ 

20 

lopt = *Iop; 

PITi = PITmaxfloptJ; 

/* */ 

25 /* Second Correction */ 

/* */ 

DO = 1.0; 

for (i = Iopt-1; i >= 0; i-) 
30 { 


PI = (INT16)MAX(PITmax[i]*0.7, MIN_LAG); 
P2 = (rNT16)MlN(PITmax[i]*i.3, hi Jag); 


D = DO; 

if (VUVm>3 || (VUVm>2 && VUVmm>2)) 
{ 

if (Rmax[i] > 0.95) D = 0.95*D0; 
40 } 
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else 


{ 

if (Rmax(i] > 0.85) D=0.9*D0; 
} 


10 


15 


Decis_m = (VUVm > 2 && pitch_m >= PI && pitch_m <= P2); 
Dccis_mm = (VUVmm > 2 && pitchmm >= PI && pitch_mm <= P2); 

if (Dccism || Decis_mm) 

D = 0.85*DO; 
if (Dccis m && Decismm) 

D = 0.65*D0; 


-V 


20 


25 


Decis_m = (VUVm > 3 && pilch_m >= PI && pitchm <= P2); 
Dccis_mm = (VUVmm > 3 && pitch mm >= PI && pitch_mm <= P2); 

if (Dccis_m || Decismm) 

D = 0.75*D0; 
if (Dccis m && Decis mm) 

D = 0.6*D0; 


30 


flag = 0; 

for (k = 2; k <= 4; k++) 
{ 

PITjest 

PI 

P2 


PITmaxriopt]/k; 

(INT16)MAX(PITjest*0.8, MIN_LAG); 
(INT16)MIN(PIT_test*1.2, hi Jag); 


35 


if (PITmax[i] >= PI && PITmax[i] <= P2) 
flag=l; 

} 
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if ((flag == 1) && (Rmax[il > D*RmaxlIopl]) 


&& (Rmaxfi] > 0.25)) 
{ 

PITi = PlTmax(i]; 
5 *Iop = i; 

break; 
} 

10 /* *' 

} 

/* */ 

15 return PITi; 

/* */ 

} 

20 /* *' 

^..^^ 

/* FUNCTION : PIT_ol_2pitchs 0- *' 

*/ 

25 /* PURPOSE : This function estimati the 2 pitch per frame. */ 

/♦ */ 

/* */ 

* 

/* INPUT ARGUMENTS : */ 

/* _ (FLOAT64 0) wspccch: weighted input speech. */ 

30 /* _ (INT 16 )L_\vs: input frame size. */ 

/* _ (FLOAT64 []) Rp: autocorrelation maxima values */ 
/* _(INT16 )vad: vad decision. */ 

/* */ 

/* OUTPUT ARGUMENTS : */ 

35 /* (INT16 [])lag: estimated lag values. */ 

/* •/ 

/* INPUT/OUTPUT ARGUMENTS : */ 

/* _ None. */ 

/* ♦/ 

40 /* RETURN ARGUMENTS : */ 
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/* None. */ 


5 void PIT_ol_2pitchs (FLOAT64 wspeech[], INT16 L_ws, INT16 lag[] , 

FLOAT64 Rp[J, INT16 frame_class, INT16 hi Jag) 

{ 

/♦ */ 

10 INT16 i, L_corr, L, Iopt, Ioptl, Iopl2, CorrectFlag, 

PITmax 1 [NUM_MAX_SRCH] , PITmax2[NUM_MAX_SRCHl; 

FLOAT64 Rrnax I fNUM MAX SRCH], Rmax2 [NUM_M AX_SRCH] ; 

15 /• — */ 

/* Open loop pitch estimation in lookahead */ 
/* */ 

Lcorr = L_FRM/2; 
20 lag[0] = lag|2]; 

Rp[0] =Rp[2J; 


/* Calculate the autocorrelation values */ 
25 /* */ 

L = MlN(L_\vs-L_LPCLHD+L_corr, L_ws); 

PIT_LT_Coir_Rmax(MIN_LAG,luJagX_coiTX,wspeech,PITmax2,^ 

30 /* */ 

/+ Searching for integer pitch */ 
/* •/ 

PIT_FirstPilcliLag(PrTmax2, Rrnax2, &(1ag(2]), &(Rp[2]\ &Iopt2); 
35 Iopt = Iopt2; 

lag{2] = PIT_PitcliLagCorrect(pitch_m, VUVm, pitch_mm, VUVmm, hi Jag, 
&Iopt2, PITmax2, Rmax2); 
Rp[2] =Rinax2[Iopt2]; 

40 /♦ */ 
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/* Open loop pitch in second half frame */ 

if ((VUVmm < 3) && (VUVm < 3)) 
{ 

if(Rp[2J >0.5) 
{ 

VUVmm=3; 
pitch_mm=lag[2I; 
if (Rp[0]>0.5 && lag[0]<lagl2]) 
pitch_mm=lag[0]; 

} 

else 

{ 

if(Rp[0]>0.5) 
{ 

VUVmm = 3; 
pitchmm = lag[0]; 

} 
} 

} 


/* */ 

/* Calculate the autocorrelation values */ 
/* */ 

L = L_ws-L_LPCLHD; 
PnM-T_CoiTjfcnax(MINJ-AG 9 hiJag 

/* */ 

/* Searching for integer pitch */ 
/* ♦/ 


PIT_FirstPitcliLag (PITmaxl, Rmaxl, &(Iag[l]), &(Rp[l]), &Ioptl); 
Iopt = Ioptl; 

lag[l] = PIT_PitcliLagCorTcct(pitch_m, VUVm, pitchmm, VUVmm, hi Jag, 

&Iopt 1 , PITmax 1 , Rmax 1 ); 
Rp[l] = Rmaxl fToptl]; 
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/* ♦/ 

/* Second correction for lag [ 1 ] */ 
/* */ 


5 CorrcctFlag^O; 

if (abs(lagl2]-pitch_m) < 0.25*MTN(lag[2] f pitch_m) && 
abs(lag[2]-Iag[l]) > 0.25*lag[l] && 
(Rp[2]>0.5 || Rp_m>0.5) ) 
10 { 

if(Rp[2]>0.5) 

pitch_mm = lag[2]; 

else 

pitchjnm = pilch_m; 
15 CorrectFlag= 1; 

> 

if (abs(lag[2]-lag[0]) < 0.25*MIN(lag[21,laglO]) && 
abs(lag[2]-lag[l]) > 0.25*lag[l] ) 
20 { 

if ((Rp[21 > 0.5) && (Rp[0] > 0.5)) 
{ 

lag[l] = (lag[0]+lag[2])/2; 
CorreclFlag = 0; 

25 } 
else 

{ 

if (Rpl0J>0.5) 
{ 

30 , * pitch_mm = laglO]; 

CorreclFlag = 1; 
} 

if(Rp[2|>0.5) 
{ 

35 pitch_mm = lag|2]; 

CorrectFlag = 1; 
} 

} 


40 
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if (((lag[l]-lag[2] >= 0.3*MIN(Iag[l],lagI2])) && 
(Rp|2I>1.25*Rp[l] && Rp[l)<0.75 && Rp[2]>0.5)) || 

((lag[2|-lag|l]>0.3*lag[I])&& (Rp[2]>1.25*Rp[ 1] && Rp[2|>0.5))) 
{ 

lag[l] = lagI21; 
CorrectFIag = 0; 
} 


if (CorrectFlag==l) 
10 { 

for (i=0;i<NUM_MAX^SRCH;i++) 
{ 

if ((PITmaxl[i) > 0.75*pitch_mm) && 

(PlTmaxl[iJ < 1.25*pitch_mm) && 
15 (Rmaxl(i) > 0.5*Rmaxl [Ioptl]) && 

(PITmaxl[i] > 

PITmax 1 [Iopl I ]/NUM_MAX_SRCH) ) 

{ 

lag[l]=PITma?cl[i]; 


20 


Rp[l]=Rmaxl[i]; 


25 


break; 
> 


30 


35 


/*- 

/* 

/*- 


-*/ 


Second corrcclion for lag [0] 


CorrectFlag=0; 

if (0ag[0]-lagll J >= 0.25*MTN(lag[0],lagll])) && 
(Rpf 1] > l.l*Rp[0)) && (Rp[0J < 0.75) SlSl (Rp[l] > 0.5)) 
{ 

pitchmm = lag[l]; 
CorrectFIag = 1 ; 
} 


40 


if (abs(lag[2]-lag|l]) < 0.25*MIN(lag[2],lag[l]) && 
abs(lag[0|-lag|l]) > 0.25*lag[0] && Rp[l] > 0.5) { 
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pitch_mm=lag[lj; 
CorrcclFlag=l; 

} 

5 if (abs(lag(l]-pilc!i_m) < 0.25*MIN(lag[l],pilch_m) && 

abs(Iag[ 1 ]-lag[0]) > 0.25*lag[0] ) { 
if (Rp[l]>0.5 &&Rp_m>0.5) { 
lagl0]=(pitch_m+lag[ I ])/2; 
CorrectFlag=0; 

10 > 

else { 

if (Rp_m>0.5) { 
pitch_mm=pitch_m; 
CorrcclFlag=l; 

15 } 

if(Rp[l]>0.5){ 
pitch_min=Iag[l]; 
CorrcclFlag=l; 

} 

20 } 
} 

if (CorreciFlag==l) { 

for (i=0;i<NUM_MAX_SRCH;i+-t-) { 
25 if (PITmaxOIiJ > 0.75*pilch_mm && 

PITmaxOlil < 1.25*pitcli_mm && 

RmaxO[i] > 0.75*RmaxO[IoptO] && 
PITmaxOni > PITma\0[IoptO]/NUM_MAX_SRCH ) 
{ 

30 Iag[0]=PITmax0[i]; 

Rp(0]=RinaxO[i]; 
break; 

} 


35 


40 


} 


/♦ */ 

/* Set large lag */ 

/* ♦/ 
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if ((framc_class >= 3) && (lag[l] < 50) && 

(Avjag > MAX(2.25*lag[l], 50))) 

{ 

if (PITmaxlf l]>lagf 1] && Rmaxl[l]>Rmaxl[2]) 
5 { 

lag[ 1 ] = MAX(PITmax 1 [ 1 ], pitch_m); 

Rp[l] = Rmaxl[l]; 

} 

else 

10 { 

if (Rmax 1 [3 ) >Rmax 1 [2]) 

{ 

lag[l] = MAX(PITmaxll3), pitch_m); 
Rp[l] =Rmaxl[3]; 

15 } 

else 

{ 

lag[l] = MAX(PITmaxl{2], pitch_m); 
Rp[l] = Rjnaxl[2], 
20 } 


if ((frame_dass >= 3) && (lag[0] < 50) && 
25 (Avjag > MAX(2.25*Iag[0], 50))) 

{ 

if ((PITmaxOfl] > lag[0]) && (RmaxOllJ > Rmax0l2])) 
{ 

lag[0] = MAX(PITmaxO[l], pitctwn); 
30 RpfO] = RmaxO[l]; 

} 

else 

{ 

if (Rmax0[31 > Rmax0l2J) 
35 { 

lag[0] = MAX(PITmaxO[3], pitchjn); 

Rp[0] = RmaxO(3]; 

} 

else 

40 { 
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lag[0] = MAX(PITmax0l2], pitch_m); 

Rp|01 = RmaxO(2); 

} 


} 

} 


/♦ */ 

/* Estimate Average pitch */ 
/* */ 


if ((frame_class >=3) && (Rp[I] > 0.5) && (lag[lj > 0.7*pitch_m) 
&& (lagfl] < 1.3*pitch_m)) 

LagCount-H-; 

else 

15 LagCount = 0; 

if (LagCount >= 2) 
AvJag=(sliort)((doubIe)AvJag*0.75+(double)lag[ 11*0.25); 

20 if (framc_class <= 0) 

VadCount++; 
else 
VadCount=0; 

25 if(VadCount> 3) 

Avjag = 40/* MTN_L AG */; 


/* 

30 /* Update memory */ 
/* 

pitclwnm = pitchm; 

pitch__m = lag[l]; 
35 VUVmm = VUVm; 

VUVm= 1; 

if(Rp[l] >0.25) 
VUVm = 2; 

if(Rp[l] >0.5) 
40 VUVm = 3; 
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35 


40 


if(Rp[l] >0.75) 

VUVm = 4; 
Rp_m = Rp[l]; 
IoplO = IopQ; 

for (i = 0; i < NUM_MAX_SRCH; i++) 
{ 

PITmaxO[i] = PITmax2[i], 
Rinax0[i] = Rmax2[i]; 
} 


10 

/*- 


/* high limit */ 
/* 


15 iffliijag == HILAG) 

{ 

if(lag[0] >HI_LAG) 
{ 

if ((PITmax0[2] <= HILAG) && (PITmax0[2] > L_SF)) 
20 lag|0] = PlTmaxOI2); 

else 

lag[0] - H1_LAG; 

} 

25 if (lag[ 1 ] > H1_L AG) 

{ 

if ((PITmaxl[2] <= HI LAG) && (PITmaxl[2] > L_SF)) 
lag[l] = PITmaxl[2J; 

else 

30 lag[l] = HI_LAG; 

} 

} 


-*/ 


return; 


/*- 
} 
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/*^============-========================= = 

/♦FUNCTION : PIT_FinePitch 0 *' 

/* PURPOSE : This function corrects the pitch refinement. */ 
/* */ 

/* V 

/* INPUT ARGUMENTS : */ 

10 /* _(INT16 )bitrate: bitrate value. */ 
/* _(INT16 ) low_pitch: low pitch value. */ 
/* _ (INT16 ) high_pitch: high pitch value. */ 
/* _ (FLOAT64 [J) res: weighted speech. */ 
/* (INT 16 )L_r: length of wspcech. */ 

15 /* _ (FLOAT64 ) Delay _pp: pre-processing delay. */ 

/* */ 

/* OUTPUT ARGUMENTS : */ 

/* _ (FLOAT64 *) Rp_max: autocorrelation maximum value */ 

/* _ (FLOAT64 *)pitchf: PitLagTab7b extracted pitch */ 

20 /* value */ 

/* _ (INT 16 *) index: optimum PitLagTab7b index. */ 

,* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ None. */ 

25 /* */ 

/* RETURN ARGUMENTS : */ 
/* (INT16 )PITi: pitch value. */ 


30 INT16 PlT_FincPitch (INT16 bitrate, INT16 low_j>it, INT16 high_pit, FLOAT64 resfl, 

INT 16 L_r, FLOAT64 Delayjp, FLOAT64 *Rp_max, 
FLOAT64 *pitchf, INT16 *indcx) 

{ 

/♦ */ 

35 

FLOAT64 MaxR, x, y, z, R[(20+2*SINC_LDM1T)J; 

INT 1 6 iO, i, LowL, HighL, L_R, PITi, L, PI, P2; 

/* */ 

40 /* Determine the correlation */ 
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LowL =!o\v_pit - S1NCJLIMIT - 2; 
HigliL = high_pii + SINC_LIMIT + 2; 
L_R - HigliL - LowL + 1; 


/* 


L = LFRM/2; 
10 iO = L_r-L/2; 

dot_dvector (res+iO, rcs+iO, &x, 0, L-l); 

for (i = LowL; i <= HigliL; i++) 
15 { 

doidvcclor (res+iO-i, rcs+iO-i, &y, 0, L-l); 
dot_dvector (res+iO, res+iO-i, &z, 0, L-l); 
R(i-LowL] = z/ sqrt(MAX(x*y, 0.0001)); 
} 

20 

/* V 

/* Searching for integer pitch */ 
/* */ 

25 PfTi = low_pit; 

MaxR = R[low_pit-LowL]; 
for (i = low_pil+l; i <= high_pil; i++) 
if (Rfi-LowLJ > MaxR) 
{ 

30 t PITi = i; 

MaxR = R[i-LowL]; 


35 if (bit rate == RATE8 5K) 

{ 

/♦ */ 

/* Search for the best precise pitch and index */ 
/* , ♦/ 

40 
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PI = LTP_lag_toJdx8b ((doublc)(PITi-1.0)); 
P2 = LTPJag_lo_idx8b ((double)(PITi+1.0)); 

LTP_FincIndex_search (PitLagTabSb. PI, P2, LowL, L_R, R, index); 


5 /* ♦/ 

/♦ Estimate Rp_max */ 
/♦ ♦/ 

PITi = (IhTri6)CPitLagTab8b[*index]+0.5-LowL); 
10 (*Rp_ma\) = R[PITi]; 

PITi = (INT16)(PitLagTab8bf*indcx]+0.5); 

/♦ */ 

/♦ Modify pitch index ♦/ 
15 /♦ */ 


if (Delay_pp > 10) 

(♦index) = MIN((*index)+l, MAX_PIT_TDX_8b); 

20 if (Dclay_pp < -10) 

(♦index) = MAX((*index)-I,0); 

if (Delayjp > 1 5) 

(♦index) = MIN((*index)+I, MAX_PIT_IDX_8b); 
25 if (Delay_pp<-15) 

(♦index) = MAX((*indcx)-l, 0); 

(♦pitchf) = PitLagTab8b[(^index)J; 
PITi = (INT16)MIN( # pitchf+0.5, high_pit); 
30 } 
else 

{ 

/* ♦/ 

/♦ Search for the best precise pitch and index ♦/ 
35 /♦ */ 

PI = LTPJag_to_idx7b((FLOAT64)(PITi-1.0)); 
P2 = LTP_lag_toJdx7b((FLOAT64)(PlTi+1.0)); 

40 LTP_FineIndex_scarch(PilLagTab7b, Pl t P2, LowL, L_R, R, index); 
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/* 

/* 

/* 


-♦/ 


Estimate Rp_max 


-*/ 


PITi = (INT16)(PitLagTab7b[*indcx] + 0.5 - LowL); 
(♦Rp_max) = R[PITi]; 

PITi = (rNT16)(PitLagTab7b[*index] + 0.5); 


10 


/♦- 

/* 

/♦- 


-*/ 


Modify pitch index 


15 


if (Delay jpp > 10) 

(♦index) = MTN((*index)+l, MAX_PIT_IDX_7b); 


20 


if(Delay_pp<-10) 

(♦index) = MAX(( + index)-l, 0); 

(♦pitchf) = PitLagTab7b[(^index)l; 

PITi - (lNT16)MTN( + pitchf+0.5, high_pit); 


25 


30 


return PITi; 


35 


/ * ========:====================: = ====== = ===== ============== 

/* FUNCTION : PIT_PitchInterpolat 0- *' 

/* */ 

/♦ PURPOSE : This function calculate the interpolated pitch */ 
40 /* track. V 
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/♦ V 

/* INPUT ARGUMENTS : */ 

/* _ (FLOAT64 ) pitch: current pitch value. */ 

/* _ (FLOAT64 ) pitch_l : previous frame (n-1 ) pitch. */ 
5 /* _(FLOAT64 ) pitch_2: previous frame (n-2) pitch. */ 

/* _ (INT 1 6 ) enc_flag: signals encoder (= 1 ) or decoder*/ 

/* (=0) operation. */ 

/♦ ♦/ 

/* OUTPUT ARGUMENTS : */ 
10 /* _ (FLOAT64 0) ForPitch: interpolated pitch track. */ 

/* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 

/* _None. */ 

/♦ */ 

15 /* RETURN ARGUMENTS : */ 

/* _ None. */ 

/fe _.___ = __« s __=^ 

void PIT_Pitc1iIntcrpoIat (FLOAT64 pitch, FLOAT64 pitch_mem [], 
20 FLOAT64 ForPitchfl, INT 16 encjlag) 

{ 

/* */ 

INT16 i; 
25 FLOAT64 pilch_mean; 


-*/ 


pitch_mean = (pitchjncm [ 1 ] + pitch)*0.5; 

30 

/* 


if ( (fabs(pitch_mem (0J-pitch)< 0.2*0.5*(pitch_mem [0J+pitch» || 

(fabs(pitch_mem [0]-pitch_mean) < 0. 15*pitch_mem [0])) 

35 { 

for (i = 0; i < L_FRM; 

ForPitch (i] = (i*pitch+(L_FRM-i)*pitch_mem [0]) / L_FRM; 
if(cnc_flag == 1) 
for (i = 0; i < L_FRM/2; i++) 
40 ForPitch (i + L_FRMJ = pitch; 
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} 
{ 

if(enc_flag ==1) 

for (i = 0; i < L_FRM+L_FRM/2 ; i-H-) 
ForPilch[i] = pitch; 

else 

for (i = 0; i < L FRM; i-M-) 
ForPitchfi] = pitch; 


10 } 


-*/ 


return; 


15 


-*/ 


20 


/* */ 

/+ FUNCTION : PIT_pitch_track_rccons () */ 
/* */ 


/* PURPOSE : This function reconstruct the pitch track in */ 
25 /* case of frame erasure. */ 
/* */ 

/* INPUT ARGUMENTS : */ 
/* _ (INT 16) fix rate m: previous frame fixed rate. */ 
/* _(INT16)bfi: frame # n Bad Frame Indicator. */ 

30 /* _ (INT16) past_bfi: frame # n-1 Bad Frame Indicator. */ 
/* _ (INT16) ppastj)fi: frame M n-2 Bad Frame Indicator. */ 
/* _ (FLOAT64 []) lag_f: decoded pitch lags */ 
/* _ (INT16) SVS__deci_m: frame # n-1 mode indicator. */ 
/* _ (FLOAT64 **) qua_j»ainQ: adaptive and fixed codebook gains. */ 

35 /* _ (parameter) channel: decoded parameters indexes structure. */ 

/* ♦/ 

/* OUTPUT ARGUMENTS : */ 

/* _ (FLOAT64 *) pilchf : extrapolated pitch value. */ 

/* _ (FLOAT64 *) ForPitch_dccTEMP: interpolated pitch track. */ 

40 /* */ 
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/* INPUT/OUTPUT ARGUMENTS : 

/* _ (FLOAT64 []) pilch_f_mcm : past pitch values. 

/♦ ♦/ 

/* RETURN ARGUMENTS : * */ 

5 /* _None. */ 


*/ 


void PIT_pitch_track_recons (INT 16 


10 


fix_rate_m, INT 16 bfi, INT 16 past_bfi, 

INT16 ppast_bfi, FLOAT64 lagJI], INT 16 SVS_deci_m, 
FLOAT64 **qua_gainQ, PARAMETER channel, 
FLOAT64 *pitchf, FLOAT64 pitch_f_mcm [], 
FLOAT64 ForPitch_dccTEMP []) 


15 


FLOAT64 tempjagf; 


/* 


20 


if ((bfi 0) && ((ppasi_bfi — 1) || (past_bfi == 0))) 
{ 

pitch_index = channel.idx_j>Uch[0]; 


25 


pitch f rnem (1| = pitch_f_mem [0J; 
pitch_fmcm [0] = (*pitchf); 


30 


if (channeLfix_rate==RATE8_5K) 

(*pitchf) = PitLagTab8b[pitch_indcxJ; 

else 

(♦pitclif) = PitLagTab7b[pitch_index]; 


35 


40 


if ((fix_rate_m == RATE2 0K) || (fix_rate_m == RATE08K)) 
{ 

pitch f inem [1] = (*pitchf); 
pitch_f_mein [0] = (*pitchf); 
} 

else if (SVS_deci_m ™ 0) 
{ 

if (fix_rate_m != RATE8 5K) 
{ 
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pitch_f_mcm [1] = lagJIN_SF2-11; 
pitch_f_mem [0] = !ag_fTN_SF2-lJ; 

} 
{ 

pitch f mcm [1] = lagJIN_SF4-l]; 
pitch_f_mem [0] = lagJTN_SF4-l]; 
} 


10 } 
else 

{ 

if ((bfi == 0) && (ppast_bfi == 0) && (past_bfi == 1)) 
{ 

15 if ((flx_ratc_m == RATE2 0K) || 

(fix ratc m == RATE0_8K)) 

{ 

pitchfmem [1] = (*pitchf), 
pitch_f_mem [OJ = (*pitchf); 
20 } 

else if (SVS_deci_m == 0) 

{ 

if (fix_rate_m != RATE 85 K) 
{ 

25 pitch f mcm [ I ] = lagJTN_SF2-l]; 

pitch f mem [0] = lagJIN_SF2-l]; 
} 

else 

{ 

30 pitch f mcm [ 1] = lag_f[N_SF4-l]; 

pitch f_mcm [0] = IagJIN_SF4-lJ; 
} 


35 pitchindex = channel. idx_pitch[0]; 

if (channel.fix_ratc = RATE85K) 

(*pitchf) = PitLagTab8b[pitch index]; 

else 

(♦pitchf) = PilLagTab7blpitch_index]; 
40 lempjagf = ((*pitchf) - pitch_f_mem [0])* 159.0 / 3 19.0 
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+ pitch_f_mcrn [0]; 


if (SVS_dcci__m == 1) 

PlT_PitchInterpolat (tempjagf, pitch J_mcm, 
5 ForPitch_decTEMP, 0); 

pitch_f_mem [1J = pilch_f_meni [0]; 

if ((SVS_deci_m == 1 ) || (qua_gainQ[0] [0] >= 0.6)) 
10 pitch_f_mem [0] = tempjagf; 

} 

else 

{ 

15 pitch_f_mem [1] = pitchfmcm [0]; 

pitch f_mcm [0] = (*pitchf); 
} 

} 

20 /* */ 

return; 

/* V 

25 } 

/* */ 

30 /*— END */ 
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/*================================================================== 

/ * == = == == = ==™^™=====™ 

/* Conexant System Inc. */ 
5 /* 43 1 1 Jamboree Road */ 
/* Newport Beach, CA 92660 */ 

/* */ 

/* Copyrighl(C) 2000 Conexant System Inc. */ 

/* */ 

10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

15 /* LIBRARY: lib_pit.h */ 


=*/ 


/*- 
20 /*- 
/*- 


-*/ 


FUNCTIONS 


-*/ 


-♦/ 


void PIT init lib 


(void); 


25 void PIT LT Corr Rmax 


(INT16, INT16, INT16, INT16, FLOAT64 [], INT16 *, 
FLOAT64 *); 


void PIT_FirstPitcliLag 


(INT16 *, FLOAT64 * INT16 * FLOAT64 * INT16 *); 


30 INT16 PIT^PitcliLagCorrect (INT16, INTI6, INT16, INT16, INT16, INT 16 *, 

INT16 *, FLOAT64 *); 


void PIT_ol_2pitchs 


35 


INT16 PIT FincPitch 


(FLOAT64 [], INT16, INT16 [] , FLOAT64 [J; INT16, 
INT 16); 

(INT16, INT16, INT16, FLOAT64 Q, INT 16, FLOAT64, 
FLOAT64 *, FLOAT64 * INT16 ♦); 


40 void PIT_PitchInterpoiat (FLOAT64, FLOAT64 [], FLOAT64 [], INT16); 
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void PIT_pitchjrack_recons (INT16, INT16, INT16, INT16, FLOAT64 [], INT16, 

FLOAT64 PARAMETER, FLOAT64 *, 
5 FLOAT64 [], FLOAT64 []); 

/*==================================:=^^ 

/* END */ 

10 
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=*/ 




/* Conexant System Inc. *t 
5 /* 43 1 1 Jamboree Road */ 
/* Newport Beach, C A 92660 */ 

/* V 

/* Copyright(C) 2000 Conexant System Inc. */ 

/* V 

10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 


15 /* LIBRARY: Iib_ppp.c */ 

/*==^====================—= !S ============= 


=*/ 


=-_=*/ 


/* */ 

/* — INCLUDE */ 

20 /* *' 

^include "typedef.h" 

^include "main.h" 
25 ^include "consth" 
^include "gpuiil.h" 
^include "cxt_var.h" 

#include "Iib_lpc.h M 
30 include "lib_fli.li" 
^include "libjtp.h" 
#include M lib_ppp.h H 

#ifdef DIAGNOSTICS 

35 

^include "lib_dia.li" 
tfendif 


40 
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/* V 

/* FUNCTIONS */ 

/* */ 

5 ^^.^^^ 

/♦FUNCTION : PPPJnitJib 0 * 7 

/♦ _ */ 

/* PURPOSE : This function initialise the global variables of */ 
/* the library PPP. */ 

10 /* *' 

/* INPUT ARGUMENTS : */ 
/* _Nonc. */ 

/* */ 

/* OUTPUT ARGUMENTS : */ 

15 /* _None. */ 

/* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 

/* _ None. */ 

/* */ 

20 /* RETURN ARGUMENTS : */ 
/* None. . */ 


void PPPJnitJib (void) 
25 { 

/* */ 

/* pitch_preproc */ 

/* */ 

30 Delay_pp = 0.0; 

frame_class_pp_m = 3; 
Lasl_Rp = 0.0; 


35 


-*/ 


return; 

,* */ 

> 


40 
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/* •/ 


/* FUNCTION : PPP_mapping_residu 0 *' 

5 ,* */ 

/* PURPOSE : This function this subroutine maps the residual */ 
/* (from TO to Tl) to modified residual */ 
/* (MapRcsidu[0, 1, Len-1]). */ 
/* */ 

10 /* INPUT ARGUMENTS : * j 
/+ _ (FLOAT64 []) Sine: table of interpolation weights.*/ 
/* _ (INT16 ) sinc_limit: half interpolation table size. */ 
/* _ (INT 16 ) len sinc: interpolation table size. */ 
/* _ (FLOAT64 []) residu: number of pulses. */ 

15 /* (INT16 )T0; Original starting time point */ 

/* _ (INT 16 ) Tl: Original ending time point. */ 

/* */ 

/* OUTPUT ARGUMENTS : * ! 
/* _ (FLOAT64 []) MapRcsidu: mapped residual. */ 

20 /* */ 

/* INPUT/OUTPUT ARGUMENTS : * / 
/+ _ None. */ 

/* RETURN ARGUMENTS : 
25 /* _None. 


void PPP_mapping_residu (FLOAT64 sine [], INT16 sincjimit, INT16 len_sinc, 

FLOAT64 residu [], FLOAT64 TO, FLOAT64 Tl, 1NT16 Len, 
30 FLOAT64 MapResidu[]) 

{ 

/* -= V 

FLOAT64 *Weight; 
35 FLOAT64 t, f, D; 

1NT16 i, m,T; 


/*- 


40 D = (Tl-T0)/(FLOAT64)Len; 
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if(fabs(D-1.0)> 0.0001) 
{ 

for (i = 0; i < Len; i++) 

5 { 

t - TO + i*D; 
T = (INT16)t; 
f= t-(FLOAT64)T; 

m = (INT16)(f*(FLOAT64)DELT_F2-H).500001); 
10 Weight = sine + m*len_sinc; 

MapResidulil = D2A_interp (Weight, residu, L_OLPIT, t, 

sinc_limit); 

} 


15 else 


30 


} 


{ 

T=(INT16)T0; 
f=T0-(FLOAT64)T; 

m = (1NT16)(P(FLOAT64)DELT_F2+0.500001); 
20 Weight = sine + m*len_sinc; 

for (i = 0; i < Len; i++) 
{ 

t = TO + i; 

25 MapResidufi] = D2A_interp (Weight, residu, L_OLPIT, t, 

sinc_limit); 


} 


} 


return; 

/* */ 

35 } 


====*/ 


40 /* FUNCTION : PPP_update_LT_niein (). */ 
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/* */ 

/* PURPOSE : This function updates the cxciiation memory. */ 

/* */ 

/* INPUT ARGUMENTS : */ 
5/* _ (FLOAT64 []) LTm: table of interpolaiion weights. */ 
/* _(INT16 )L_LTm: excitation memory size. */ 
/* _(INT16 )L_E: new excitation memory size. */ 
/♦ */ 

/* OUTPUT ARGUMENTS : */ 
10 /* _ (FLOAT64 []) E: new excitation. */ 
/* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ None. */ 

15 /* RETURN ARGUMENTS : */ 
/* _ None. */ 


void PPP_update_LT_mcm (INT16 LLTm, FLOAT64 LTm [J, INT16 L_E, FLOAT64 ED) 
20 { 


INT16 j; 


for (j = 0; j < L_LTm-L_E; j++) 
LTm(j] = LTm U + L_E]; 


30 


cpy_dvector (E, LTin+L_LTm-L_E, 0, L_E-l); 


/*- 

35 


return; 


40 
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/♦ */ 

/* FUNCTION : PPP_search_shift_pp 0. */ 

5 /* */ 

/* PURPOSE : This function find the first sub-optimal shift */ 
/* by maximising the intercorrelation between the */ 
/* target signal and the input signal. */ 
/♦ V 

10 /* INPUT ARGUMENTS : */ 
/* _ (FLOAT64 []) rcsidu: original signal. */ 
/* _(INT16 )T0: original starting time point. */ 
/* _ 0NT16 ) iO: starting index for the intercom */ 
/* (1NT16 )il: ending index for the intercom */ 

15/* _(INT16 )Len: input signal length. */ 
/* _ (FLOAT64 1 1) Tg: target signal. */ 
/* */ 

/* OUTPUT ARGUMENTS : */ 
/* _(FLOAT64 *) Shift: optimum shift. */ 
20 /* _(FLOAT64 *) MaxRp: maximum intercorrelation value. */ 

/* »--*/ 

/* INPUT/OUTPUT ARGUMENTS : */ 

/* _ None. */ 

/* . V 

25 /* RETURN ARGUMENTS : */ 
/* _Nonc. */ 


30 void PPP_scarch_shift_pp (FLOAT64 residuQ, FLOAT64 TO, INT 16 iO, INT16 il, 
INT16 Len, FLOAT64 Tg[], FLOAT64 *Shift, FLOAT64 *MaxRp) 

{ 

/* . ♦/ 

35 INT16 L, i, iOO, ill, iOL, ilH, tO, Iopt, Idx, L R; 

FLOAT64 R, Rl, R2, crit, Rp[20+2*SINC_LIMIT], 

D ifTab f MAX_D IF_T AB J , ShiftRes[MAX_L_TG+30], TT1, TTO; 


40 
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(*Shift) = 0; 
lopl = 0; 

dot_dvcctor (Tg, Tg, &R1, 0, Len-1); 
iOO = iO - SINC_L1MIT - 1; 
5 il 1 = il + SINCLIM1T + 1; 

TTO = TO + iOO; 
TT1 = T0 + ill + Lcn + I; 
L = ill +Len+ 1 - iOO; 


10 /* */ 

PPP_inapping_rcsidu(SincWindows_PP, SINCJLIMIT_PP, LEN_SINC_PP, residu, 

TTO t TT1, L, ShiftRes); 

15 for(i = tO;i<=il;i++) 

{ 

10 = i - iOO; 

dol_dveclor (Tg, ShiftRes+tO, &R, 0, Len-1); 
dot_dveclor (ShiflRcs+tO, ShiftRes+tO, &R2, 0, Lcn-1); 
20 Rp[i-iOO] = R / sqrt(MAX(0.00 1, R2+R1)); 

crit = Rp[i-i00J; 
if (crit > (*MaxRp)) 
{ 

(*MaxRp) = crit; 
25 (*Shifl) = i; 

Iopt = i; 
> 

} 

/* */ 

30 /* Additional correlation */ 

/♦ */ 


iOL - Iopt - SINCLIMIT - 1; 
ilH = Iopt + SrNC_LlMIT + 1; 

35 

for (i = iOL; i < iO; i++) 
{ 

10 = i - iOO; 

doLdvector (Tg, ShiftRcs-HO, &R, 0, Lcn-1); 
40 dot^dvector (ShiflRes+tO, SliiORcs+tO, &R2, 0, Len-1); 
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Rp[i-i00] = R / sqrt(MAX(0.001. R2*R1)); 
} 

for (i = il + l; i <= ilH; 
5 { 

tO = i - iOO; 

dol_dvcctor (Tg, ShiARes+lO, &R, 0, Len-1); 
dot_dvector (ShiftRcs+tO, ShiflRes-HO, &R2, 0, Len-1); 
Rp[i-i00] = R / sqrt(MAX(0.001, R2*R1)); 
10 } 


/* V 

/* Fractional search of the delay */ 

for (i = 0; i < M AX_DIF_T AB ; i++) 

DifTab[i] = Iopt - 0.75 + 0. 1 *i; 


15 


#ifdef PROG_BUG_FlX 
20 L R= ilH-iOO; 


#elsc 


L R = i 1 H - iOL + 1; 


tfendif 

25 LTP_Finelndex_scarch (DifTab, 0, M AX_D IF_T AB - 1 , iOO, L_R, Rp, &ldx); 

(♦Shift) = DifTab[Idx]; 

i = (TNTI6)(DhTab[Idx] + 0.5 - iOO); 

(*MaxRp) = MAX(Rp|il, 0); 


30 


/*- 


return; 


35 /* */ 

} 

/» V 

40 
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/* FUNCTION : PPP_search_opt_shift_pp 0- */ 
/♦ */ 

/♦PURPOSE : This function find the optimal shift by */ 
/* maximising the intercorrelation between the */ 
5 /* target signal and the input signal. And if the */ 
/* procedure "fails" the waveform interpolation is */ 
/* performed. */ 
/* ♦/ 

/* INPUT ARGUMENTS : */ 

10 /* _ (TNT 16 ) frame_class: class of the current frame. */ 

/* _(FLOAT64 )PitLag: current pitch lag. */' 

/* _ (FLOAT64 []) rcsidu: original signal. V 

/* _(INT16 )T0: starting time point. */ 

/* _ (INT 16 ) Center: segment center. */ 

15 /* _ (INT 16 )l_sf: sub-frame size. V 

/* _(1NT16 )L_Tg: target size. */ 

/* _ (FLOAT64 []) Tg: target signal. */ 

/* _ (INT16 ) SRCHO: starting index for max intercom */ 

/* search. */ 

20/* _(INT16 )SRCH1: ending index for max intercom */ 

/* search. */ 

/* */ 

/* OUTPUT ARGUMENTS : */ 
/* _ (FLOAT64 []) MapRcsOpt: wrapped signal. */ 
25 /* _(FLOAT64 *) Delay: optimum shift. */ 

/* _ (FLOAT64 *) Rp_Opt: maximum intercorrelation value. */ 
/* V 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ None. */ 

30 /* : */ 

/* RETURN ARGUMENTS : */ 
/* _ None. */ 

/ * ================= ^ ============= _ ================ _ ============ „ =l , / 


35 void PPP_search_opl_shift_pp (INT16 frame_class, FLOAT64 PitLag, FLOAT64 residu[], 

FLOAT64 TO, INT16 Center, INT16 l_sf, INT16 L_Tg, 
FLOAT64 Tg[], FLOAT64 MapRcsOptfl, INT 16 SRCHO, 
INT16 SRCH1, FLOAT64 *Delay, FLOAT64 *Rp_Opt) 

{ . 
40 /* */ 
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FLOAT64 Shift, CRITmax, TTO, Tl; 
FLOAT64 Tgrn [ MAX L TG J ; 
INT16 i; 

/*___ V 

/* Search of the delay */ 

/* */ 


10 if (frame_class >- 3) 

{ 

CRITmax = 0.3; 

for (i = 0; i < Center; i++) 

Tg^itili] = (0.25 + 0.75*i/Center)*Tg[i]; 

15 } 
else 

{ 

CRITmax = 0.4; 
for (i = 0; i < Center; i++) 
20 Tg_m [i] = (0.5 + 0.5*i / Ccnter)*Tg[i]; 

} 

cpy_dvector(Tg, Tg_m, Center, L_Tg-l); 

25 

PPP_scarch_shift_pp (rcsidu, TO, SRCHO, SRCH1, L_Tg, Tg_m, &Shu\ 

&CRITmax); 

(♦Delay) = Shift; 

30 (*Rp_Opt) = CRITmax; 


35 


/* Wrapped residual */ 

/* - ■*/ 

Tl = TO + Center + Shift; 

PPP_mapping_rcsidu (SincWindo\vs_E, S1NC_LTMTT_E, LEN_SINC_E, rcsidu, 

TO, Tl, Center, MapResOpt); 


40 
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if (L_Tg> Center) 
{ 

TT0 = T1; 

Tl = TTO + L_Tg - Center; 
5 PPP_mapping_residu (SincWindows_E, SINC_LIMIT_E, LEN_SINC_E, 

residu, TTO, Tl, (INT16)(L_Tg - Center), 
(MapResOpt + Center)); 

} 

/* ♦/ 

0 

return; 


15 


/♦FUNCTION : PPP_periodicity_dctcct 0 */ 

20 /* */ 

/* PURPOSE : This function estimate the level of periodicity */ 
/* of the input signal and calculate the normalized */ 

/* crosscorrelation factors. */ 

/* */ 

25 /* INPUT ARGUMENTS : */ 
/* _ (FLOAT64 []) TgO: target signal. */ 
/* _ (INT16 ) L_ModiSig: size of Uie modified signal. */ 
/♦ */ 

/* OUTPUT ARGUMENTS : */ 
30 /* _(FLOAT64 *) Gp: optimum shift. */ 

/* _ (FLOAT64 *) Rp: nonnalizcd crosscorrelation factor.*/ 
/♦ */ 

/* INPUT/OUTPUT ARGUMENTS : */ 

/* _ (FLOAT64 []) ModiSigO: modified signal. V 
35 /♦ *, 

/* RETURN ARGUMENTS : */ 
/* _ None. */ 


40 void PPP_j>eriodicity_detect (FLOAT64 ModiSigO (], FLOAT64 TgO 0, INT16 L_ModiSig, 
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FLOAT64 *Gp, FLOAT64 *Rp, 1NT16 smv_mode, FLOAT64 nsr) 


{ 

/* */ 

FLOAT64 RO, Rl, R2, R3; 

FLOAT64 Tg[MAX_L_TG ] , ModiSig[MAX_L_TG]; 
INT16i; 


dot_dvector (ModiSigO, ModiSigO, &R0, 0, L_ModiSig-l); 

cpy_dvector (TgO, Tg, 0, L_ModiSig-l); 

cpy_dvector (ModiSigO, ModiSig, 0, L_ModiSig-l); 

dot_dvector (ModiSig, Tg, &R1, 0, L_ModiSig-I); 
dot_dvector (Tg, Tg, &R2, 0, L_ModiSig- 1); 

dot_dvecior (ModiSig, ModiSig, &R3, 0, L_ModiSig-l); 


20 (*Gp) = R 1 / MAX(R2, 0.00 1 ); 

(*Rp) = Rl / sqrl(MAX(0.1, R2*R3)); 


-*/ 


25 if((*Rp)>0.5) 
{ 

if (smvjnode >= 1) 

Rl = MlN(nsr*4 + 0.25, 0.4) * MTN((*Gp), 1.0); 

else 

30 Rl = MTN(nsr*4 + 0.125, 0.25) * MJN((*Gp), 1.0); 

for (i = 0; i < L_ModiSig; i++) 

ModiSigOfi] += Rl * TgO[i]; 

35 dot_dvector (ModiSigO, ModiSigO, &R3, 0, L_ModiSig-l); 

R2 - sqrt (RO / MAX(R3, 0.0001)); 

for (i = 0; i < L_ModiSig; i++) 
40 ModiSigOfi] *= R2; 
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return; 


10 /*- 


-*/ 


/* FUNCTION : PPP_sharpncss 0- 
/* 


15 /* PURPOSE : Hits function estimate the sharpencss of the */ 
/* input signal. */ 
/* 


/* INPUT ARGUMENTS : 

/* _ (INT 16 ) Lcn : size of the input signal. 
20 /* _ (FLOAT64 []) res: target signal 


/ — 

/* OUTPUT ARGUMENTS : 
/* None. 

/* 

*/ 

25 /* INPUT/OUTPUT ARGUMENTS : 
/* _None. 

/*... 

*/ 


*/ 
*/ 
*/ 
*/ 
*/ 


*/ 


V 


*/ 


/* RETURN ARGUMENTS : */ 
/* ' _ (FLOAT64 ) P_SHP: sharpness factor. */ 

30 /*========================================= 


FLOAT64 PPP_sharpness (INT16 len, FLOAT64 res[]) 
{ 

/♦ 


-*/ 


35 


FLOAT64 Max, E x, M, P_SHP; 
INT16 i; 


-*/ 


40 
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E_x = 0.0; 
Max = 0.0; 

for (i = 0; i < lcn; i++) 
5 { 

M = fabs(res[i]); 
E_x += M; 
if (M > Max) 

Max = M; 

10 } 

P SHP = E_x / (len * MAX(1.0, Max)); 


15 return (P_SHP); 


20 /* */ 


-*/ 


/♦FUNCTION : PPPJocat_max_puls 0- */ 

/* */ 

25 /* PURPOSE : This function locate the peak of energy into a */ 
/* pitch period. */ 
/* */ 

/* INPUT ARGUMENTS : */ 
/* _ (FLOAT64 [J) Res: input signal. */ 

30/* _ (TNT16 ) Start: starting index. */ 
/* _(TNT16 )End: ending index. */ 
/* _ (INT 16 ) n_peak: number of peaks. */ 

/* ♦/ 

/* OUTPUT ARGUMENTS : */ 

35 /* _(INT16 *)Pu!sLoc: pulse index. */ 

/* _ (FLOAT64 *) PeakRatio: ration between the peak energy and */ 

/* signal energy. */ 

/• */ 

/* INPUT/OUTPUT ARGUMENTS : */ 
40 /* None. */ 
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,*„ */ 

/* RETURM ARGUMENTS : */ 
/* _ None. */ 

5 

void PPPJocat_maxj>uIs (FLOAT64 Res[], INT16 Start, INTI6 End, INT16 n_peak, 
INT 16 *PulsLoc, FLOAT64 *PeakRatio) 

{ 

/* */ 


10 


FLOAT64 Eng. MaxEng[MAX_PULS_NUMl t AvgEng; 
INT16 i, k, Loc, Pu1sLocat[MAX_PULS_NUM]; 


/*- 


15 

for (k = 0; k < n_pcak; k++) 
PulsLocat[k] = Start; 

Eng = 0; 

for (k = -HALFP; k <= HALFP; k++) 
20 Eng RcslSiart+k]*RcsIStart+k]; 

AvgEng = Eng; 
for (k = 0; k < n_peak; k++) 
MaxEngfk] = Eng; 

25 /* */ 

for (i = Start* I; i <= End; i++) 
{ 

Eng = 0.0; 

30 for (k = -HALFP; k <= HALFP; k++) 

Eng += Res[i+k]*Res(i+k]; 
if (Eng < 4* AvgEng) 

AvgEng = 0.875* AvgEng + 0.125*Eng; 

35 if (Eng > MaxEng[0)) 

{ 

MaxEng[0] = Eng; 
PulsLocat[0] = i; 
for (k = I ; k < n_peak; k++) 
40 if (MaxEngfk- 1] > MaxEngfk]) 
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{ 

Eng 

MaxEng[k] 
MaxEngfk- 1) 
Loc 

PulsLocatrk] 

PuIsLocatrk-1] 

} 


= MaxEngfk]; 
= MaxEngPc-11; 

= Eng; 

= PulsLocat[k]; 
= PuIsLocat[k-lJ; 
= Loc; 


10 


15 


Loc = PulsLocat[n_peak-l], 
Eng = MaxEng|n_pcak-l]; 


20 


25 


for (k = n_peak-2; k >= 0; k») 

if ((MaxEngfk] > 0.75*MaxEngfn_peak-l]) && 

(AvgEng/MAX(MaxEngfk],0.1) < 1/9.0)) 

{ 

Loc = PulsLocatfk]; 
Eng = MaxEngfk]; 
break; 
} 

(♦PulsLoc) = Loc; 

(♦PeakRatio) = AvgEng/M AX(Eng, 0. 1 ); 


30 


/*- 


return; 


-*/ 


35 


-*/ 


/♦FUNCTION : PPP_pitch_prcproc 0 
40 /♦ 
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/* PURPOSE : This function perform the pitch modify the input */ 
/* signal in order to improve the LTP performance */ 

/* and without introducing perceptually significant */ 

/* distortions. *' 

5 /* */ 

/* INPUT ARGUMENTS : *' 
/* _ (INT16 ) smv_mode: selected SMV mode. */ 
/* _(INT16 )fix_rate: selected fixed bit-rate. */ 
/* _ (INT 16 )flat_flag: flat input speech flag. */ 

10 /* _ (FLOAT64 ) nsr: estim. noise to signal ratio. */ 

/* _ (FLOAT64 [1) wspeech: input signal. */ 
/* _ (FLOAT64 []) ForPitch: forward pitch estimations. */ 
/* _ (rNT16 ) frame_class_pp: class of the current frame for */ 
/* picth preprocessing. */ 

15 /* */' 

/* OUTPUT ARGUMENTS : 

/* _ (FLOAT64 []) ModiSig: modified signal. */ 
/* _ (FLOAT64 *) Delay_pp: pitch pre-processing delay. */ 
/* _ (INT 16 *) frame_class: class of the current frame. */ 
20 /* _ (INT 1 6 *) VUV: voieeunvoicedecision: */ 


/* _(INT16 [])gp: Pitch gains. */ 


/*- 


-*/ 


/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ None. */ 

25 /* */ 

/* RETURN ARGUMENTS : 
/* _ None. */ 
/*================================== 


7 


======+/ 


30 void PPP_pitcli jreproc (INT16 smvjnode,- INT 16 fix_rate, INT16 flatjlag, 

FLOAT64 nsr, FLOAT64 wspeech[], FLOAT64 ModiSigf], 
FLOAT64 ForPitch[], FLOAT64 *Delay_pp, 

INT 16 frame_class_j>p, INT 16 *frame_class, 
INT16 *VUV, FLOAT64 gp[]) 

35 { 


INT16 iO, i, i_s, L Tg, L, l_sf. Center, 

FLOAT64 TO, Tl , Delay, Delay_tmp, P_SHP, P_SHP_Tg, Rp_Opt; 

FLOAT64 LTm[MAX_LA(r»-MAX,L_TGl, Tg[MAX_L_TG], PitFunc[L_FRM+L_FRM/2] ; 
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FLOAT64 ModiResfM AX_L_TG] ; 

INT 16 SRCHO, SRCH1, StartPoint, EndPoint, LocPuls, PulsLen; 
INT 16 cond_abs, condO, condl, cond2 > cond3, cond; 
FLOAT64 ltp_gain=0, pit_corr=0, avg_Rp, min_Rp; 
5 FLOAT64 Rp[N_SF4] = {0.0}; 


10 


/* 


-*/ 


Delay Jmp = (*Delay_pp); 


if ((frame_class_pp <= 0) || (frm_count ==1)) 
{ 

/♦ .—*/ 

/* Reset of the delay */ 
15 /* */ 

if (framc_class_pp == -1) 
Delay_tmp = 0; 

20 TO = LJ3LPIT - LLPCLHD - L FRM + Delay_tmp; 

Tl = TO + L_FRM; 

PPP_mapping_rcsidu (SincWindows^E, SINC_LIMIT_E, LEN_S1NC_E, 

wspccch, TO, Tl, L_FRM, ModiSig); 

25 /* */ 

/* Memorize the wspeech */ 
/* ♦/ 

PPP_updatc_LT_mem (MAX_LAG, targ_mem, L FRH ModiSig); 
30 ltp_gain= 0.0; 

pit_corr= 0.0; 
avg_Rp = 0.0; 

min_Rp =1; 

35 ini_dvector(gp, 0, N_SF4- 1 , 0.0); 

ini_dvcctor(Rp, 0, N_SF4-1, 0.0); 

} 

else 

{ 

40 i0 =0; 
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is = 0; 

ini_dvector(gp, 0, N_SF4 - 1, 0.0); 
ini_dvccior(Rp, 0, N_SF4 - 1, 0.0); 
avg_Rp = 0.0; 
min_Rp = 1.0; 

while (iO < LFRM) 
{ 


/* 


/* 


/* 

Determine some parameters */ 


*/ 

*/ 

/* 

Pulse Length */ 




PuIsLen = (INT16)MAX(ForPilch[iO]*0.2, 5); 
PulsLen = MIN(PulsLen, 30); 


/* */ 

/* Peak location */ 
/* */ 

25 /* */ 

/* Starting point on the original wspeech */ 
/* */ 

TO = L_OLPIT - L LPCLHD - L FRM + iO + Delay_tmp; 

30 

StartPoint = (INT16)T0; 

EndPoint = (INT16)MIN(StartPoint + ForPitch[iO], 

LOLPIT - 8 - SINCLIMIT); 

35 PPP_Iocat_max_puls (wspeech, StartPoint, EndPoint, 1, 

ALocPuls, &P_SHP); 

if ((iO == 0) && (LocPuls < PulsLen + TO)) 
LocPuls = (INT16)(PulsLcn + TO); 

40 


iNODOOID. ^WO OI22402A|J_* 


WO 01/22402 PCT/USOO/25182 

643 

/* */ 

/* Searching Length */ 
/* */ 

5 l_sf = (INT16)MIN(LocPuls - TO + PulsLen, L_FRM - iO); 

LJTg = (INT16)(LocPuls - TO + 2*PulsLen); 
if (LocPuls + ForPitchfiO]* 1.25 > 

L_OLPIT - L_LPCLHD + Delay_tmp) 

{ 

10 StartPoint = (INT16)(LocPuIs + ForPitch[i0)*0.5); 


EndPoint = (INT16)MIN(StartPoint+ForPitch[iO], 

L_OLPIT - 8 - SIMC_LIMIT); 
PPPJocat_max_puls (wspecch, StartPoint, EndPoint, 1, 

&L, &P_SHP); 

15 if (L > LJDLPIT - L_LPCLHD + Delay_tmp) 

{ 

I sf = LJFRM - iO; 

LTg = (INT16)MAX(l_sf, LocPuls-TO + 2*PuIsLen); 
} 

20 } 

SRCH1 « 5; 

L = L_FRM - iO + MAX(0, L_LPCLHD - (INT16)Dclay_tmp - 

25 SINC_LIMIT_E-SRCH1); 

LTg = MIN(L_Tg, L); 

L_Tg = MIN(L_Tg, MAX_L_TG); 

Center = (INT16)MAXCLocPuls-T0-PulsLen, PulsLcn/2); 
Center = MIN(l_sf, Center); 

30 

/♦ */ 

/* Calculate the target : Tg[0,„,L_Tg-l], for the */ 
/* wspeech modification */ 
/* */ 

35 

cpy_dvector (targ_mem, LTm, 0, MAX LAG-l); 
L *= MIN(L_Tg, LFRM - iO + L JRM / 2); 
cpy_dvector (ForPitch + iO, PitFunc, 0, L-l); 

40 ini_dvector (PitFunc, L, L_Tg-l, PitFunc[L-l]); 
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LTP_excit_vari_pitch(SincWindows_E, LENSINCE, 

SINC LIMIT E, PitFunc, MAX LAG, 
LTm, L_Tg, Tg); 


/*- 


/* Searching Range */ 
/* */ 

10 /* */ 

/* Peakness */ 

StartPoint = (INT16)(LocPu!s - ForPitch[i0]*0.5); 
15 EndPoint = (INT16)MrN(SlartPoint + ForPitch[iO], 

L_OLPIT - 8 - SINC_LIMIT); 
PPP_Iocat_max_puIs (wspeech, StartPoint, EndPoint, 1, &L, 


&P_SHP); 


PPPJocat_max_puls (Tg, (INT16)(HALFP+1), 

(TNT 1 6)(L_Tg-H ALFP- 1 ), (INT16)1, &L, &P_SHP_Tg); 


/*- 


25 /* Search range */ 

SRCHl=MAX(MlN(Ccntcr*0.075 + 0.5, SRCH1), 1); 
SRCH0 = -SRCH1; 

30 

/* */ 


/* Influence of P_SHP V 


35 if (P_SHP> 1/4.0) 

{ 

SRCHi = MTN(SRCH1, 3); 
SRCH0 = MAX(SRCH0, -3); 
} 

40 else if (P_SHP > 1/12.0) 
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{ 

SRCH1 -MIN(SRCH1, 4); 
SRCHO = MAX(SRCHO, -4); 

} 

5 

/* Influence of P_SHP_Tg */ 
/♦ */ 

10 if (frame_class_pp>= 3) 

L = 4; 

else 

L = 3; 

15 if (P_SHP_Tg> 1/3.0) 

{ 

SRCH1 =MIN(SRCH1, L); 
SRCHO = MAX(SRCH0, -L); 

} 

20 else if (P_SHP_Tg > 1/6.0) 

{ 

SRCH1 = MTN(SRCH1, (L+l)); 
SRCHO = MAX(SRCHO, -(L+l)); 

} 

25 


/* '/ 

/* Influence of LocPuls and non-voiced speech */ 
/* */ 


if ((L_Tg < LocPuls - TO - HALFP) || (ForPitch[iO] < 25) 

|| (LocPuls <= PulsLen + TO)) 

{ 

if(P_SHP> 1/4.0) 
{ 

SRCH1 = MIN(SRCH1, 1); 
SRCHO = MAX(SRCH0, -1); 
} 

else 

{ 

SRCH1 = MIN(SRCH1, 2); 
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SRCHO = MAX(SRCHO f -2); 
} 

} 

5 /* */ 

/* Influence of De!ay_tmp */ 
/* */ 

if (Dclay_tmp > 5) 
10 SRCH1 = MIN(SRCH1, 4); 

if(Delay_tmp> 10) 

SRCH1 = MIN(SRCH1, 2); 
if(De!ay_Unp> 15) 

SRCH1 =0; 

15 

if(Delay_tnip<-5) 

SRCHO = MAX(SRCH0, -4); 

if (Dclay_tmp < -10) 

SRCHO = MAX(SRCH0, -2); 

20 if-(Delay-tmp-<— 15) 

SRCHO = 0; 

/* */ 

/* Searching for the best delay; */ 
25 /* */ 


30 &Delay, 


PPP_search_opt _shifi_pp (frame_class_pp, ForPitch[iO+l_sf-l], 

wspeech,TO, Center, 1_sf, L_Tg f Tg, 
ModiRes, SRCH0,SRCH1, 

&Rp_Opt); 


/* Determine the delay at the end point: ModiRcs[l_sf] */ 
35 /* */ 

if (Center > i_s£) 

Delay *= (FLOAT64)l_sf7(FLOAT64)Ccnter; 

40 Delay = Delay_imp + Delay; 


JNSWS1D; .WO 012E40EA1 J..-> 


WO 01/22402 PCT/LSOO/25182 


#ifdef VERBOSE 


#endif 
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TO, Tl, 
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if (fabs(Delay) > MAX_DELAY) 
{ 

if (frame_class_pp >- 3) 

printf("Dangcr! ! !, Delay_tinp>MAX_DELAY \n M ); 

else 

printffDangcr! ! ! !, Delay jmp>MAX_DEL AY \n"); 


Tl=T0 + L_Tg; 

PPP_mapping_residu (SincWindows_E, SINC_L1MIT_E, 

LEN_SINC_E, wspecch, 

LTg, 


ModiRes); 


20 


else 


De)ay_tmp = Delay; 


/*- 

/* 

/*- 


-*/ 


Memorize the modified wspeech */ 
*/ 


25 


PPP _update_LT_mem (MAX LAG, targmem, l_sf, ModiRes); 


30 


35 


/*- 

/* 

/*- 


Periodicity 


*/ 


-*/ 


PPP_^riodicity_detcct(ModiRcs, Tg, L_Tg, &Upjgain, 

&pit_corr, smv mode, nsr); 

cpy_dvector (ModiRes, ModiSig+iO, 0, Lsf-1); 


40 


if «(P_SHP < 1.0/30) || (Up _gain > 0.7) || 

(pit_corr > 0.6)) && (L_Tg > LocPuls - TO + HALFP) 
&& ((*VUV) == 2)) 
(*VUV) = 3; 
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if (pit_corr< min_Rp) 

min_Rp = pit_corr; 

pit_corr = MAX(pit_corr, 0.0); 
avg_Rp += pit_corr*l_sf; 


-*/ 


if (fix_rate == RATE85K) 

{ 

for (i=0; i < N_SF4; i++) 
{ 

L = MIN(iO + 1 jtf, (i+l)*L_SF4) - MAX(i0, i*L_SF4); 
gp[i] += Up_gain*MAX(L, 0); 
Rp[i] += pit_corr*MAX(L, 0); 

} 

} 

else 


25 


30 


35 


40 


{ 

for (i=0; i < N_SF3; i++) 
{ 

L = MIN(iO + l_sf, (i+l)*L_SF0) - MAX(i0, i*L_SF0); 
gp[i] += ltp_gain*MAX(L, 0); 
Rp[i] += pit_corr*MAX(L, 0); 

> 

} 


iO += l_sf; 
} 


-*/ 


/* Classification and output LTP gains */ 

7 * ■— / 

avg_Rp /= L_FRM; 
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10 


if (fix__raie == RATE85K) 
{ 


/* 
/* 
/* 

/* 
/* 
' /* 


for (i = 0; i < N_SF4; i++) 
RpPl /= L_SF4; 


RATE 8.5 kbit/s 

*/ 


gains 
______ 

*/ ' 


■*/ 


15 


for (i = 0; i < N_SF4; i++) 
gp[i] /= L_SF4; 


20 


25 


if (flatJ1ag== 1) 
{ 

for (i = 0; i < N_SF4; 

gp[i] = MAX(MIN(gp[i]*(0.75+O.25*Rp[i]), 1.2), 0); 

} 

else 

{ 

for (i = 0; i < N_SF4; i++) 

gp[i] = MAX(MlN(gp[i]*(0.7+0.3*avg - Rp), 1.2), 0); 

} 


30 


/*- 

/* 

/*- 


Correct classfication 


35 


if ((Lastjlp > 0.6) && (avg_Rp > 0.6) && (frame_class_pp > 0)) 
{ 

ltp _gain = (gpfO] + gp[l] + gp(2] + gp[3]) / 4.0; 


40 


condO = (fabs(gp[01-lrp_gain) < 0.25) 
condl = (fabs(gp[l]-ltp__gain) < 0.25) 
cond2 = (fabs(gp[2J-ltp_gain) < 0.25) 
cond3 = (fabs(gp[3]-ltp__gain) < 0.25) 
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cond_abs = condO && condl && cond2 && cond3; 

condO = (gp[0] > 0.5); 
condl = (gplU> 0.5); 
cond2 = (gpl2] > 0.5); 
cond3 = (gp[3]>0.5); 

cond = condO && condl && cond2 && cond3; 

if ((cond_abs == 1) && (cond = 1) (Up^gain > 
&& (min_Rp > 0.5)) 

(*frame_class) = 6; 


15 condO = (RplO] > 0.75) 

condl -(Rpll]> 0.75) 
cond2 = (Rp[2) > 0.75) 
cond3 = (Rpf3] > 0.75) 


^cond^-cond0-&& condi_ && cond2 && cond3; 


if ((ltp_gain > 0.5) && (cond = 1)) 
(*frame_class) = 6; 


25 > 

Last_Rp = Rp[N_SF4-l]; 

} 

else 

{ 

30 /*- 


-*/ 


/* RATE 4.0 kbit/s */ 


■V 


-*/ 


35 /* gai ns 
/* 


♦/ 


for (i - 0; i < N_SF3; i++) 
Rp[i] /= L_SF0; 
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for (i = 0; i < N_SF3; i++) 
gp[i] /= L_SF0; 

for (i = 0;i <N_SF4;i++) 

gp[i] = MAX(MIN(gp[i]*(0.75-K).25*Rp[i]), 1.2), 0); 

ltp ^ain = (gp[0] + gp[l] + gp[2]) / 3.0; 


/♦- 


10 /* Correct classfication */ 

/* */ 


if ((avg_Rp > 0.6) && (frame_class_pp > 0)) 
{ 

15 condO = (fabs(gp[0]-ltp _^ain) < 0.25) 

condl = (fabs(gp[l]-ltp _gain) < 0.25) 
cond2 = (fabs(gp[2]-Hp _gain) < 0.25) 


cond^abs = condO && condl && cond2; 

20 

condO = (gpfO] > 0.4); 
condl =(gp[l] >0.4); 
cond2 = (gp[2] > 0.4); 

25 cond = condO && condl && cond2; 

if ((cond_abs == 1) && (cond == 1) && (hp _gain > 0.5) 
&& (inin_Rp > 0.4)) 

(*frame_class) = 6; 

30 } 

Last_Rp = RplN_SF3-l]; 
} 

35 /* */ 

/* Reset the delay */ 

/* */ 


(*Delay_pp) = Delay_tmp; 
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frame_class_j>p_m = frame_class_pp; 


-*/ 


return; 


} 


10 /* 


15 




/*. END - 
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/* Conexant System Inc. */ 
5 /* 4311 Jamboree Road */ 
/* Newport Beach, CA 92660 */ 

/* Copyright(C) 2000 Conexant System Inc. */ 

/* */ 

10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

============= 


15 /* PROTOTYPE FILE : lib_ppp.h 


/* */ 

/* FUNCTIONS */ 

20 /» */ 


void PPP_init_lib (void); 

25 

void PPP_mapping_rcsidu (FLOAT64 [], INT16, INT16, FLOAT64 [], FLOAT64, 

FLOAT64, INTI6, FLOAT64 []); 

void PPP_update_LT_mem (INT16, FLOAT64 [], INT16, FLOAT64 []); 

30 

void PPP_scarch_shift_pp (FLOAT64 fl, FLOAT64, INT16, INT16, INT16, FLOAT64 [], 
FLOAT64 *, FLOAT64 *); 

35 

void PPP_search_opt_shifL_pp (INT 16, FLOAT64, FLOAT64 f], FLOAT64, INT16, INT16, 

INT16, FLOAT64 [], FLOAT64 [], INT16, INT16, 
FLOAT64 *, FLOAT64 *); 


40 
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_ j-rrt r> n Ft OAT64 n INT16, FLOAT64 *, FLOAT64 *, 

void PPP_periodicity_detecl (FLOAT64 [], rLUAiD** u, 

INT16, FLOAT64); 


5 FLOAT64 PPP_sharpncss (INT16, FLOAT64 U); 


id PPP Jocat.max^uls (FLOAT64 D . INT16. INT16, INT16, INT16 *. FLOAT64 *); 


void 
10 

void PPP >tch jreproc (INT16 sinvjnode, INT16 fix.nuc, INT16 flatjlag, 

FLOAT64 nsr, FLOAT64 wspeechfl, FLOAT64 ModiSigQ, 
FLOAT64 ForPitchU, FLOAT64 +Delayj>p, 

INT 16 frame_class_pp, INT 16 *frame_class, 
15 IKT16 *VUV, FLOAT64 gp[]); 




* , END ■ 
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/+=== „ =======:======== 

/* Conexant System Inc. 
5 /* 43 1 1 Janiboree Road 
/* NewportBcach, CA 92660 
/* 


*/ 


/* Copyright(C) 2000 Conexant System Inc. 
/* 


*/ 
-*/ 


*/ 


10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

/*============--==-====================== s:£=£ = := ======= = 


15 /* LIBRARY: lib_ppr.c 


=====*/ 


==*/ 


/*- 

20 /*- 


INCLUDE < 


— */ 


#include "typedef.h" 

#include "main.h" 
25 #include "consth" 
#includc "cxt var.h" 


^include "mcutiLh' 1 
^include "gputil.h" 
30 ^include M lib_ppr.h" 
include "libjlth" 
^include M IibJpc.h M 
include "libjtp.h" 
^include B lib_ppp.h M 

35 

/* 

/* 

/* 


■ FUNCTIONS 


-*/ 


40 /»====== 


BNSDOC1D <WO_ 0122402A1 I > 


WO 01/22402 


PCT/USO0/251K2 


656 

/* FUNCTION : PPRJiUersJnit 0 *' 

*/ 

/* 

/* PURPOSE : This funcUonperfonns the iniualisauon / 
/+ for the post and pre processing. */ 


■*/ 
*/ 


*/ 


-*/ 

*/ 


5 /* 

/* INPUT ARGUMENTS : 
/* _ None. 

/* ' 

/* OUTPUT ARGUMENTS : 

*/ 

10 /* _None. 

/* 

/* RETURN ARGUMENTS : 

*/ 

/* __ None. --===s==*/ 

15 

void PPR_filters Jnit (void) 

{ */ 

/* 


-*/ 

*/ 


^0 INT16— irir 


FLOAT64 x; 


25 


30 


35 


/* 

/* Generate the window for Tilt Compensation 

*/ 

/* """" 


1 = L_LPC-L_SF/3; 

for (i = 0; i < 1, i++) 
{ 

x = cos(i*PI/(FLOAT64)l); 
tilt_window[il - 0.54-0.46 * x; 
> 

for (i = l;i<LLPC;i++) 
lilt windowli] - cos((i-l)*PI*0.49/(L„LPC-l)); 


*/ 


I 


-*/ 


40 


/♦ Pre-processing High-pass filters 


*/ 
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*/ 


pre_flt_num [0] = -0.92724705/0.46363718; 
pre_fll_num [1] = +1.00000000, 

pre_flt_den fO] = -1.9059465; 
prc_flt_den [1] = +0.91 14024; 

pre_gain « 0.46363718; 


/*- 


/* Tilt compensation */ 

/* */ 


1 5 tc_mem_dec = 0.0; 

tc_coeff = 0.0; 
tc gain = 1.0; 


20 /* */ 

/* Post-processing filters */ 

/* */ 

rzero = 0.57; 
25 r_pole = 0.75; 

pst_scalc= 1.0; 
pst_hp_mcm = 0.0; 

30 /* */ 

/* Post-processing filters */ 
/* */ 

pst_flt_num [0] = -1.8544941/0.92727435; 
35 psl_flt_num [ 1] = +1,00000000, 

pstjlt_den 10J = -1.9059465; 
pst_flt_den [1] = +0.91 14024; 

40 pst_gain = 0.92727435*2.0; 
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return; 
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+/ 


/*- 
} 


-*/ 


/*- 

10 


-*/ 


=*/ 


/* FUNCTION : PPR_silence__enlian_init 0 * f 

*/ 

/* 

/* PURPOSE : This function performs the initialisation */ 
j 5 /* for the silence enhancement in the input */ 

/* frame 


*/ 


/* 

/* INPUT ARGUMENTS 
/* _ None. 


-*/ 
*/ 


*/ 


20~T* 


-«/ 


/* OUTPUT ARGUMENTS : 
/* _ None. 

/* 

/* RETURN ARGUMENTS : 
25 /* _ None 


*/ 


*/ 

-*/ 

*/ 


*/ 


void PPR_silcnce_enlian_init (void) 
{ 

30 /* 

INT16 i; 


-*/ 


-*/ 


35 


/* Set-up the initial values *' 

*' 


zero_lcvcl = 8.0; 
min delta = 65534; 


40 
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for (i = 0; i < SE_MEM_SIZE; i++) 
{ 

zero_ratc [i] = 0.0; 
!ow_ratc [i] = 0.0; 
higlwate [i] = 0.0; 
zeroed [i] = 1 ; 
} 


10 


12_neg = -24.0; 
ll_neg = -8.0; 
ll_pos = 8.0; 
12_pos = 24.0; 


15 


low_neg[0] = -32766.0 
low_neg!l] = -32767.0 
low_pos[0]= 32767.0 
low_pos[l] = 32768.0 


20 


return; 


25 


/* 

} 


-*/ 


=*/ 


/* FUNCTION 
30 /* 


PPR_silence_cnhan Q 


/* PURPOSE This function perfroms the enhancement of the */ 

/* silence in the input frame. */ 

/* */ 

/* INPUT ARGUMENTS : */ 

35 /* _ (FLOAT64 []) x_in: input speech frame. */ 

/* _ (TNT 16 ) N : speech frame size. */ 

/♦ -*/ 

/* OUTPUT ARGUMENTS : */ 
/* _ (FLOAT64 f]) x_out: output speech frame. */ 

40 /* */ 
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/* RETURN ARGUMENTS 
/* None 


5 void PPR_silcncc_enhan (FLOAT64 x_in Q. FLOAT64 x_out [], INT16 N) 
{ 

*/ 

/♦ 


10 


15 


INT 16 tmp; 

INT16 i, idle_noise; 

INT16 condl, cond2, cond3, cond4; 

TNT16 *hist; 

INT32 delta; 

FLOAT64 *min, *max; 


20 


25 


30 


hist = svector (0, SE_HIS„SIZE-1); 

max = dvector (0, 1); 
"min - ^dvcctor(0rl); 


/*- 

/* 

/*- 


Initialisation 


min[01= 32767.0; 
min[l] - 32766.0; 
max[0] = -32767.0; 
max[l] = -32766.0; 


/* 

/*- 


*/ 


*/ 


Loop on the input sample frame 


-*/ 
*/ 
-*/ 


35 


for(i = 0; i < N; i++) 
{ 

/* 


40 


imp = (INT 16) x_in[il; 
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/* */ 

/* Find the 2 Max values in the input frame */ 
/* ♦/ 

5 if (tmp> max|01) 

{ 

max [1] = maxfO]; 
max [0] = imp; 
} 

10 else if ((unp > max[ 1]) && (tmp < maxlO])) 

max[l] = tmp; 


/* 


/* Find the 2 Min values in the input frame */ 
15 /* */ 

if (tmp < min[01) 

{ 

min[l] = minfO], 
20 minlOJ = tmp; 

} 

else if ((tmp < minfl]) && (imp > min[0])) 
min[l] = Unp; 

25 /* */ 

/* Find ihe 2 Min positive values and tlic 2 Min */ 
/* abs. negative values in the input frame */ 
/* */ 

30 if(tmp>=0) 

{ 

if (tmp < lo\v_pos[0]) 
{ 

low_pos[l) = low_pos[0]; 
35 low_pos[0] = tmp; 

} 

else if ((unp < lo\v_pos[l]) && (tmp > low_poslO])) 
lo\v_pos|l] = tmp; 

} 

40 else 
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{ 

if (tmp> low neg(Ol) 
{ 

low_neg[l] = low_neg[01; 

low_neg[0] = tmp; 

> 

else if ((tmp > lawnegM) (t™P < low_negl0])) 
low_neg[l] = tmp; 


/*- 

} 


-*/ 


-*/ 


/* 

/* Calculate the difference between Max and Min 

*/ 

/* 


delta = (INT32)(max[0]-min|0]); 

^if-((delta^ miiLdelta)^ 
{ 

min delta = delta; 


*/ 


if (inin_dclta <= DELTA_THRLD) 
{ 

/* 


-*/ 


if ((maxlU >= 0.0) && (max[0] > 0.0)) 
{ 

ll_pos = max[L]; 
12_pos = max[0]; 
} 


else 


{ 

if(lo\v__posl0]< 32767.0) 

ll_pos = lowjwslOJ; 

if(low_pos[l]< 32767.0) 

12_pos = lowjwsIM; 

> 


40 
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if «min[0] < 0.0) && (min[l) < 0.0)) 
{ 

5 12_neg = min[0]; 

ll_ncg = min[l]; 
} 

else 

{ 

10 if (low_neg[0] > -32766.0) 

ll_neg = low_neglOJ; 
if (lo\v_neg[ll > -32766.0) 

12_neg = lownegfl]; 

} 


15 


/* */ 

} 


20 

/* ♦/ 

/* Update zero level */ 

/* */ 

25 if (low_pos[0] < zero_lcvel) 

zerojevel = low_pos[0J; 

/* */ 

/* Update the Histogramm */ 
30 /* */ 

for(i = 0; i < N; i++) 
{ 

if ((x_in[i] >= 12_neg) && (x_in[i) < ll_neg)) 
35 hist [0]++; 

else if ((x_in[i] >= ll_neg) &Sc (xjn[i\ < 0.0)) 
hist [1]++; 

else if ((x_in[i] >= 0.0) && (x_in[i] <= Il_pos)) 
hist [2]++; 

40 else if ((x_in[i] > ll_pos) && (x_infi] <- 12_pos)) 
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30 


hist [3]++; 

else 

hist 14]++; 

} 


/♦ 

/* Update tlie History 
/* 


*/ 

*/ 


10 for(i = SE_MEM_SIZE- 1 ; i > 0; i~) 

{ 

zero_rate |i] = zero_rate [i-1]; 
lovv_rate [i] = low_rate 
high_rate [i] = high_rate 
15 zeroed [i] = zeroed 

} 


/*— 
/* 

20 /*— 


Current Frame Rate Calculation *' 

J */ 


if (liist 12] ==N) 

zero_rate[0] = 1.0; 

else 

25 zero_ratc[0] = (FLOAT64) hist [2] / (FLOAT64)N; 

if((hist[l] + hist[2]) = N) 
lo\v_rate[0] = 1.0; 

else 

low_rate[0] = (FLOAT64)(hist[l] + hist[2]) / (FLOAT64)N; 


35 


if(hist[4] ==N) 

high_rate[01 = 1.0; 

else 

lugh_rate[01 = (FLOAT64)hisl[4] / (FLOAT64)N; 


„ */ 


Silence Frame Detection */ 


/* 

♦/ 

40 /* 
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10 


15 


idlcnoise = 1 ; 

for (i = 0; i < SE_MEM_SIZE; i++) 
{ 

t if ((zcro_rate[i] < 0.55) || (low_rate[i] < 0.80) || 

(high_rate[i] > 0.07)) 
idle_noise - 0; 

} 

condl = ((zcro_rate[0] >= 0.95) && (high_rate[0] <= 0.03)); 

cond2 = ((low_rate[0] >= 0.90) && (Iow_rate[l] >= 0.90) && 
(high_rate[0] <= 0.030)); 

cond3 = ((low_rate[0] >= 0.80) && (low_rate[l] >= 0.90) && 
(high_ratc[0] <= 0.010) && (zeroedfl] == 1)); 


20 


cond4 = ((lo\v_rate[01 >= 0.75) && (low_rate[l] >= 0.75) && 
(high_rate[0J <= 0.004) && (zeroedfl] = 1)); 


25 


30 


/*- 

/* 
/*- 


Modify the dignal if is a silence frame 


*/ 
-*/ 


if (condl || cond2 || cond3 || cond4 || idlc_noise) 
{ 

if (zeroed [1] 1) 
{ 

/* 

/* Keep the Signal Down 


/* 


*/ 

-*/ 


35 


40 


else 


ini_dvector(x_out, 0, N-l, zcro_lcvel); 
} 

{ 


/*- 

/* 

/*- 


Ramp Signal Down 


*/ 
-*/ 
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for (i - 0; i < SE_RAMP_S1ZE; i++) 

x_out [i] = ((FLOAT64)(SE_RAMP__SIZE - 1 - i) * x_inli] + 

(FL0AT64)i * zero_lcvel) / 

(FLOAT64)(SE_RAMP_SlZE - 1); 

ini_dvector (x_out, SE_RAMP_SIZE, N-l, zerojevel); 
} 

zeroed [0] = 1; 
} 

else if (zerocdfl] == 1) 
{ 


/* Ramp Signal Up 


10 


15 


-29- 


for (i - 0; i < SE_RAMP_SIZE; i++) 

x_out [i] = ((FLOAT64)i * x_in[i] + 
(FLQAT64)(SE_RAMP_SIZE - 1 - i) * zerojevel ) / 


25 


else 


(FLOAT64)(SE_RAMP_SIZE - 1); 


zeroed[0] = 0; 
} 


zeroed[0] = 0; 


30 free_svector (hisl, 0, SEJflS_SlZE-l); 

free_dvcctor (max, 0, 1); 
free_dvector (min, 0, 1); 

35 

return; 


•/ 


40 
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/* 


/♦FUNCTION : PPRJowpass 0 * / 

5 /* */ 

/* PURPOSE This function perfroms Uie lowpass filtering */ 

/* of tlie input frame. */ 

/* */ A 

*/ 

10 /* _ (INT16 ) l_frm: speech frame size. */ 

/* (TNT 16 ) smvmode: SMV running mode. */ 

*/ 


15 /< 


INPUT ARGUMENTS : 

_(INT16 

) l frm: speech frame size. 

(1NT16 

) smv mode: SMV running mode. 

_(INTI6 

) flat_flag: flat input speech flag. 


OUTPUT ARGUMENTS : 

*/ 

_ None. 

*/ 


*/ 

INPUT/OUTPUT ARGUMENTS : 

1 */ 

_ (FLOAT64 []) x_in: input/output : 

speech frame. */ 


*/ 


20 /* RETURN ARGUMENTS : */ 
/* _ None. */ 


=*/ 


void PPRJovvpass (FLOAT64 x_inU, INT16 l_frm, INT16 smvjnode, INT16 flat_flag) 
25 { 

/* */ 

FLOAT64 x; 
rNT16 i; 


30 


/*- 


if (flatjlag==0) 

{ 

35 switch (smv_mode) 

{ 

case 0: lp_ilt_num[0] « 0.0; 
break; 

case 1: lp_flt_numf0] = 0.05; 
40 break; 
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/*- 

35 

7** 


668 

case 2: lpjlt_num[0] = 0.075; 
break; 

} 

} 


else 


{ 

switch (smv mode) 
{ 

case 0: lp_flt_numlO] = -0.1; 
10 break; 

case 1: 1p_flt_num[0] = 0.0; 
break; 

case 2: lp_flt_numl0] = 0.0; 
break; 

15 } 
} 


/*- 


-*/ 


-20— — - — -for (i = OH < -MrmH** 48 ) 

{ 

x = x_in[i] + lp_flt_buqOJ*lp_flt_num[0]; 
lpjll__buf[0] « x_in[i]; 
xinfi] = x; 
25 } 


-*/ 


return; 


/* FUNCTION : PPRJiighpass 0 
/* 


-*/ 


/* PURPOSE This function perfroms the highpass filtering */ 

40 /* of the input frame. */ 
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/* INPUT ARGUMENTS : 

/* (INT16 )i_frm: speech frame size. 


*/ 


/*-- 


5 /* OUTPUT ARGUMENTS 
/* _None. 
/* 


*/ 


*/ 


-V 


/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ (FLOAT64 []) x ; input/output speech frame. */ 

10 /+ */ 

/* RETURN ARGUMENTS : */ 
/* _Nonc. */ 


15 void PPR_highpass(TNT16 l_frm, FLOAT64 x[]) 
{ 

/* 


-*/ 


20 


PPR_ZeroPolcFilter (l_frm, x, pre_flt_buf_z, prc_flt_bufj3, 

prc_flt_num, pre_flt_den, pre _gain, 
PPR FLT ORDER); 


/*- 


*/ 


25 


return; 


/*- 


-«7 


30 /* 


/♦FUNCTION : PPRjpitch_postfllter 0 */ 
/* V 

35 /* PURPOSE This function perfroms the pitch */ 

/* postfiltering in order to enhance the speech */ 

/* periodicity. */ 

/* */ 

/* INPUT ARGUMENTS : */ 

40 /* _ (FLOAT64 ) lag_f: decoded lag value. */ 
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/* _(FLOAT64 )PSF: pitch gain scale factor.*/ 

/* _(INT16 )l_sf: sub-frame size. */ 

/* */ 

/* OUTPUT ARGUMENTS : */ 
5 /* _Nonc. */ 

/* - _ */ 

/* IN PUT/OUTPUT ARGUMENTS : */ 
/* _ (FLOAT64 []) cxt: input excitation signal.*/ 

/♦ */ 

10 /* RETURN ARGUMENTS : */ 
/* _ None. */ 

void PPR_pitch_postfilter(FLOAT64 ext G, FLOAT64 lag_f, FLOAT64 PSF, INT16 l_sf) 
15 { 

/* */ 

FLOAT64 Rp[2*SINC_LTMlT+8], x, y, gain, pit_step, pit_tabf25], 

20 tmp[L-SF]-; — — — 

1NT16 i, IP1, IP2, PL, P2, pitjdx, LowL, HighL, L_Rp; 

/* */ 

/* Searching range definition */ 
25 /* */ 

pit_step= 1.0/8.0; 
PI =0; 
P2 - 24; 
30 pitjab[0] = MAX(min_pit, lag_f-L5); 

for(i = 1; i <= P2; i++) 
{ 

pitjabli] = pk_tab[i-l) + pit_step; 
35 P>t_tab[i] = MTN(HI_LAG2, pit_tabfi]); 

} 

IP1 = (INT16)pit_tab[Pl]; 
IP2 = (INT16)(pit_tab[P2]+1.0); 
40 IP2-MAX(rPi,IP2); 
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LowL = 1P1 - SrNCJLIMIT - 1; 
LowL = MAX (0, LowL); 
HighL = IP2 + SINC_LIMIT + 1; 
5 L_Rp = HighL - LowL + 1 ; 

#ifdcf VERBOSE 

if (L_Rp >= 2*SINC_LIMIT + 8) 

nrerrorfMemory Error: L_Rp>=2*SrNC_LIMlT+8 !!\n M ); 

10 tfcndif 


30 


-*/ 


/* Integer correlation */ 
/* */ 


15 

cpy_dvector (ext, bufT_LTpost+MAX__LAG, 0, l_sf-l); 

dot_dvcctor (bufT_LTpost+MAX_LAG-LowL+l, buJT_LTpost+MAX_L AG-LowL+ 1 , &y, 

0, l_sf-l); 

for (i = LowL; i <= HighL; i++) 
20 { 

dot_dvector (cxt, buff_LTpost+MAX_LAG-i, &x, 0, l_sf-l); 

y buff LTpost [MAX_LAG-i] * bufT LTposl [M AX_L AG -i J ; 

y -= buff_LTpostIMAX_LAG-i+Lsq*bufT_LTpost[MAX_^ 

Rp[i-LowLl = x / sqrl(MAX(y, 0.1)); 
25 } 

/* */ 

/* Fine index searching */ 
/* */ 


LTP_FineIndex_search (pit_tab, PI, P2, LowL, L_Rp, Rp, &pit_idx); 


/* */ 

/* LTP excitation */ 
35 /* */ 

LTP_cxcit_const _pitch (pit_tab[pil_idx], MAX_LAG, buff_LTpost, l_sf, 

tmp, 0); 

40 /* */ 
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/* Update residual buffer */ 
,* */ 


PPP_update_LT_mem (MAX LAG, buff_LTpost, l_sf, ext); 


-*/ 


/*— 

/* Compute the harmonic filter coefficient */ 

,* •/ 


10 dot_dvcctor (ext, Imp, &x, 0, l_sf-l); 

dot_dvcclor (tmp, Unp, &y, 0, l_sf-l); 
gain = x / MAX(y, 0.001); 

gain = M1N(1.0, gain); 
15 gain*=PSF; 


-*/ 


/* 

/* Perform the harmonic filtering */ 
/* */ 


40 


for (i = 0; i < l_sf; i++) 

tmp[i] = ext[i] + gain*tmp[i]; 


25 / 


/* AGC 
/* 


-*/ 


dot_dvector (ext, ext, &x f 0, l_sf-l); 
30 dot_dvector (Unp, Imp, &y, 0, l_sf-l); 

gain=sqrt(x / MAX(y, 0.001)); 
for (i = 0; i < l_sf; i++) 

ext[i] = tmp[i]*gain; 

35 


-*/ 


return; 
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*/ 


/* ^ */ 

5 

/♦FUNCTION : PPR_post ^process 0 *' 

/* */ 

/* PURPOSE : This function pcrfroms post-filtering */ 

10 /* (harmonic + formant) in order to enliancc the */ 

/* speech quality. */ 

/* */ 

/* INPUT ARGUMENTS : */ 

/* _ (FLOAT64 []) pdcfq: decoded prediction coefT.*/ 

15 /* _ (FLOAT64 []) lag f: decoded lag value. ♦/ 

/* _ (INT16 ) l_sf: sub-frame size. */ 

/* */ 

/* OUTPUT ARGUMENTS : */ 
/* _ None. */ 

20 /* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ (FLOAT64 Q) sigsyn: synthctiscd signal. */ 

/* */ 

/* RETURN ARGUMENTS : */ 

25 /* _None. */ 


=*/ 


void PPR_post_process(FLOAT64 sigsyn [], FLOAT64 pdcfq [], FLOAT64 r_0, 

FLOAT64 r_p, FLOAT64 lag_f, INT16 l_sf, 1NT16 flatjlag, 
30 INT16 fix_ratc) 

{ 

/* •/ 

/* Adaptive (weighted) postfilter variables */ 
/* ♦/ 


35 


FLOAT64 \vpdcf_pole[NPl, wpdcfzerorNP], ai_zero[NP+l]; 
FLOAT64 tmpmemfNP], hh[L_SF], aftcr_syn[L_SF]; 
FLOAT64 vail, va!2; 


40 


BNSDOCID <WO_ _0122402A1 \ > 


WO 01/22402 


PCT/USOO/25182 


674 

/* Harmonic Filtering variables */ 
*/ 


1NT16 i, Lh, L2; 

FLOAT64 gain, numerator, denominator; 
FLOAT64 rcsidu_w[L_SF]; 


/* ' 

/* Tilt compensation variables */ 
/* */ 

FLOAT64 rO, rl, kl, coeflf, after_Ult[L_SF]; 


-*/ 


/* Compute the weighted LPC coefficients */ 
/*__„ */ 


r zero = 0.75*r zero + 0.25*r_0; 


vall-=-U)~ 


val2=1.0; 

for (i = 0; i < NP; i++) 
{ 

vail *= r_pole; 
va!2 *= r zero; 

wpdcf_poleli] = pdcfq[i] * vail; 
\vpdcf_zcro[i] = pdcfq[i] * val2; 
} 


-*/ 


/* Compute the residual signal */ 

— */ 


LPC_ptoa (wpdcf_zero, ai_zero, NP); 
FLT_conv (sigsyn, ai_zero, NP+1, l_sf, residu_w); 


/* V 


/* Update the memory */ 


* */ 
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cpy__dvector(sigsyn+I_sf, sigsyn, 0, NP-1); 


/* */ 

/* Pitch post-filler */ 
5 /* */ 

if(l_sf== L_SF) 
{ 

L2 = L_SF / 2; 
10 for (i = 0; i < N_SF2; i++) 

PPR_pitch_postfilter (residu_w+i*L2, lag_f, r_p, L2); 

} 

else 

PPR_pitch_postfiIter (residu_w, lag_f, r_p, l_sf); 

15 

/* */ 

/* Tilt compensation */ 

/* */ 

20 /* */ 

/* Compute the impulse response of the zero-pole filter */ 

/* ; */ 


Lh = 22; 

25 ini_dvcctor (hh, 0, l_sf-l, 0.0); 

LPC_ptoa (wpdcf_zero, hh, NP); 
ini_dvector (tmpmem, 0, NP-1, 0.0); 

FLT_allsyn(hh, (INT16)(Lh+l), wpdcf_pole, NP, hh, tmpmem); 

30 /* */ 

/* Compute the first reflection coefficient */ 
/* */ 

dot_dvector (hh, hh, &r0, 0, Lh-1); 
35 dot_dvcctor (hh, hh+1, &rl, 0, Lh-2); 

kl = -rl/MAX(r0, 0.0001); 

coeff = MAX(IvflN(0.5*kl, 0.0), -0.1); 

40 if(kl<0.0) 
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{ 

if(flat_flag == 0) 

coeff-=0.1; 

else 

coe£f-=0.05; 

} 


/*- 


-*/ 


10 /*-- 


/* Perform the lilt compensation */ 
*/ 


after_tilt[0] = residu_w[0] + coefT*pst_hp_mern; 
for (i = 1; i < Lsf; i++) 

after_till[i] = residu_v\li] + cocfPresidu_w|i-l]; 


/*- 


/* Update the memory */ 

,* — •/ 


psthpniem = residu_\v[l_sf-l]; 


/* 

/* Synthesis filter */ 

,* */ 

FLT_allsyn (aflerjilt, l_sf, wpdcf_polc, NP, after_syn, PF_mcm_syn); 


^ */ 

/* Adaptive gain control */ 

*/ 


/* Compute the gain factor for the current subframe */ 


dot_dvector (sigsyn+NP, sigsyn+NP, Enumerator, 0, l_sf-l); 
40 dot_dvcctor (after_syn, after__syn, &dcnominator, 0, l_sf-l); 
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gain = sqrt(numerator / MAX(denoininator, 0.001)); 
if (flatjlag == 0) 


5 gain *= 1.1; 

else 

gain *= 1.15; 

/* */ 

10 /* Perform the gain control */ 

/* */ 

for (i = 0; i < l_sf; i++) 
{ 

15 pst_scale = 0.9*psl_scale + 0. l*gain; 

after_syn[i] *= pst_scale; 
} 

/* */ 

20 /* High-pass filtering */ . 

/* */ 

PPR_post_highpass (l_sf, aflcrsyn); 

25 cpydveclor (aflcr syn, sigsyn+NP, 0, l_sf-l); 

/* */ 

return; 

30 

/* */ 

} 

/* */ 

/* FUNCTION : PPR_ZeroPoleFiIter 0 */ 

/* */ 

/* PURPOSE This function pcrfroms the pole and zero */ 

40 /+ filtering. */ 
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,* *' 

/* INPUT ARGUMENTS : *' . 

(INT16 )Len: signal size. */ 
_ (FLOAT64 []) Zz : zero filter memory. */ 
(FLOAT64 []) Zp : pole filter memory. */ 
(FLOAT64 []) b : numerator coefficients. */ 
(FLOAT64[])a : denominator coefficients.*/ 

*/ 



/* 


/* 

5 

/* 


/* 


/* 


/* 


/* 

10 



_(FLOAT64 )K : filter gain. 
(INT16 ) order: filter order. */ 


-*/ 


/* OUTPUT ARGUMENTS : 
/* None. 

/* 


-*/ 


/* INPUT/OUTPUT ARGUMENTS : 

15/* _ (FLOAT64 []) InOul: input output signal. */ 

*/ 

/* 

/* RETURN ARGUMENTS : * 7 

/* _ None. 

/ *===========-========== : ==== == = =====s=5= 

"20- 


void PPR ZeroPolcFHter (INT16 Len, FLOAT64 InOutfl. FLOAT64 Zz[], FLOAT64 ZpQ. 

FLOAT64 bG, FLOAT64 a[], FLOAT64 K, INT 16 order) 

{ 

/* *' 


25 


INT 16 i, k; 
FLOAT64 S; 


30 

for (i = 0; i < Len; i++) 
{ 

S = InOut[i], 

for (k = 0; k < order; k++) 
35 S+=b[kl*Zz[k]; 

for (k = order- 1; k > 0; k~) 

Zz[k] = Zz[k-lJ; 
Zz[0] = InOut[i]; 
InOutfi] = S; 

40 > 
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/* */ 

for (i = 0; i < Len, i++) 
5 { 

S = lnOut[i]; 

for (k = 0; k < order; k++) 

S -= a[k]*Zplk); 
for (k = order- 1; k > 0; k~) 
10 Zp[k]=Zp[k-l]; 


Zp{0] = S; 
InOul[i] = S*K; 
} 

15 /* */ 

return; 

/* V 

20 } 

/* */ 

25 /* FUNCTION : PPR_post_highpass 0 *' 

/* */ 

/* PURPOSE : This function perfroms G.729 high pass */ 

/* filtering. */ 

/* */ 

30 /* INPUT ARGUMENTS : */ 
/* _ (TNTI6 ) Len: signal size. */ 

/* --*/ 

/* OUTPUT ARGUMENTS : */ 
/* None. */ 

35 /* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ (FLOAT64 []) InOut: input output signal. */ 

/* */ 

/* RETURN ARGUMENTS : */ 
40 /* None. */ 
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void PPR_post_highpass (INT 16 Len, FLOAT64 lnOulQ) 
{ 

*/ 

/* 

PPR_ZeroPoleFilter(Len, InOut, pstjlt_buf_z, psl_fltj)uf_p, 

pstjlt_nura, pst_flt_dcn, pst_gain, 
PPR_FLT_ORDER); 


10 


15 /*- 

} 

/* 

-20-/*====== 

/* 

/*=== 


return; 

*/ 


- END 


=*/ 
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=*/ 


/* Conexant System Inc. 
5 /* 43 1 1 Jamboree Road 
/* Newport Beach, CA 92660 
/* 


*/ 


-*/ 


/* Copyright(C) 2000 Conexant System Inc. */ 

/+ ♦/ 

10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 


15 /* PROTOYPE FILE: luVppr.h 


*/ 


/*- 
/*- 
20 /*- 


FUNCTIONS 


-*/ 


-*/ 


void PPR filters init 


(void); 


25 void PPR_silence_enhan_init (void); 


void PPR silence enhan 


(FLOAT64 [], FLOAT64 [], INT 16 ); 


30 void PPR ZeroPoleFilter 


(INT16, FLOAT64 [],FLOAT64 [], FLOAT64 Q, 

FLOAT64 [],FLOAT64 []»I 7 LOAT64, INT 16); 


void PPRJowpass 


(FLOAT64 [], INT16, INT16, INT16); 


35 void PPR Iughpass 


(1NT16, FLOAT64 []); 


void PPR_post^highpass 


40 


(INT16, FLOAT64 Q)\ 
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void PPR_post process (FLOAT64 fl. FLOAT64 FLOAT64, FLOAT64, 

FLOAT64, INT16, INT16, INT16); 


void PPR_pilch jostfiltcr (FLOAT64 |], FLOAT64, FLOAT64, INT16); 

5 


/*= 
/*— 

/*== 

10 


■ END ' 

=============== 
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/* Conexant System Inc. 
5 /* 43 1 1 Jamboree Road 
/* Newport Beach, CA 92660 
/* 


*/ 


/* Copyright(C) 2000 Conexant System Inc. 
/* 


V 
-*/ 

-*/ 


10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 


15 /* LIBRARY: lib_prc.c 


*/ 


===*/ 


/* 

/* 

20 /*— — 


INCLUDE 


♦/ 

*/ 


#include "typcdcf.h" 

#includc "main.h" 

25 ^include "const h" 

#include "gpuUl.h" 

^include "mcutiLh" 


30 


^include "extvar.ir 

include "libjlt.h" 
^include "Hbjpah" 
^include "lib_prc.IT 


35 /*- 


/* 


-*/ 


FUNCTIONS 


/*= 


40 /* FUNCTION : PRCJnitJib (). 
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— */ 


/♦PURPOSE : This function performs initialise the PRC */ 


/* 
/*- 


library global variables. 


5 /* INPUT ARGUMENTS : 

/* _ None. 

/* 

/* OUTPUT ARGUMENTS : 

/* _ None. 
10 /* 

/* INPUT/OUTPUT ARGUMENTS : 

/* _ None. 

/* 

/* RETURN ARGUMENTS : 
IS /* _None. 


— */ 


*/ 


*/ 


*/ 


*/ 


-*/ 


*/ 


void PRC_inil_lib (void) 
{ 


"20" 


/* 


PRC ol cl GainNorm 


/*- 


25 


cl_Eg = -l; 
ol_Eg = -l; 


30 


m_lpc_gain = 0.8; 


/*- 


.*/ 


return; 


35 


/*==== 


40 /* FUNCTION : PRC_GainsNorm_Gc_Gp 0 


-*/■ 


=*/ 


*/ 
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/* ♦/ 

/♦PURPOSE : Tliis function performs the Mode 0 energy */ 

/* manipulation. */ 

/* */ 

5 /* INPUT ARGUMENTS : */ 
/* _(FLOAT64 ) nsr: Noise to Signal Ratio. */ 

/* _(FLOAT64 )sub_eng: sub-frame energy. */ 

/* _ (FLOAT64 []) res: excitation signal. */ 

/* _ (FLOAT64 **) unfcod: excitation vectors (ALG and */ 

10 /* LTP). */ 

/* _ (FLOAT64 **) fcod: filtered excitation vectors */ 

/* (ALG and LTP). */ 

/* _ (FLOAT64 0) Tgs: target signal. */ 

/* _ (INT 16 ) exc_mode: excitation mode. */ 

15/* _(FLOAT64 ) beta_sub: smoothing factor. */ 

/* _ (INT 16 )l_sf: sub-frame size. */ 

/* */ 

/* OUTPUT ARGUMENTS : */ 
/* _ None. */ 

20 /* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ (FLOAT64 []) gainQ: quantizicd gains. */ 

/* */ 

/* RETURN ARGUMENTS : */ 

25 /* None. */ 


/ 


void PRC_GainsNorm_Gc_Gp (FLOAT64 nsr, FLOAT64 sub_eng, FLOAT64 resQ, 

FLOAT64 gainQ [], FLOAT64 **unfcod, 
30 FLOAT64 **fcod, FLOAT64 Tgs [], 

INT16 exc_mode, FLOAT64 bcla_sub, 
1NT16 l_sf) 

{ 

/* */ 


35 


FLOAT64 lpc_gain, ol_g, cl __g, gain, x, y, E_ex, E_Tgs, Temp[L_SF]; 


40 if (nsr > 0.125) 
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{ 

/* 

/* Energy *' 


-*/ 


-*/ 


E_ex = sub_eng / L_SF; 
dol_dvector(Tgs, Tgs, &E_Tgs, 0, l_sf-l); 
E_Tgs /= l_sf; 


10 /*- ■ 

/* Energy smooth */ 
/* 

if (clJEg<0) 

15 { 

ol_Eg = E_ex; 

cl_Eg =EJTgs; 
> 

else 


-20 (- 


olJEg = bcta_sub*ol_Eg + (1.0-beta_sub)*E__ex; 
cl_Eg = beta_sub*cl_Eg + (1.0-bela_sub)*E_Tgs; 


25 


30 


35 


,* */ 


*/ 


/* Open-loop gain 
,* */ 

wad__dvector (unfcodfO], gainQ[0], unfcod[l], gainQ[l], 

Temp, 0, l_sf-l); 


dot_dvcctor (Temp, Temp, &x, 0, l_sf-l); 
x /= l_sf; 


x = sqrt(MAX(ol_Eg-5.0, 0)/MAX(x, 0.1)); 

gain = MIN(0.75*x, (L2 / MAX(gainQ[0], 0.01))); 

40 > 
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else 

{ 

/♦ */ 

/♦ LPC gain */ 

/♦ */ 


dot_dvector (res, res, &E_ex, 0, l_sf-l); 
E_ex /= l_sf; 

dot_dvector (Tgs, Tgs, &E_Tgs, 0, l_sf-l); 
10 E_Tgs/=l_sf; 


15 


35 


lpc^ain - sqrt(E_cx / MAX(E_Tgs, 0. 1)); 

lpc_gain = MIN(lpc _gain, mjpc _gain); 


/* */ 

/* Energy smooth */ 
/* */ 


20 if(d_Eg<0) 

{ 


25 else 


ol_Eg = E_ex; 
cl_Eg = E_Tgs; 
} 

{ 

ol_Eg = beta_sub*ol_Eg + ( 1 .0-beta_sub)*E_ex; 
cl_Eg = beta_sub*cl_Eg + (1.0-beta_sub)*E_Tgs; 


30 } 


/* ♦/ 

/* Open-loop gain */ 
/# ♦/ 

wad_dvector (unfcod[0], gainQ[0], unfeodf 11, gainQ[l], 

Temp, 0, l_sf-l); 


40 dot_dvccior (Temp, Temp, &x, 0, l_sf-l); 
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$5 


^20" 


30 


.35 


68S 

x /= l_sf; 

ol_g = sqrt(MAX(oLEg-5.0, 0) / MAX(x, 0.1)); 


/* 

/* Close-loop gain 

, 


wad dvector (fcod[01, gainQ[0), fcod[ll, gainQfl], 


Temp, 0, l_sf-l); 


dol_dvector (Temp, Temp, &y, 0, l_sf-l); 
y/= l_sf; 

cl_g = sqrt(MAX(cl_Eg-5,0, 0) / MAX(y, 0.1)); 

— */ 

/* Apply the gain */ 

* */ 

/* 


if(exc_mode != 0) 
25 < 


x = lpc_gain / MAX(mJpc_gain, 0. 1); 
y = 1.0 -x; 

gain = x*ol_g + y*cl_g; 

gain = MIN(0.75*gain, 1.2/MAX(gainQ[0], 0.01)); 

gain = M1N((1 + lpc_gain), gain); 

} 

else 

{ 

gain = 0.75*MTN(ol_S, cl_g); 

gain = MTN(gain, 1.2/MAX(gainQ[0], 0.01)); 

} 

} 


-*/ 


40 
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gain = MAX(1.0, gain); 
gainQ[0] *- gain; 
gainQ[lJ *= gain; 


5 /* •/ 

return; 

I* V 

10 } 

/* ♦/ 

15 /* FUNCTION : PRC_ol_cl_GainNorm_Gc 0- */ 

/* */ 

/* PURPOSE : This function performs the Mode 1 energy */ 

/* manipulation. */ 

/* */ 

20 /* INPUT ARGUMENTS : */ 
/* _ (FLOAT64 □) res2: excitation signal. */ 

/* _ (FLOAT64 **) unfcod: excitation vectors (ALG and */ 

/* LTP). */ 

/* (FLOAT64 **) fcod: filtered excitation vectors */ 

25 /* (ALG and LTP). */ 
/* _ (FLOAT64 f]) Tg: target signal. */ 
/* _ (INT 16 ) cxc_mode: excitation mode. */ 
/* (INT 16 )l_sf: sub-frame size. */ 
/* */ 

30 /* OUTPUT ARGUMENTS : */ 
/* _ None. */ 

/* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* (FLOAT64 □) gainQ: quantizied gains. */ 

35 /* */ 

/* RETURN ARGUMENTS : */ 
/* None. */ 


40 void PRC_GainNorm_Gc (FLOAT64 res2[], FLOAT64 gainQ [], FLOAT64 **unfcod, 
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FLOAT64 **fcod, FLOAT64 Tg U, INT16 l_sf) 

{ 

,* *> 


FLOAT64 lpc_gain, ol_g, cl__g, gain, E_ex, E_Tg; 
FLOAT64 val; 


,* — •/ 

/* LPC gain *' 
10 /♦ *' 


dot_dvcclor (rcs2, res2, &E_cx, 0, l_sf-l); 
dot_dvector<T g) Tg, &E_Tg, 0, l_sf-l); 

15 lpc_gain =sqrt (E_cx/MAX(ETg, 0.1)); 

lpc_gain =MIN (lpc_gain, 0.8); 

,* — */ 

/* Open-loop gain 

. */ 

20 /* 

dot_dvector(unfcod[l], unfcodf 1), &val, 0, l_sf-l); 
ol^g = gainQ[l] * gainQUl * val; 

25 

ol_g = sqrtCE^x/MAXCol.^, 0.1)); 


35 


/* 

/* Close-loop gain */ 

30 /* 


dot_dvector(fcod[ll, fcod[l], &val, 0, l_sf-l); 
cl_S = gainQ[U * gainQ[l] * val; 
cl_g - sqrl(E_Tg/MAX(cl_ J g T 0. 1)); 


/* 

/* Apply the gain */ 
40 /* 


-*/ 
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!pc_gain 
gain 
gain 
gain 

gainQ[l] 


0.75; 

lpc_gain*ol _g + (l-lpc_gain)*cl_g; 
MAX(1.0,0.5*gain); 
MIN(l+lpc_gain, gain); 
gain; 


V 


10 


return; 


/* 


-*/ 


15 /*- 


-*/ 


/*========= 

/* FUNCTION 
/* 


PRC_Ideal_ExcitO- 


*/ 


*/ 


20 /* PURPOSE : This function calculates the ideal fixed 
/* codebook excitation, */ 

/* INPUT ARGUMENTS : */ 

/* _ (FLOAT64 []) Tg: target signal. */ 
25 /* _ (FLOAT64 fl) pdcfq: quantized prediction coefT. */ 

/* _ (FLOAT64 []) \vpdcf_dcn: prccetual filter denominator */ 

/* coefficients. */ 

/* _ (FLOAT64 []) \vpdcf_num: precetual filter numerator */ 

/* coefficients. */ 

30 /* _ (1NT16 ) l_sf: sub-frame size. */ 

/* */ 

/* OUTPUT ARGUMENTS : */ 
/* _ (FLOAT64 □) rcs2: ideal excitation signal. */ 

/* _ */ 

35 /* INPUT/OUTPUT ARGUMENTS : */ 
/* None. */ 


/* RETURN ARGUMENTS 
/* _ None. 

40 /*================== 


*/ 
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void PRC Ideal ExcU(FLOAT64 Tg [], FLOAT64 pdcfq Q. FLOAT64 wpdcf.den Q. 

FLOAT64 wpdcf.num D, FLOAT64 rcs2 [], INT16 l_sO 

< __*/ 

/* 


10 


15 


FLOAT64 ai_zero[NP+l], unpmem[NP+l], tmp|L_SF+NP]; 
/* *' 


ini_dvector (tmp, 0, NP-1, 0.0); 
cpy_dvector (Tg t tmp+NP, 0, l_sf-l); 

LPC_ptoa (pdcfq, ai_zero, NP); 
FLT_conv (tmp, ai_zcro, NP+1, 1_sf, res2); 

ini dvecior (imp mem, 0, NP-1, 0.0); 

FLT_allsyn (res2, l_sf, wpdefmun, NP, trnp+NP, tmpmcin); 

20 LPC_ptoa (\vpdcf_den, ai_zero, NP); 

FLTconv (tmp, ai_zero, NP+1, l_sf, res2); 

•/ 

25 return; 

y " 

} 

*/ 

30 /* 


/* FUNCTION : PRC_TargetSignal 0- 

♦/ 


*/ 


35 /* PURPOSE : This function calculates the target signal. */ 

, * 

/* INPUT ARGUMENTS : * 7 

/* (FLOAT64 Q) wpdcf_num: precetual filter numerator */ 

y+ coefificients. */ . 

40 /* _ (FLOAT64 []) wpdefden: precetual filter denominator */ 
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/* coefficients. */ 
/* _ (FLOAT64 []) pdcfq: quantized prediction coeff. */ 
/* _(FLOAT64 []) OriSig: original signal */ 
/* _ (FLOAT64 f]) dif_mcm: memory for synthesis filter */ 
5 /* _ (INT16 ) targct_mcm: memory for taget synthesis. */ 
/* _(INT16 )l_sf: sub-frame size. */ 
/* _ */ 

/* OUTPUT ARGUMENTS : */ 
/* _ (FLOAT64 Q) res: residual signal. */ 
10 /* _ (FLOAT64 Q) Tgs: target signal. */ 

/* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 

/* _ None. */ 

/* V 

15 /* RETURN ARGUMENTS : */ 
/* None. */ 


void PRC_TargctSignal(FLOAT64 vvpdcf_num [], FLOAT64 wpdcf_den [], 
20 FLOAT64 pdcfq [], FLOAT64 OriSigQ, FLOAT64 res[], 

FLOAT64 Tgs [], FLOAT64 dif_mem []> 
FLOAT64 larget_mcm Q, INT 16 l_sf) 

{ 

/* */ 


25 


FLOAT64 ai_zcro[NP+l], tmpmemfNP], 


-*/ 


/* The residual signal is located at ext+MAXJLAG for use in the */ 
30 /* close-loop pitch search */ 


LPC_ptoa (pdcfq, ai_zero, NP); 

FLT_conv (OriSig, ai_zero, NP+1, l_s£ res); 


-*/ 


35 


/* */ 

/* Filter the residual signal with die synthesis filter */ 
/* NOTES : reverse the order of the memory */ 
40 /* */ 
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rev_dvector (dif_mem, Unpmem, 0, NP-1); 
FLT_allsyn(res, l_sf, pdcfq, NP, difmem+NP, tmpmcm); 


/* 

/* Perceptual weighting filter 
/* 


*/ 

*/ 

*/ 


10 


LPC_ptoa (\vpdcf_num, ai_zero, NP); 
FLT_conv (dif_mem, ai_zero, NP+1, l_sf, T S S )» 


15 


20 


/*- 

/* 

/*- 


NOTES: reverse the order of the memory */ 
*/ 


rev_dvector (target_mem, tmpmem, 0, NP-1); 
FLTallsyn (Tgs, I_sf, wpdefden, NP, Tgs, tmpmem); 


/*- 


return; 


— */ 


25 


/*- 


/♦FUNCTION : PRC_average_rate 0- 

30 /* " 

/* PURPOSE : This function calculates the SM V average 

/* bit rate. *' 

,* L •/ 


/* INPUT ARGUMENTS : 


*/ 


35 /* _ (INT 16 ) codec_rate: current frame citrate. */ 


/* 

/* OUTPUT ARGUMENTS : 
/* _ None. 


*/ 


40 /* INPUT/OUTPUT ARGUMENTS 


*/ 


=*/ 
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/* _ (FLOAT64 *) avg_rate : average bit rate. */ 

/* */ 

/* RETURN ARGUMENTS : */ 
/* _ None. */ 


void PRC_average_rate (INT 16 codec__rale, FLOAT64 *avg_rate) 
{ 


10 


35 


INT16bits = 0; 


/' 


/* Set bits incl. overhead in order to measure the */ 
15 /* average SMV bit-rate */ 

/* */ 

switch (codec_rate) 
{ 

20 case RATE8_5K: bits = RATE_1_1; 

break; 

case RATE40K: bits = RATE__1_2; 
break; 

25 

case RATE2_0K: bits = RATE_1_4; 
break; 

case RATE08K: bits = RATE_1_8; 
30 break; 

default: nrerror ("Invalid codec rate !!!\n*); 
break; 

} 


(*avg_rate) = ((*avg_rate)*(FLOAT64)(f^ 


40 
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return; 


/*- 
} 


— */ 


1 */ 

/ * === , == ========================= ========== 


10 /* END 
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/* Conexant System Inc. V 
5 /* 43 1 1 Jamboree Road */ 
/* Newport Beach, CA 92660 */ 

/* 1 */ 

/* Copyright(C) 2000 ^nexant System Inc. */ 

/* . */ 

10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

15 /* PROTOTYPE FILE : lib_prc.h */ 

/* ♦/ 

/* FUNCTIONS */ 


20 /* */ 

void PRC init lib (void); 


25 void PRC_GainsNorm_Gc_Gp (FLOAT64, FLOAT64, FLOAT64 [], FLOAT64 [], 

FLOAT64 **, FLOAT64 **, FLOAT64 [], INT16, 
FLOAT64, INT16); 


30 void PRC_GainNorm_Gc (FLOAT64 0, FLOAT64 [], FLOAT64 **, FLOAT64 **, 

FLOAT64 []» INT 16); 


35 void PRC_Ideal_Excit (FLOAT64 [], FLOAT64 [], FLOAT64 [], FLOAT64 [], 

FLOAT64 [], INT16); 


void PRCJTargetSignal (FLOAT64 *, FLOAT64 *, FLOAT64 *, FLOAT64 *, 
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FLOAT64 *, FLOAT64 *, FLOAT64 *, FLOAT64 


INT 16); 


5 void PRC_averagc_rate (INT16, FLOAT64 *); 

/*============-==================== ==r===== 

/* END 

/ * ==== ==================-=-===== =: == ===== 

10 
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/* Conexant System Inc. 
5 /* 43 1 1 Jamboree Road 
/* Newport Beach, CA 92660 
/* 


=*/ 


*/ 
*/ 


/* Copyright(C) 2000 Conexant System Inc. 
/* 


*/ 
-*/ 

-*/ 


10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of France Telecom and */ 
/* Conexant System Inc. */ 

15 

/* LIBRARY: lib_pwf.c */ 


=*/ 


/*- 
20 /*- 

/*- 


-*/ 


INCLUDE - 


-*/ 


-*/ 


^include "main.h" 
#include "typedef.h" 

25 

#include "const. h tt 
#include "gputil.h" 
^include "ext_var.h" 

30 #include "libjpc.h" 
^include "libjlth" 

#ifdefDIAG_SMV 

35 ^include "lib_dia.h M 

#endif 


/*- 
40 /♦- 


FUNCTIONS 
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*/ 


/♦FUNCTION : PWFJniiJib 0 *' 

5 /*_: */ 

/* PURPOSE : This function initialise the global variables */ 

/* ofthePWF library. */ 

/* */ 

/* INPUT ARGUMENTS : */ 
10 /* _None. */ 

/* */ 

/* OUTPUT ARGUMENTS : */ 

/* _None. */ 

/* */ 

15 /* INPUT/OUTPUT ARGUMENTS : */ 
/* _ None. */ 
/* */ 

/* RETURN ARGUMENTS : */ 
/* None. */ 

20 ==== B —===™==================== 


void PWF_initJib (void) 
{ 

/* --*/ 

25 /* wspeech_to_speech */ 

/* ♦/ 

r_pole_ws = 0.55; 
21_\vs_l =0.0; 
30 Zl_ws_2 = 0.0; 

/* , */ 

return; 

35 

/* : */ 

} 

/* */ 

40 
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/♦FUNCTION : PWF_speech_to_rcsidu (). */ 

/* */ 

/* PURPOSE : This function perform a filtering operation to */ 
5 /* pass from the input signal domain to the */ 
/* perceptually weighted domain residual. */ 
/+ */ 

/* INPUT ARGUMENTS : */ 
/* _ (FLOAT64 []) sigpp: input signal. */ 
10/* _(FLOAT64 **)pdcf: prediction coeff. matrix. */ 
/* _ (FLOAT64 )r_zero: band-expantion oefficient */ 
/* */. 

/* OUTPUT ARGUMENTS : */ 

/* _ (FLOAT64 []) residu: perceptually wcigthed domain */ 

15 /* residual. */ 

/* _ (FLOAT64 **) wpdcf_zcro: band-expanded prediction coeff. */ 
/* matrix. */ 

/* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 

20 /* _None. */ 

/* */ 

/* RETURN ARGUMENTS : */ 
/* None. */ 


25 

void PWFj;peech_to_residu (FLOAT64 sigpp[], FLOAT64 residuQ, FLOAT64 **pdcf, 

FLOAT64 **wpdcf_zero, FLOAT64 r_zero) 

{ 

/* */ 

30 

INT16 i,j,i_s; 

FLOAT64 ai_zcro[NP+l], val; 

/* */ 

35 /* Generate the perceptual weighting filter zeros coefficients */ 
/* */ 

for (i = 0; i <= N_SF4; i++) 
{ 

40 val * 1.0; 
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for(j = 0;j < NP; j++) 
{ 

val *= rzero; 

wpdcf_zeroli]U] = pdcf]i]|j]*val; 
} 

} 


/* Generate the weighted residual */ 
10 /* */ 

i_s = 0; 

for (i = 0; i < N_SF4; 
15 { 

LPC_ptoa (wpdcf_zero[i], ai_zcro, NP); 

FLT_conv(sigpp+L_PP-L_FRM-L_LPCLHD+i_s-NP, ai_zero, NP+1, L_SF4, 

residu+L_OLPIT-L_FRM-L_LPCLHD+i_s); 

20 

i_s += L_SF4; 
} 


/*- 


25 

LPC_j>toa(wpdcf_zero[i], ai_zero, NP); 

FLT_conv(sigpp + L_PP - L_LPCLHD - NP, ai_zero, NP+1, L — LPCLHD, 

residu + L_OLPIT 

30 L_LPCLHD); 


return; 

35 

/* */ 


/*- 

40 
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/ *==^=^===^===================-=================-================*/ 

/* FUNCTION : PWF_rcsidu_to_wspcech (). */ 

/* */ 

/* PURPOSE : This function perform a filtering operation to */ 
5 /* pass from the perceptually weighted domain */ 

/* ..residual to the perceptually weighted domain V 

/* signal. */ 

/* */ 

/* INPUT ARGUMENTS : */ 
10 /* _ (INT 16 ) flat_flag: flat input speech flag. */ 

/* _ (FLOAT64 []) rcsidu: residual signal. */ 

/* _ (FLOAT64 **) refl: partial corr. coeflf. matrix. */ 

/* _ (FLOAT64 ) r_zero: band-expantion ocflicient */ 

/* */ 

15 /* OUTPUT ARGUMENTS : */ 

/* _ (FLOAT64 |J) wspeech: perceptually weigthed domain */ 

/* signal. */ 

/* _ (FLOAT64 **) pdcf: prediction coeff. matrix. */ 

/* _ (FLOAT64 **) wpdcf_pole: band-expanded prediction coefT. */ 
20 /* matrix. */ 

/* _ (FLOAT64 U) LP_CF: first adaptive order lowpass */ 

/* coefficient. */ 

/* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 
25 /* _ (FLOAT64 []) wspeech_mem: synthesis filter memory. */ 

/* _(FLOAT64 *)Zl_ws: first adaptive order lowpass */ 

/* memory. */ 

/* ♦/ 

/* RETURN ARGUMENTS : */ 
30 /* _Nonc. */ 

void PWF_residu_to_wspeech (INT16 flatjlag, FLOAT64 residuQ, 

FLOAT64 wspeech[],FLOAT64 **refl, FLOAT64 **pdcf, 
35 FLOAT64 **wpdcf_pole, FLOAT64 *LP_CF, 

FLOAT64 wspeech_mem[], FLOAT64 *Zl_ws) 

{ 

/* •/ 

40 INT16 i, k, j, i_s, iO; 
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FLOAT64 val, x, y, tmpmcni[NP]; 

/* ♦/ 

/* Generate the perceptual weighting filter poles coefficients */ 
5 /♦ */ 

for (i = 0; i <= N_SF4; i++) 
{ 

val - 1.0; 

10 for (j = 0; j <NP;j++) 

{ 

val *= 0.5; 

wpdcf_pole[i](j] = pdc£IiIDl*val; 
} 

15 } 


25 


/*- 


if(flat_flag==0) 
20 y = 0.2; 

else 

y = 0.0; 


/* */ 

for (i = 0; i <= N_SF4; i4+) 
LP_CF[i] = y; 


30 /* Generate the weighted speech for openloop pitch lag search */ 
/* */ 

is = 0; 

for (i = 0; i < N_SF4; i++) 
35 { 

FLT aJlsyn (residu + L_OLPIT - L FRM - LJLPCLHD + i s, L SF4, 

wpdcf_pole[i], NP, wspeech + L_OLPlT - L_FRM 
L_LPCLHD + i_s, wspeech_mem); 

i_s += L_SF4; 
40 } 
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cpy_dvcctor (wspeechmcm, tmpmcm, 0, NP-1); 

FLT_aIlsyn (rcsidu + LJ3LPIT - L_LPCLHD, L_LPCLHD, wpdcfjpole[i], NP, 
5 wspcech+LJ3LPIT-L_LPCLHD, 

tmpmem); ^ 

/* */ 

/* Adaptive low pass */ 
10 /* */ 

i_s = 0; 

for (i « 0; i < N_SF4; i++) 
{ 

15 for (k = 0; k < L_SF4; k++) 

{ 

iO = L_OLPIT - L FRM - L LPCLHD + i_s; 
x = wspeech[i0 + k] + LP_CF[i]*(*Zljvvs); 
(*Zl_ws) - \vspeech[iO + k]; 
20 wspeech[i0 + k] = x; 

} 

i_s += L_SF4; 
} 

25 y = (*21_ws); 

for (i = 0; i < L_LPCLHD; i++) 
{ 

x = wspeech[L_OLPIT-L_LPCLHD+i J + LP_CF[N_SF4] *y; 
y = wspeech[L_OLPIT-L_LPCLHD+i], 
30 wspeech[L_OLPIT-L_LPCLHD+i] = x; 

} 

/* */ 

35 return; 

/* */ 

} 

40 /♦ */ 
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/* FUNCTION : PWF_\vspeech_to_speech 0- *' 

, ~ •/ 

5 /* PURPOSE : This function perform a filtering operation to */ 
/* pass from the perceptually weighted domain */ 

/* signal to the signal. */ 

/* *' 

/* INPUT ARGUMENTS : * ! 

10 /* _ (FLOAT64 **) wpdcf_zero: band-expanded prediction coe£f. */ 
/* matrix numarator. */ 

/* _ (FLOAT64 **) wpdcf_pole: band-expanded prediction coeff. */ 
/* matrix denominator. */ 

/* _ (FLOAT64 []) LP_CF: first adaptive order lowpass */ 

15 /* coefficient. */ 
/* 


==========*/ 


-*/ 


/* OUTPUT ARGUMENTS : +/ 

/* _ (FLOAT64 0) ModiSig: pitch preprocessed signal. */ 

20 /* INPUT/OUTPUT ARGUMENTS : * f 
/* (FLOAT64 *) Zl_\vs_2: first adaptive order lowpass */ 
/* memory. V 

/* */ 

/* RETURN ARGUMENTS : * 7 

25 /* _None. *' 

/ * =======r=============s= =========================== 


=*/ 


30 


void PWF_wspeech_to_spccch (FLOAT64 ModiSigG, FLOAT64 ♦•wpdcf.zero, 

FLOAT64 **wpdcf_pole, FLOAT64 LP_CF [], 
FLOAT64 *21_ws_2) 

{ 

/* */ 


FLOAT64 tmp_ws[L_FRM+NP] > ai__zero[NP+l]; 
35 INT 16 i,k, i_s; 


/*- 


cpy dvector (imp_ws_m, tmp ws, 0, NP-1); 
40 i_s = 0; 
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for (i = 0; i < N_SF4; i++) 
< 

for (k = 0; k < L_SF4; k++) 
{ 

5 lmp_wsfNP + i_s + k] - ModiSigli_s + kj 

(*Zl_ws_2) = LmpwsrNP + is + k]; 
} 

i_s += L_SF4; 


10 


LP_CF[i]*(*ZI_ws_2); 


cpy_dvector(Unpjws+L_FRM, lmp_ws_m, 0, NP-1); 


15 

i_s = 0; 

for (i=0; i<N_SF4; i++) 
{ 

LPC_ptoa (wpdcf_poIeli], ai_zero, NP); 
20 FLT_conv (tmp_ws+i_s, ai_/xro, NP+1 , L_SF4, ModiSig+i_s); 

FLT_allsyn (ModiSig+i_s, L_SF4, wpdcf_zcro[i], NP, ModiSig+i_s, 

ModiSig_m); 

i_s+=L_SF4; 
> 

25 /* */ 

return; 

/* V 

30 } 


/* END */ 

35 
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/* Conexant System Inc. 
5 /* 431 1 Jamboree Road 
/* Newport Beach, CA 92660 
/* 


*/ 
*/ 


*/ 
-*/ 


/* Copyright(C) 2000 Conexant System Inc. 
/* 


*/ 


-*/ 


10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of France Telecom and */ 
/* Conexant System Inc. */ 

1 5 /*======-=======-=====-========================== : 


/* PROTOTYPE FILE : lib_pwf.h 
/* 


*/ 


-*/ 


/* IMPLEMENTATION : 
/* Conexant System Inc. 
20 /* Media Access Department 

/* Speech Technology Development 
/* 


[26/05/2000] */ 
*/ 

*/ 

*/ 

V 


/* Last Version 
/* C. Murgia 
25 /* 


[26/05/2000] */ 


/* PURPOSE : Perccptuel Weighting Filter library 


/*- 
30 /*-- 
/*-- 


FUNCTIONS 


voidPWF init lib 


(void); 


35 void PWF_specch_to_residu (FLOAT64 [], FLOAT64 [], FLOAT64 **, FLOAT64 *+, 

FLOAT64); 

void PWF_residu_to_wspeech (INT16, FLOAT64 [], FLOAT64 [], FLOAT64 **, 
40 FLOAT64 **, FLOAT64 **, FLOAT64 * FLOAT64 [], 
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FLOAT64 *); 


void PWF_wspccch Jojspeech (FLOAT64 [], FLOAT64 ** FLOAT64 ** FLOAT64 [], 

FLOAT64 ♦); 


/* END */ 
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/* Conexant System Inc. 
5 /* 43 1 1 Jamboree Road 
/* Newport Beach, CA 92660 
/* 


*/ 
*/ 


/* Copyright(C) 2000 Conexant System Inc. 
/+ 


*/ 
-*/ 


10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 


/*== 


15 /* LIBRARY: libqlsf.c 


===*/ 


20 /*- 


INCLUDE 


-*/ 


include "typedef.h" 

#include M main.h w 
25 #include "const.h" 
#include "gputil.tT 
^include "mcutil.h" 
#include "ext_var.h M 

30 #include "lib_qlsf.rT 


/*- 
/*- 
/*- 


35 


FUNCTIONS 


/* FUNCTION : LSF__Q_initJib 0- 
/* 


-*/ 


*/ 


/* PURPOSE : This function initialise the global variable */ 
40 /* for the LSF_Q library. */ 


=*/ 
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/* */ 

/* INPUT ARGUMENTS : */ 
/* _ None. V 

/* V 

5 /* OUTPUT ARGUMENTS : */ 
/* _None. */ 

/* •/ 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ None. */ 

10 /* */ 

/* RETURN ARGUMENTS : */ 
/* _ None. */ 

15 void LSF_Q_init Jib (void) 
{ 

/* */ 


1NT16 i,j,k; 


20 


25 


MSJ)8k[0] = LMSl_08k; 
MS_08k[l] = LMS2_08k; 
MS_08k[2] = LMS3_08k 


30 


35 


MS_40k[0] 
MS_40kfll 


LMSl_40k 
LMS2 40k 


MS_40kl2) = LMS3_40k; 

MS_85k|0] =LMSl_85k 
MS_85k(l] = LMS2_85k 
MS_85k[2] = LMS3_85k 
MS_85k[3) = LMS4_85k: 

/* 


last_qlsfl0] = 0.049793355045123; 
last_qlsfll]= 0.071543733408561: 
40 last_qlsfJ2] = 0.115002634382656 
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1ast_qlsf[3] = 
Iast_qlsfl4] = 
last_qlsq5] = 
last_qlsfl6] = 
iast_qlsf[7] = 
last_qlsfI8] = 
last_qlsf!9] = 


0.164845365833111 
0.211800568342986 
0.252341845504398 
0.303571730115036 
0.341160910229804 
0.387682253964778 
0.418740763446287 


-*/ 


10 


15 


20 


Mean[0 
Mean[l 
Mean[2 
Mean [3 
Mean [4 
Mcan[5 
Mean [6 
Mean[7 
Mean [8 
Mean [9 


= 0.049793355045123 
= 0,071543733408561 
= 0.115002634382656 
= 0.164845365833111 
= 0.211800568342986 
= 0.252341845504398 
= 0.303571730115036 
= 0.341160910229804 
= 0.387682253964778 
= 0.418740763446287 


25 


J* Table of candidates for 0. 8k LSF quantization 
/* 


— */ 
*/ 
— */ 


ini_svector(stage_cand_08k, 0, 2, 8); 


30 


-*/ 


/* Table of candidates for 4.0k LSF quantization */ 
/* +/ 


ini_svector(stage_cand_40k, 0, 3, 10); 


35 /* Tabic of candidates for 8.5k LSF quantization */ 
/* */ 

ini_svector(stage_cand_85k, 0, 3, 10); 


40 
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/* Copy the MA- VQ Tables */ 
/* V 

for (i = 0; i < MAXLTT_08k; i++) 
5 for (j = 0; j < LMSMAX_08k; j-w-) 

for (k = 0; k < MAXLNp; k++) 

lsf_cb_08k[i][j]lk] = CBes_08k[i][j][k]; 

for (i = 0; i < MAXLTT_40k; i++) 
10 for (j = 0; j < LMSMAX_40k; j++) 

for (k = 0; k < MAXLNp; k++) 

lsf_cb_40k[i][j][k] = CBes_40k[i][j][k]; 

for (i = 0; i < MAXLTT_85k; i++) 
15 for (j = 0; j < LMSMAX_85k; j++) 

for (k = 0; k < MAXLNp; k++) 

lsf_cb_85k[i][j][k] - CBes_85k[i]0]fk]; 


/*- 


20 

for (i = 0; i < NP; i++) 

lsf_ne\vli] = (i+0.5)*0.5/NP; 

for (i = 0; i < NP; i++) 
25 lsf_mid|i| = (i + 0.5)*0,5 / NP; 

for (i = 0; i < NP; i++) 

lsf_old[i] = (i+0.5)*0.5/NP; 

30 for (i = 0; i < NP; i++) 

lsfq_oId[i] = (i+0.5)*O.5/NP; 

for (i = 0; i < NP; i++) 

Isfq_old_dcc[i] = (i+0.5)*0.5/NP; 

35 


return; 


40 /*- 
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/+ 


*/ 


/* FUNCTION 


: LSF_Q_lsfqnt 0- 


-*/ 


/* PURPOSE : This function quntize the LSF unsig an MA 
10 /* residual quntization algorithm. */ 
/* 


/* INPUT ARGUMENTS : 
/* _(FLOAT64 [])lsf: 


LSF vector. 


-*/ 
*/ 
*/ 
-*/ 


15 /* OUTPUT ARGUMENTS : */ 
/* _ (FLOAT64 []) qntlsf: quantized LSF vector. */ 

/* _ (INT16 []) channel_idx: bitstream buffer. 

/* 

/* 


(INT16 []) stage_cnd: prooning information. 
*/ 


20 /* INPUT/OUTPUT ARGUMENTS : 
/* _ None. 
/* 


*/ 


/* RETURN ARGUMENTS : 
/* None. 

25 


*/ 


void LSF_Q_lsfqnt (FLOAT64 Isf [], FLOAT64 qntlsf INT16 channcl_idx [J, 


INT16 rate) 


30 


/* 


-*/ 


INT16 nip_total; 
TNT16 k,l,p; 


35 


INT16 Pbest[l]; 

INT16 indices[LTT_85k]; 


40 


FLOAT64 \veight[NP]; 
FLOAT64 e_lsf[LP_40k*NP]; 
FLOAT64 tmp_qe_qlsfTNP]; 
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/* */ 

/* Weights calculation */ 
5 /* */ 

LSF_Q_lsf_to_wcight (lsf, weight, rate); 

/* */ 

10 /* Mean subtraction from lsf */ 
/* */ 

dif_dvector (lsf, Mean, lsf, 0, NP-1); 

15 /* */ 

/* Vector Prediction and Quantization */ 

/* */ 


switch (rate) { 
20 case RATE0_8K: 

for (p=0 ; p < LP_08k ; p++) { 
for (1=0 ; 1< NP ; 1++) { 
e_lsflp*NP+l] = lsf[lj; 
for (k=0 ; k < LQMA_08k ; k++) { 
25 eJsflp*NP+lJ -= B_08k[p][k][l]*qes[k][l]; 

} 

} 

} 

30 LSF_Q_Qnt_e(e__lsf,wcight,LP_08k,tmp_qe_qlsf,Pbest,l, 

indicesJsf^cb^OSk^MS^OSk.stage^and^S^LTT^OSk); 

for (1 = 0; 1< LTT_08k; 1++) 

channel_idx[l] = (INT16)indices[l]; 

35 

break; 

case RATE4 0K: 
for (p=0 ; p < LP_40k ; p++) { 
40 for (1=0 ; 1< NP ; 1++) { 
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e_lsflp*NP+l] = lsfll); 
for (k=0 ; k < LQMA_40k ; k++) { 
eJsflp*NP+l] -= B_40k[p][k][i]*qes[k][ll; 

} 

5 } 
} 

LSF_Q_Qnt_e(eJsf,weighuLP_40k,tmp_qe_qlsf,Pbcst,l, 

indices,!sf_cb_40k,MS_40k,stage_cand_40k,LTT_40k); 

10 for (1 = 0; 1< LTT40k; 

channeMdx[l] = (INT16)indices[l], 

cliannclJdx[LTT_40k] = (lNT16)Pbcst[0]; 
break; 

15 

case RATE8_5K: 
case RATE2 J)K: 

for (p=0 ; p < LP_85k ; p++) { 
for (1=0 ; 1< NP ; { 
20 cJsflp*NP+l] = lsfll]; 

for (k=0 ; k < LQMA_85k ; k++) { 
eJsflp*NP+l) -= B,85k[p][k]ll]*qes[k][ll; 

} 

} 

25 } 

LSF_Q_Qnt^e(e JsCwcigh^LP^Sk^tmp^qe.qlstPbesU 1 , 

indi(^sJsf_cb_85k,MS_85k,stage_cand_85k,LTT_85k); 

for 0 = 0;KLTT_85k;l++) 
30 channcl_idx[l] = aNT16)indices[l]; 

break; 
default: 

35 printfC Invalid rate ! ! \n M ); 

exit(0); 

} 


40 
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/* Note: all the delayed decision information are available 
/♦ */ 

ini_dvector (qntlsf, 0, NP-1, 0.0); 


switch (rate) { 
case RATE0 8K: 

for (1=0 ; 1< NP ; 1++) { 

for (k=0 ; k < LQMA_08k ; k++) { 
qntlsfll] += B_08k[0}[k][lJ*qes[k][l]; 

> 

} 

break; 


case RATE4 0K: 

for (1=0 ; 1 < NP ; 1++) { 

for (k-0 ; k < LQMA_40k ; k++) { 

qntlsfll] += B_40k[Pbest[0]][kJ[l]*qes[k][l]; 

} 

} 

break; 


case RATE8_5K: 
case RATE2_0K: 

for (1=0 ; 1< NP ; 1++) { 

for (k=0 ; k < LQMA_85k ; k++) { 
qntlsfll] += B_85k[0][k][l]*qes[kJ[l]; 

} 

} 

break; 


default: 

printf(" Invalid rale !! \n"); 
exit(0); 

} 


add_dvector(qntlsf, tmp_qe_qlsf, qntlsf, 0, NP-1); 
add_dvector(qntlsf, Mean, qntlsf, 0, NP-1); 
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fliptotal = 0; 
if(qnUsqO] <= 0.0) 
flip_total++; 

5 

for(k = l;k<NP; k++) 
{ 

if(qntlsflk] < qnUsqk-1]) 
flip_total++; 

10 } 


,* */ 

/* simulate decoder lsf-erasure */ 


-*/ 


15 

if (flipjotal > 1) 
{ 

\vad_dvector(last_qlsf, 0.9, Mean,0.1, qntlsf, 0, NP-1); 

#ifdef VERBOSE 

20 printfO'Vn WARNING frame %ld: Encoder flipped %d lsf pairs\n", 

frm_counU flip_total); 

#endif 

} 


25 /* 


-*/ 


LSF_Q_Order (qntlsf); 
LSF_Q_Space_lsf (qntlsf, 0); 


30 / 


*/ 


/* Shifting the prediction states */ 


/' 


-*/ 


switch (rate) { 
35 case RATE0 8K: 

case RATE4_0K:/*MA order is 4 for 0.8k and 4.0k */ 
for(k = LQMA_40k-l; 0<k;k-) 

cpy_dvector (qcs[k-ll, qes[k], 0, NP-1); 


40 break; 
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case RATE8_5K: 

case RATE2J)K:/+MA order is 2 for 8.5k and 2.0k */ 
for (k=LQMA_40k-l ; LQMA_85k <= k ; k--) { 
5 ini_dvector(qes[k],0, NP-1,0.0); 

for (k=LQMA_85k-l ; 0 < k ; k») { 
cpy_dvector(qes[k-l],qes[k],0, NP-1); 

> 

10 break; 

default: 

printf(" Invalid rate ! ! \n"); 
exit(0); 

15 } 

cpy_dvcctor (tmp_qe_qlsf, qes[0], 0, NP-1); 

/* */ 

20 /* Add the Mean vector to the LSF */ 
/* */ 

add_dvector (Isf, Mean, lsf, 0, NP-1); 

25 /* */ 

return; 

/* V 


30 } 

/* */ 

35 /* FUNCTION : LSF_QJsfdecode 0- */ 
/* */ 

/* PURPOSE : This function decodes tlie LSF vector. */ 
/* . */ 

/* INPUT ARGUMENTS : */ 
40 /* _ (INT16 [D channeljdx: indices. */ 
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/* _ (INT 16 ) bfi: Bad Farme Indicator. */ 

/* (INT16 ) count: Bad Farme counter. */ 

/* (FLOAT64 []) bfi Jpcg: lpc gain or previous frame.*/ 

/* — : / 

*/ 


5 /* OUTPUT ARGUMENTS : 

/* _ (FLOAT64 [1) qnUsf: decoded LSF vector. V 
/* 


/* INPUT/OUTPUT ARGUMENTS : 
/* _ None. 

10 /* 

/* RETURN ARGUMENTS : 
/* _ None. 


■*/ 

*/ 


*/ 


-*/ 

*/ 


*/ 


===*/ 


15 void LSF_Q_lsf_decode(INT16 bfi_caution, INT16 *expJlg,FLOAT64 qntlsf [], 
TNT16 channcl_idx [], 1NT16 bfi, 1NT16 count, INT16 rate) 

{ 

,* / 


20 INT16prd_idx; 

TNT16 flip_total; 
INT 16 lsf_caulion; 
INT16 k, 1; 

25 FLOAT64 tmp_qe_qlsf[NP]; 

*/ 


/* 

/* Not frame erasure 
/* 


* 


/ 


30 


prd_idx = 0; 
if (bfi ==0) 
{ 

lsf_caution = 0; 
35 if (rate == RATE4_0K) 

prd_idx = channel_idx[3]; 


*/ 

/* Generate the codebook vector */ 
40 /* 


* 


I 
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ini_dvcclor(lmp_qe_qlsf, 0, NP-1, 0.0); 


10 


switch (rate) 
{ 

case RATEO 8K: 


for (1 = 0; 1< LTT_08k; 1-H-) 
{ 

k = channel_idx[l]; 

add_dvector (tmp_qe_qlsf, lsf_cb_08k[l)lk], 


tmp_qe_qlsf, 0, NP-1); 


15 


break; 


case RATE4 OK: 


20 


for (1 = 0; 1< LTT_40k; 
{ 

k = channel_idx[l]; 

add_dvector (tmp_qe_qlsf, lsf_cb_40k[I][k], 


25 


30 


35 


tmp_qe_qlsf, 0, NP-1); 


case RATE8_5K: 
case RATE2 OK: 


tmp_qe_qlsf, 0, NP-1); 


break; 


for (1 = 0; 1< LTT_85k; 
{ 

k - channel_idx[l]; 

add_dvector (tmp_qe_qlsf, lsf_cb_85kll][k], 


40 


break; 
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default: nrcrror(" Invalid rate !! \n"); 
break; 

} 

/* */ 

/* Generate the predicted Isf vector */ 
/* */ 

ini_dvector(qntlsf, 0, NP-1, 0.0); 

switch (rate) 
{ 

case RATE0_8K: 

for (I = 0; 1 < NP ; !++) 
15 for (k = 0 ; k < LQMA_08k; k++) 

qntlsfll] += B_08k[0]fkl[l]*qes_dec[k][l]; 

break; 

case RATE40K: 
20 for (1 = 0; 1< NP; 

for (k = 0; k < LQMA_40k; k++) 

qntlsflll += B_40k[prd_idxJ[k]ni*qes_dec[k][l]; 

break; 

25 case RATE85K: 

case RATE2_0K: 

for (1 = 0; 1 < NP; 14+) 

for (k = 0; k < LQMA_85k; k++) 

qntlsfll] += B_85k[0][k][I]*qes_dcc[k][l]; 

30 break; 


35 


40 


break; 


default: nrcrror("Invalid rate !!"); 
} 

/* */ 

add_dvector (qntlsf, tmp_qc_qlsf, qntlsf, 0, NP-1); 

add_dvector (qntlsf, Mean, qntlsf, 0, NP-1); 
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flip_total = 0; 
if(qntIsfI0] <= 0.0) 
flipJotaJ-H-; 

for(k= l;k<NP;k++) 
{ 

if (qntlsflk] < qntlsf[k-l]) 
flip_total++; 

} 

/♦ */ 

/* lsf-erasurc, synchronized with encoder */ 
/* 1 */ 

15 if (flip_tolal > I) 

{ 

wad_dvcctor (last__qlsf, 0.9, Mean,0.1, qntlsf, 0, NP-1); 

#ifdef VERBOSE 

printf ("WARNING frame %ld: Decoder flipped %d lsf pairs\n", 
20 frm_count, flip_tolal); 

#endif 


10 


/* _ */ 

25 

LSF_Q_Order (qntlsf); 
LSF_Q_SpaceJsf (qnllsf, lsf_caution); 


if( count <= 2 && count>=l && bfi_caution == 1 ) 
30 { 

lsf_caution = 0; 
*exp_flg =0; 

for(k=0; k<NP-l;k++) 
{ 

35 if( 8000.0*(qnUsfIk+l] - qnUsfTk)) < 75.0) 

{ 

lsf_caution = 2; 
♦expflg = 1 ; 

#ifdef VERBOSE 

40 printf(" LSF_CAUTIONl HAPPENED at FRAME %Id %hd %f \n", 
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frm_count, k,8000.0*(qndsflk+l] - qntlsf[k])); 


10 


else 


{ 

lsf_caution = 0; 


*exp Jig =0; 
} 


— */ 


15 


else 


LSF_Q_Space_lsf(qnUsf,lsf_caution); 
} 


20 


/*- 

/* 

/*- 


Frame erasure 


*/ 


25 


-*/ 


/* Generate the average past error lsf vector */ 
/* */ 


(*exp Jig) = 0; 


30 


/* Shift previous LPC slightly towards mean */ 
/* */ 


wad_dvector (last_qlsf, 0.9, Mean, 0.1, qntlsf, 0, NP-1); 


35 


LSF_Q_Ordcr (qntlsO; 
lsf_caution = 5; 

LSF_Q_SpaccJsf (qntlsf, lsf_caution); 


ini_dvector (tmp_qe_qlsf, 0, NP-1, 0.0); 


40 


switch (rate) 
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{ 

case RATE0_8K: 

for (1 = 0; 1 < NP ; 

for (k = 0; k < LQMA_08k; k++) 
5 tmp_qc_qIsfTl] += B_08k[0][k][l]*qes_dec[k][l]; 

break; 

case RATE4 0K: 

for (1 = 0; 1< NP; 1+-*-) 
10 for (k = 0; k < LQMA_40k; k++) 

lmp_qe_qlsfll] += B_40kl0][k][ll*qes_dcc[k][l], 

break; 

case RATE8_5K: 
15 case RATE2 0K: 

for (1 = 0; 1 < NP; 1++) 

for (k = 0; k < LQMA_85k; k++) 

tmp_qe_qlsf[l] += B_85k[0][kJli]*qes_decfk]fll; 

break; 


20 


25 


35 


default: nrerror ("Invalid rate !!"); 
break; 

} 


-*/ 


difdvector(qntlsf, tmp_qe_qlsf, lmp_qe_qlsf, 0, NP-1); 

dif_dvector(tmp__qe_qlsf, Mean, tmp_qc_qlsf, 0, NP-1); 


30 } 


/* */ 

/* Shifting the prediction states */ 

cpy_dvector (qntlsf, last_qlsf, 0, NP-1); 


switch (rate) 
{ 

40 /* */ 


BNSDOCID <WO 0122402A1_L> 


WO 01/22402 


PCT/U SOU/25 182 


10 


726 

/* MA order is 4 for 0.8k and 4.0k */ 
/* */ 


case RATE0_8K: 
case RATE4 0K: 

for(k=LQMA_40k-l ; 0 < k; k-) 

cpy dvector (qcs_dec[k-l], qes_declk], 0, NP-1); 

break; 

/* */ 

/* MA order is 2 for 8.5k and 2.0k */ 
/* */ 


15 case RATE8_5K: 

case RATE20K: 

for (k = LQMA_40k-l; LQMA_85k <= k; k~) 
ini_dvector(qes_dec[k],0, NP-1, 0.0); 

20 for(k=LQMA_85k-l; 0 < k; k~) 

cpy_dvector(qes_dec[k-l] > qes_dec[k],0, NP-1); 

break; 

25 default: nrerror ("Invalid rate !!"); 

break; 

} 

cpy_dvector (tmp_qc_qlsf > qes_dcc[0], 0, NP-1); 

30 

/* */ 

return; 

35 /* */ 

} 


40 /*==========-===================-======================================*/ J 
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/♦FUNCTION : LSF_Q_Order 0 */ 

/• ♦/ 

/* PURPOSE : This function reorder the decoded LSF vector. */ 

/* */ 

5 /* INPUT ARGUMENTS : */ 
/* y _None. */ 
/* */ 

/* OUTPUT ARGUMENTS : */ 
/♦ _ None. */ 

10 /* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ (FLOAT64 □) qlsf: decoded LSF vector. */ 

/* ♦/ 

/* RETURN ARGUMENTS : */ 

15 /* _None. */ 

void LSF__Q_Ordcr (FLOAT64 qlsf []) 
{ 

20 /* */ 

INTJ6 

FLOAT64 temp; 

25 /* */ 

for (i = NP-l;i>=0;i~) 
{ 

/* */ 

30 

for(j = 0;j<i;j++) 
{ 


if (qlsflj] > qlsHj+l]) 
{ 

35 temp = qlsflj]; 

qlsflj] =qlsfU+i]; 
qlsf[j+l] = temp; 

} 

} 

40 
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*/ 


return; 


/*- 

} 


10 


/*- 


/*== 


/* FUNCTION : LSF_Q_Space_lsf 0- * ; 


-*/ 


15 /* 

/* PURPOSE : This function preserve the minimum spacing */ 
/* between the decoded LSF vector */ 
/* (range: 0<=val<=0.5). */ 
/♦ •/ 

20 /* INPUT ARGUMENTS : *' 
/* _ (INT16 []) Isfcaution: flag for LSF caution. */ 

/* */ 

/* OUTPUT ARGUMENTS : 

/* _ None. */ 

25 /* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ (FLOAT64 fl) lsf: decoded LSF vector. */ 

,* 1 */ 

/* RETURN ARGUMENTS : *' 
30 /* _Nonc. *l 


void LSF_Q_SpaccJsf (FLOAT64 lsf []> INT 16 Isfcaution) 
{ 

35 /* */ 

INT16 i; 

FLOAT64 lsfjuin, min_dist; 


40 
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lsf_inin = 0.0; 
min dist = 0.0; 


/♦ 


*/ 


if(lsf_caulion == 0) 

lsf_min = min_dist = 0.00625; /* At least 50 Hz Spacing */ 
else if(lsf_caution =1) 
10 lsf_min = min_dist = 0.01250; /* At least 100 Hz Spacing */ 

else if(lsf_caution — 2) 

lsfmin = min_dist = 0.015625; /* At least 125 Hz Spacing */ 
else if(lsf_caution ==.3) 

lsf_min = min_dist = 0.01875; /* At least 150 Hz Spacing */ 
1 5 else if(Isf_caution == 4) 

lsf_min = min_dist = 0.03125; /* At least 250 Hz Spacing */ 
else if(lsf_caution == 5) 

lsf min = min_dist = 0.0075; /* At least 60 Hz Spacing */ 


20 


/* 


25 


for (i = 0; i < NP; i++) 
{ 

if (lsf[i] < lsf_min) 

lsflij = lsf_min; 
lsf_min = lsfl[i] + min_dist; 
} 


30 


/*- 


return; 


--*/ 


35 


/*= 


/* FUNCTION : LSF J^lsf_to_weighl 0 */ 
40 /* */ 
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/* PURPOSE : This function calculates the proper weight % 
/* factor of each LS value. */ 

/* */ 

/* INPUT ARGUMENTS : *' 

5 /* _ (FLOAT64 []) lsf: LSF vector. */ 

/* - */ 

/* OUTPUT ARGUMENTS : */ 
/* _ (FLOAT64 []) weight: error weights. */ 
/* */ 

10 /* INPUT/OUTPUT ARGUMENTS : */ 
/* _ None. */ 

/* */ 

/* RETURN ARGUMENTS : */ 
/* None. */ 


20 


void LSF_QJsf_tojwcight (FLOAT64 lsflL FLOAT64 weighty, INT 16 rale) 
{ 

/* */ 

INT16 j, i; 
INT16 idxl, idx2; 


FLOAT64 p[NP+ll,q[NP+l]; 
25 FLOAT64 p_poly, q__poly; 

FLOAT64 inv_pow_spect; 
FLOAT64 p_coeff, q_cocfT, pi_arg, x; 


/* r */ 

30 


pi_arg 

= 2*PI; 


p[0] = 

1.0; 


q[0] = 

1.0; 


Pl2] = 

1.0; 


q[2) = 

1.0; 


P[l] = 

cos(lsfll) * 

pi_arg)i 

p[l] = 

-2.0 * pill; 


q[l] = 

cos (IsflO] * 

P»_arg); 

qUl = 

-2.0*q[ll; 
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/* */ 


for (i = 2; i <= NP/2; i++) 
{ 

5 

idxl = 2*i-l; 
idx2 = 2 * i; 

p_coc£f = cos (lsf]idx2 - 1] * pi_arg); 
10 p_coefl"= -2.0 * p_coeff; 

q_coefif = cos (lsflidx2 - 2] * pi_arg); 
q_coefif = -2.0 * q_coeff; 

for <j = i; j >= 2; j— ) 
15 { 

q M = q U] + q IH1 * q_coeff+ q [j-2]; 

P M = P 01 + P U-l] * P_cocff + p [j-2]; 

q [idx2-j] = q Ul; 

p[idx2-j] = pDl; 
20 } 


p [1] =p[l]+p_coeff; 
p[idxll = p[l]; 
25 q[l] =q[l] + q_coeff; 

q[idxl] = q[l]; 
p [idx2] = 1.0; 
q [idx2] = 1.0; 

30 } 

/* */ 

/* Calculating the (1 / (power spectrum)) and the proper weight */ 
/* */ 

35 

for (i = 0; i < NP; i += 2) 
{ 

p_poly = LSF_Q_cosine_polynomial(p, pi_arg*lsfli]); 
40 x = cos(pi_arg*lsfli]); 
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inv_pow_spect = 4*sqr(p_poly)*(2.-2.*x); 

weighlfi] = po\v(inv_pow_specl/4. ) -0.4); 
} 

5 

for(i = l;i<NP;i+=2) 
{ 

q_poly = LSF_Q„cosine_polynomial(q,pi - arg*lsfIi]); 

x = cos(pi_arg*lsfli]); 
inv _po W- spect=4*sqr(qjX)ly)*(2.+2.*x); 
weight[i] = pow(inv_pow_spccl/4.,-0.4); 

} 

if (rate == RATE08K) { 
/* different weights for different frequencies. 10/24/99, Eyal */ 

for (i=4 ; i < MP ; i++) { 
weighty *=-0.16*(FLOAT64)i+1.64; /* 1.0 at i=4 an 0.2 at i=9 

} 


15 


20 


return; 

*/ 

25 /* 

} 

. */ 


/* FUNCTION : LSF_Q_cosinejK)lynomial 0 *' 

,* */ 

/* PURPOSE : This function calculates the cosine polynomial. */ 

/» Note that cocllO] should be 1.0. */ 

*/ 

35 /* 

/* INPUT ARGUMENTS : *' 

/* (INT16 [])coef: coefficients. */ 

/* _ (TNT16 ) omega: frequency. */ 

„ 1_ *> 

*/ 


40 /♦ OUTPUT ARGUMENTS 
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/* None. */ 


/* 


/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ None. */ 

5 /* */ 

/* RETURN ARGUMENTS : */ 

/* _ (FLOAT64 ) sum: polynomial cosinus modulated sum. */ 

/ * == _ =================== _ ======== ===== = ==========================*/ 

10 FLOAT64 LSF_Q_cosine_polynomial (FLOAT64 coefQ, FLOAT64 omega) 
{ 

/* */ 

1NT16 j; 
15 FLOAT64 sum, x; 


20 


sum = cocf[NP/2]/2.; 

for(j = 0;j<NP/2;j++){ 
x = cos((NP/2-j)*omega); 
sum += cocflj] * x; 

} 


25 


return (sum); 

30 /* ♦/ 

} 


/*- 


35 /*================= 

/* FUNCTION : LSF_Q_Qnt_e 0 */ 

/* */ 

/* PURPOSE : This function quantizes the prediction error of */ 
/* the Isf prediction. */ 

40 /♦ */ 
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/* INPUT ARGUMENTS : V 
/* __ (FLOAT64 [])e: prediction residual. */ 
/* _ (FLOAT64 [])w: LSP weight factor. */ 
/* (INT16 )DIn: number of input candidates */ 

5 /+ (always 1 in the ITU-T 4kbit/s).*/ 

/** (INT16 )DOut: number of output candidates */ 
/♦ (always 1 in the ITU-T 4kbit/s) */ 

/* _(FLOAT64 [][][]) CBe: codcbooks. */ 
/* (INT16 U)MS: size of codebooks. */ 
10 /* (INT 16 []) stage_cnd: prooning information. */ 

/* _: - — ' 

/* OUTPUT ARGUMENTS *' 
/* (INT 16 *)Pptr: best predictor. */ 

/* (FLOAT64 [])qe: quantized prediction residual. */ 

15 /* (INT16 *) cluster:best indices. */ 

,._L_ 

/* INPUT/OUTPUT ARGUMENTS : * J 
/* None. *' 


/*- 


20 /* RETURN ARGUMENTS : * f 
/* _ None. 

void LSF_Q_Qnt_e (FLOAT64 e [], FLOAT64 W []. INT16 Din, FLOAT64 qe[], INT16 *Pptr, 

25 INT16 DOut, INT 16 cluster G, 

FLOAT64 ***CBe, INT 16 MS[], 

INT 16 *stage_cnd, INT16 ltl) 


*/ 

/* ' 


30 


INT16 pU_back[LTT_85k][MAX_CAND_LSFQ); 
INT16 best_indx[LTT_85k] [MAX_C AND_LSFQ] ; 
INT16 N_indx[LTT_85k], 
35 INT16 ptr; 

INT 16 i ; 

FLOAT64 d_data [LTT_85k][MAX_CAND_LSFQ*NP], 

—*/ 

40 /* 
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LSF_Q_New_ML_scarch (e,w, Din, d_data[0], (INT16)stagc_cnd[0], 

bcst__indx[0], ptr_back[0], CBc[0], MS[0]); 


for (i = 1; i < ltt-1; i++) 
{ 

LSF_CLNew__ML_search (d_data[i-l], w, (INT16)stage_cnd[i-l], 

d_datafi] > (INT16)stage_cndli], 
10 best_indx[i], ptr_back[i], CBe[i], 

MS[i]); 

} 

LSF_Q_New_ML_search (d_data[ltt-2], w, (INT16)slage_cnd[lU-2], 
15 d_data[ltt-l], DOut, besi_indx [ltt-1], 

ptr_back[ltt-l|, CBefltt-l], MSfltt-1]); 


-*/ 


20 N_indx[ltt-1] = best_indx[Itt-l][0); 

ptr = ptr_backfltt-lJlO]; 
for (i=kt-2 ; i >= 0 ; i- ) { 

N_indx[i] = best_indx[ij[ptr]; 

ptr = ptr_back[i][ptr], 

25 } 

/* this is the pointer to the best predictor */ 
♦Pptr = ptr; 

30 

for (i=0 ; i < Itt ; i++) { 
clusler[i] = N_indx[i]; 

} 

3 5 ini_dvector (qe, 0, NP- 1,0.0); 

for (i=0 ; i < Itt ; { 
add_dvector (qe, CBe[i][N__indxli]], qe, 0, NP-1); 

} 

/* */ 

40 
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return; 


} 

5 


*/ 


-*/ 


========== 

10 /* FUNCTION : LSF_Q_Ncw_ML_search 0- * / 

•/ 

/* PURPOSE : This function performs the ML search- The data */ 
/* pointer points to a J vectors array (each of */ 

/* length NP , concatenated), the diff_data */ 

1 5 /* pointer points to a J*K vectors array (each of */ 

/* lengts NP, concatenated). The diff_data holds, */ 

/* for each vector in data, the K smallest */ 

/* quantization error vector, using the given */ 

/* code book. 

*/ 

20 /* ' 

/* INPUT ARGUMENTS : * ; 
/* _ (FLOAT64 [])d_data: prediction residual. */ 
/* __(FLOAT64 []) weight: LSP weight factor. */ 
/* (INT16 )J: number of input candidates. */ 

25 /* (INT 16 )K: number of output candidates. */ 

/* _ (FLOAT64 [][]) code: codebook. */ 
/* (INT 16 )MQ: size of codebook. */ 

, — */ 

/* OUTPUT ARGUMENTS : *' 
30 /* _ (FLOAT64 []) new_d_data: new prediction residual. */ 
/* _ (INT16 []) bcstjndx: array of the opimisaed */ 
/* indexes. */ 

/* _ (INT 16 D)ptr_back: best candidates of past */ 

,* - */ 

35 /* INPUT/OUTPUT ARGUMENTS : */ 
/* None. 


»*/ 


/* RETURN ARGUMENTS : *' 
/* _ None. 
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void LSF_Q_New_ML_search (FLOAT64 d_dala [], FLOAT64 weight [], INT16 J, 

FLOAT64 ncw_d_data [], INT16 K, rNT16 bcst_indx I], 
INT16 ptr_back [], FLOAT64 **code, 
5 INT 16 MQ) 

{ . 

/* */ 


10 


20 


INT16 idxl,idx2; 


INT16 m,l,p,q; 

FLOAT64 sum[LMSMAX_85k*MAX_CAND_LSFQ]; 
FLOAT64 min[MAX_CAND_LSFQ]; 
INT16 min_indx_p[MAX_CAND_LSFQJ; 
15 INT16 min_indx_m(MAX_CAND_LSFQ]; 


/*- 


/* Initialisation */ 

/* _*/ 

for(q = 0;q<K; q-H-) 

rnin[q] = DBL_MAX; 


25 

for(p = 0;p<J;p++) 
{ 

for(m=0 ; m < MQ ; m++) 
{ 

30 sum[p*MQ+m] = 0.0; 

for (1 = 0; 1< NP; J++) 

sum[p*MQ+m] += weightnj^sqKd.datatp^NP+lJ-codetmlfl]); 

} 

35 } 


for (q = 0; q < K; q++) 
40 { 
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—*/ 

/* 

for (p = 0; p < J; P ++ ) 
{ 

for(m=0;m<MQ;m^) 

if (sum[p*MQ+ml < min[q]) 
{ 

minlql = sum[p*MQ+m]; 
m in_indx_plql = P» 

10 min_indx_mlq] = m; 

> 


15 

idxl = minJndxj)[q]*MQ+min_indx_mlql; 

sumlidxl] - DBL_MAX; 
20 */ 


25 


30 


35 


/*- 
} 


/* 


-*/ 


for(q = 0;q<K;q++) 
{ 

/* 


for (1 = 0;1<NP;N 
{ 

idxl = imn_indx_p[ql*N? + U 
idx2 = min_indx_mlq]; 


new_aj 
> 


, d data|q*NP+ll«d>talidxl]-c^e[idx2|[l]; 


-*/ 


40 


ptr_back[q] = min_indx_plq], 
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15 /*= 


bcst_indx[q] = min_indx_m[q]; 


/*- 

) 


return; 


739 


/* END 

/*======================== 


-*/ 


10 /* * 

} 

/* */ 
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====*/ 


/* 


==*/ 


*/ 
*/ 


*/ 


/* Conexant System Inc. 
5 /* 43 1 1 Jamboree Road 
/* Newport Beach, CA 92660 

/*- " 

/* Copynght(C) 2000 Conexant System Inc. 

/* 

10 /* ALL RIGHTS RESERVED: 

„ a dapu, U on, wUho* «« au^Uor of Con*™., '_ 


-♦/ 


15 /* PROTOTYPE FILE :Ub_q_lsf.n 


*/ 


IOTOTYPE FILE : Ub_q_isi.n — =:= * / 


-*/ 


/*- 


. FUNCTIONS - 


20 /*- 


void LSF_Q_init Jib 


-*/ 


(void); 


25 void LSF_Q_lsfqnt 


void LSF.Q_Ordcr 


void LSF_QJsf_to_weight 


30 


(FLOAT64 [], FLOAT64 [], 1NT16 *. INT16 ); 
(FLOAT64 []); 
(FLOAT64 fl, FLOAT64 [], INT16); 


FLOAT64 LSF^cosine^Iynomial (FLOAT64 0, FLOAT64); 


void LSF_Q_Space_lsf 


35 voidLSF_Q_lsf_dccode 


(FLOAT64 0, INT16), 

(INT16,INT16*,FLOAT64U,INT16[l, 
INT16,INT16,INT16); 


void LSF_Q_Qnt_e 


40 


(FLOAT64 [], FLOAT64 Q, INT16 , FLOAT64 1], 
TNT16n,INT16,INT16 [], FU>AT64 
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INT16 [], INT16 *, INT16 ); 


void LSF_Q_New_ML_scarch (FLOAT64 [], FLOAT64 [], 1NT16, FLOAT64 [), 

INTI6, 1NT16 [], 1NT16 Q, 

FLOAT64 **, INT16); 


/* END */ 


10 
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/*======= 


=*/ 




/* Conexant System Inc. 
5 /* 43 1 1 Jamboree Road 
/* Newport Beach, CA 92660 


/* Copyright(C) 2000 Conexant System Inc. 


*/ 
*/ 

*/ 

+/ 

*/ 


*/ 


*/ 


10 /* ALL RIGHTS RESERVED: 

/* No part of this software may be reproduced in any form or by any / 
/* meansorused to make any derivative work (such as transformation / 
station) without the authorisation of Conexant System Inc. / 


/* or a 

15 /* LIBRARY: lib_smo.c 


*/ 


/* 

/* 

20 /* 


- INCLUDE — 


=*/ 


#include "typedef h" 

^include "main.h" 
25 ^include "const.h" 
#include "gputil.h" 

#include "exljvar.h" 


30 #include "lib^smo.h" 


/*- 
/*- 


35 


. FUNCTIONS - 


-*/ 


-*/ 


/♦FUNCTION : SMO_init_lib 0 


*/ 


/* 

/* PURPOSE 


-*/ 


: This funcuon initialisa the global variables */ 


40 /* 


for the Library SMO. 


*/ 
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/* 

/* INPUT ARGUMENTS 
/* _ None. 

/* 


/* RETURN ARGUMENTS 
/* _ None. 


743 
■--*/ 


*/ 


! OUTPUT ARGUMENTS : 


*/ 

_ None. 

*/ 

-*/ 

1 INPUT/OUTPUT ARGUMENTS : 


*/ 

_ None. 

*/ 

— */ 


*/ 


*/ 


====*/ 


15 void SMOJnitJib (void) 
{ 

/*— 


20 


/* 


SMO Isf smooth est 


N_mode_sub_est = 0; 
N_modc_frm = 0; 


-*/ 


25 


/*- 

/* 

/*- 


SMO_i nitial_analysis 


-*/ 


30 


consec_Iow = 0; 
conscchigh = 0; 
conscc_vad 0 = 0; 


35 


updatcsnoise = 0; 
updates_speech = 0; 
calls = 0; 
lcv_resel = 0; 
ma_max_noise = 0.0; 
ma_max_spcech = 0.0; 
ma_cp = 0.0; 


40 


buffer_p = bu£Tcr_smo+HI_LAG2; 
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10 


/* 

/* 

/* 


SMO_rcfined_ana!ysis 


N_mode_sub_ref = N_MODE_SUB_START; 
consec = 0; 
updates = 0; 
ma max = 0.0; 


/* 


*/ 
♦/ 


-*/ 


15 


return; 


-*/ 


/*- 


20 


-*/ 


/* FUNCTION : SMO Jsf_smooth_cst 0 


/*- 


/* PURPOSE : This function classify teh input signal frame: */ 
/* file. *' 
25 /* — 


-*/ 


/* INPUT ARGUMENTS : 


*/ 


/* (INT 16 ) Vad : V AD of current frame. */ 
/* (INT16 )PastVad: VAD of previous frame. */ 
/* _ (FLOAT64 ) refl : first reflection coefficient. */ 
30 /* _ (FLOAT64 f]) lsf : curent frame LSF coefficients.*/ 
/* 


-*/ 


/* OUTPUT ARGUMENTS : * f 
/* _ (FLOAT64 ) beta_frm: estimated LSF smoothing */ 
/* factor. */ 
35 /* 


-*/ 


/* INPUT/OUTPUT ARGUMENTS : 
/* _ None. 

/* : — 

/* RETURN ARGUMENTS : 
40 /* None. 


*/ 


*/ 
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void SMO_lsf_smooth_est (rNT16 Vad, INT16 PastVad, FLOAT64 rcfl, 

FLOAT64 Isf [J. FLOAT64 betajnn []) 

5 { 

/*„ */ 

INT16 i, i_sf; 

INT 16 mode_frm, N_sub_and; 
10 FLOAT64 dSP, dSP_avg, dSP_int; 

/* */ 

/* Algorithm initialisation */ 
/♦ -*/ 

15 

if (frmcount == 1) 

{ 

cpy_dvcctor (Isf, lsf_pld_smo, 0, NP-1); 
cpy_dvector (Isf, ma_lsf, 0, NP-1); 
20 ini_dvector (dSP_buf, 0, DSPJBUFF_SIZE-1, 0.0); 

} 

/* */ 

/* Calculate subframe smoothing */ 
25 /* */ 

for (i_sf = 0; i_sf < N_SF4; i_sf++) 
{ 

if(Vad = 1 || PastVad == 1) 

30 { 

/♦ */ 

/* Speech/spike mode */ 
/* */ 

35 N_mode_sub_est = 0; 

} 

N_sub[i_sf] = N_mode_sub_cst ; 
40 if(Vad == 0 && PastVad == 0) 
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{ 

/* Unvoiced/non-spcech mode */ 


/*- 


-*/ 


Njnode_sub_est++; 
if(N_mode_sub_est > 4) 

N_mode_sub_est = 4; 

} 


10 


/* 

15 /*- 


-*/ 


Calculate frame smoothing */ 


for (dSP = 0.0, dSP_avg = 0.0, i = 0; i < NP; H+) 
{ 

dSP += (lsfli] - lsf.old_smoli])*(lsfIi] - !sf_old_smo[i]); 
20 dSP_avg += (ls£Ti]-ma_lsqi])*(lsfIi]-maJsqi]); 

} 

for(dSP_int = 0.0, i = DSP_BUFF_SIZE-1; i > 0; i-) 
{ 

25 dSP_bufli] =dSP_buf[i-l]; 

dSP_int +=dSP_buf!i]; 
} 

dSP^bufTO] = dSP_avg; 
30 dSP_int += dSP_buf[0]; 


/*- 


modc_frm = 0; 
35 N_sub_and =1; 

for (i = 0; i < N_SF4; i++) 
{ 

if (Vad = 1 II PastVad == 1) 
modefrm = 3; 
40 if(N_sub[i] == 0) 
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N_sub and = 0; 


if(mode_frm == 3 || N_sub_and == 0 || rcfl > Rllim) 
{ 

N_mode_frm = 0; 
*beta_frm = 0.0; 

10 

ini_dvcctor (dSP_buf, 0, DSP_BUFF_SIZE-1, 0.0); 
} 

else if((dSP > dSPl |( dSP_int > dSPJntl) && N_modc_frm > 0) 
{ 

1 5 N_modc_frm = 0; 

♦bciajrm = 0.0; 

ini_dvector (dSP_buf, 0, DSP_BUFF_S1ZE-1, 0.0); 

20 } 

else if(dSP > dSP2 && N_mode_frm > 1) 
N modc_frm = 1 ; 


25 

if(mode_frm — 0) 
{ 

N_mode_frm++; 
if (N_mode_frm > 5) 
30 N_rnode_frrn = 5; 

*beta_frm = (FLOAT64)(G N I_mode_frni-l)*(N_mode_frm-l)) / 

16.0*BETA_FRM; 
} 

35 

/* V 

f* Buffer parameters */ 

/* */ 

40 cpy_dvector (Isf, lsf_oid_smo, 0, NP-1); 
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for (i = 0; i < NP; i++) 

majsfli] = Cbeta_fnn)*maJsfTi] + (1.0^belajrm))*lsflil; 


--*/ 



10 


/* 


/* FUNCTION : SMO_refined_analysis 0- 


*/ 


15 /*- 


-*/ 


/* PURPOSE : This function performs the refined analysis of */ 
/* the energy evolution and calculates the */ 

/* smoothing factor for the energy manipulation. */ 

, ' 

20 /* INPUT ARGUMENTS : * f 

/* _ (FLOAT64 []) res : input frame. */ 

/+ _(INT16 ) speech_mode: result of Uic initial */ 

/* analysis. */ 

/* _ (FLOAT64 U) pitch_corr : pitch correlation values. */ 

25 /* _ (FLOAT64 []) lsf : curent frame LSF */ 

l± coefTicicnls. */ 

/* *' m 

I* OUTPUT ARGUMENTS : * ; 
/* (FLOAT64 *)cxc_mode: smoothing mode. */ 
30 /* _ (FLOAT64 *)beta_sub: estimated smoothing factor.*/ 
/* 1 */ 

/* INPUT/OUTPUT ARGUMENTS : * y 
/* None. 

,* " •/ 

35 /* RETURN ARGUMENTS : *' 

I* _None. *' 

void SMO_refincd_analysis (FLOAT64 res [], INT16 speech.mode, 

FLOAT64 pitch_corr fj. INT 16 *exc_mode, 

40 
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FLOAT64 *bcla_sub, INT16 l_sQ 


-*/ 


INT16 i; 

FLOAT64 max, max_mes, val; 


10 


/*- 

/* 

/*- 


Find the max excitation value 


-♦/ 
*/ 

-*/ 


15 


for(max = -DBL_MAX, i = 0; i < I_sf; i++) 
{ . 

val = (res[i] > 0.0 ? resfij : -resfi]); 
if (val > max) 

max = val; 

} 


20 


maxmes = max/(ma_max+EPSI); 


25 


if (speechinode ==1) 
{ 

/* 

/* speech/spike mode 
/* 


*/ 


30 


35 


else 


N_mode_sub_ref = N_MODE_SUB START; 
(*beta_sub) = 0.0; 
(*exc_mode) = 1 ; 
} 


/*- 


-*/ 


40 


if(max_mes < 1.75) 
{ 

/* 
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20 


25 


30 


35 


40 


750 

/* Unvoiced/non-speech mode */ 
*/ 


N_mode_sub__rcf++; 
if (N_mode_sub_ref > 4) 

N_mode_sub_ref = 4; 


/* Smooth energy if sustained unvoiced/non-speech •/ 
— .*/ 


if (N_mode_sub_rcf > 0) 

(*beta„sub) = BETA_SUB*(FLOAT64)((N - mode_sub_ref-l) 


15 (N_mode_sub_ref-1))/9.0; 

else 


(*beta_sub) = 0.0; 


else 


(*exc_mode) = 0; 
} 

{ 

/* 


-*/ 


/* speech/spike mode 

*/ 

/* — 


N -m ode_sub_ref = N_MODE_SUB_START; 
(*beta_sub) = 0.0; 
(*exc_mode) = 1; 

} 

if(max__mcs <= 0.5) 
{ 

if (conscc < CONSEC _MAX) 
consec-H-; 

} 

else 

consec = 0; 


-*/ 


3N<3LXJUIL> <WU U122U02A1J 


WO 01/22402 


PCT/USOO/25182 


751 

/* Update moving average of maximum 
/* */ 


10 


if((*exc_mode == 0 && (maxmcs > 0.5 || consec > CONSEC_MAX-l)) | 
(updates <= UPDATE MAX && pitch_corr[l] < 0.60 && 
pitch_corr[0] < 0.65)) 


{ 


ma_max = 0.9*ma_max + 0. l*max; 

if (updates <= UPD ATE_MAX) 
updates++; 


15 


•7 


20 


return; 


-*/ 


25 


/♦FUNCTION : SMO_initial_analysis 0 


/* PURPOSE : This function performs the initial analysis of */ 
30 /* the energy evolution. */ 

/♦ - */ 

/* INPUT ARGUMENTS : */ 
/* _ (FLOAT64 []) signal: input frame. */ 


_ (INT 16 ) Vad : VAD of current frame. */ 
_ (FLOAT64 ) lag : sub-frame lag value. */ 
_ (FLOAT64 ) refl : first reflection coefficient */ 

analysis. */ 
_ (FLOAT64 []) lsf : curent frame LSF coefficients. */ 

*/ 

40 /* OUTPUT ARGUMENTS : ♦/ 


/* 

35 /* 
/* 
/* 
/* 
/* 
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/* _ (FLOAT64 □) pitch_corr : pitch correlation values. */ 

/* _ (FLOAT64 *) specch_mode : smoothing mode (1/0). V 

*/ 


_* 


/ 


/* INPUT/OUTPUT ARGUMENTS : 
5 /* None. 

/* 

/* RETURN ARGUMENTS : * f 
/* _ None. 

10 

void SMO_initiaLanalysis(FLOAT64 signal [], INT16 Vad, 

FLOAT64 lag, FLOAT64 refl, INT 16 *speech_mode, 
FLOAT64 *pitch_corr, INT 16 l_sf) 

{ 

,* •/ 

INT16 i,j; 

INT16 lag 1, Iag2, start; 

INT 16 cond 1 , cond2, cond3 , cond4; 

20 

FLOAT64 max, max_mcs, val, energy; 
FLOAT64 cpl, cp2, cp, SNR_max, alpha_spcech; 
FLOAT64 deci__max_mes, deci_ma_cp; 
FLOAT64 update_max_mes; 
25 FLOAT64 update_ma_cp_specch; 

FLOAT64 max_group[MAX_GRP_SlZE], minmax, end_max; 
FLOAT64 y, yx, slope, sum; 
FLOAT64 vail, val2, va!3; 


*/ 

30 /* 

/* Update counter for consecutive non-spccch subframcs */ 

*/ 


if(Vad == 0) 
35 { 


*/ 


/* Counts to max 2 frames (8 subframcs) */ 


40 if (consec vad O < 8) 
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consec_vad_0++; 

} 

else 

consec_vad_0 = 0; 

5 

*/ 

/* Estimate speech to noise ratio for adaptation of thresholds */ 
/* ♦/ 

10 if (updates_noise >= 20 && updates_speech >= 20) 

{ 

SNRmax = ma_niax_spccch/(ma_max_no i se + EPSI); 
SNR_max = (SNR_rnax > 32.0 ? 32.0 : SNR_max); 
} 

15 else 

SNR_max = 3.5; 

if (SNR_max < 1.75 && ADAPT THRESHOLDS) 
{ 

20 deci_max_mes = 1.30; 

decimacp = 0.70; 

updalc max hies = 1.10; 
update_ma - cp_speech - 0.72; 
25 } 

else if(SNR_max < 2.5 && AD APT THRES HOLDS) 

{ 

decimaxmes = 1.65; 
decimacp = 0.73; 


30 


update_max_mes = 1.30; 


updatc_ma_cpspccch = 0.72; 
} 

35 else 

{ 

/* */ 

/* Start-up and non-adaptive thresholds */ 
/* */ 

40 
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deci_max mes = 1.75; 
deci_ma_cp =0.77; 

update_max_mes - 1.30; 

updatc_ma_cp_spcech = 0.77; 
} 


/* 

/* Update signal buffer 


for (i = 0; i < HT_LAG2; i++) 

bufTcr_smo[i] = buffer_srno[i+l_sf]; 

for(i = 0;i<l_sf;i++) 

buffer_j>[i] = signal[i]; 


/* Calculate pitch correlation of the speech signal */ 

/* */ 


energy = 0.0; 

for (i = 0; i < l_sf; i++) 

energy += (INT16)bufferj[i]*(IOT16)biifircr_p[il; 

lagl = (TNT16)lag; 

if (lag 1 == HILAG2) 
lag2 = lagl-1; 

else 

lag2 = lagl+l; 

if (energy = 0.0) 
cp = 0.0; 

else 

{ 

dot_dvector (buffer jp, buffcr_p-lagl, &val 1 , 0, l_sf-l); 

dot_dvcctor (buffer_p, bufferj), &val2, 0, l_sf-l); 
dot^dvector (buffer_p-lagl, buffer_p-lagl, &va!3, 0, l_sf-l); 
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cpl = vail / (sqrt(val2 * val3) + EPSI); 

dot_dvector (bufler_p, buficr_p-lag2, &val 1,0, 1_sf- 1 ); 
5 dot_dvector (buffer_p, bufTer_p, &val2, 0, l_sf-l); 

dot_dvector (bufTer_p-lag2, buflferj>-lag2, &val3, 0, I_sf-1); 

cp2 = vail / (sqrt (val2 * val3) + EPSI); 

10 cp = (cpl > cpl) ?cpl : cp2; 

} 

ma_cp = 0.9*ma_cp + 0.1 *cp; 

15 /* */ 

/* Find the max in pitch period */ 
/* */ 


20 


start = (lag2 > l_sf) ? (I_sf-lag2) : 0; 

sum = 0.0; 

max = -MAXFLT; 


for (i = start; i < l_sf; i++) 
25 { 

val = (bufler_p[i] > 0.0) ? bufler_pfi] : -buffer_p[ij; 

/* */ 

/* Mean Update */ 
30 /* */ 

sum += val; 


35 /* Max Update */ 

/* */ 


if (val > max) 
40 max = val; 
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30 


35 


max_mes = max/(ma_max_noise+EPSI); 


/* 

/* Update buffer of maxima */ 
*/ 


for (i = 0; i < SMO_BUFF_SIZE-l; i++) 

10 { 

bufler_max_smo[i] = buffer_max_smo[i+l]; 
bufler_sum_smo[i] = bufier_sum_smoli+ 1 ] ; 

} 

15 buffer_.sum_smo [SMO_BUFF_SIZE-l] = sum; 

buffcr_max_smo [SMO_BUFF_SlZE-l] = max; 


V 


/* Find sum excluding current subframc, and max in groups of */ 
20 /* 3 subframes */ 

/* */ 


sum = 0.0; 

for(i = 0; i < MAX_GRP_S1ZE; i++) 

25 { 

max_group[i] = buffer_max_smo[3*i]; 

for(j= l;j<3;j++) 

{ 

/* 


-*/ 


/* sum Update */ 


-*/ 


if (3*i+j < SMO_BUFF_SIZE-l) 

sum += buffer_sum_smo[3*i+j]; 

z* */ 

/* Update subgroup max */ 
■/* */ 


40 if (buffer_max_smo[3*i+j] > max _group|i]) 
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max_group[i] = bu£fer_max_smo[3*i+j]; 


} 

} 


sum *= 1.7857e-03; 

/* */ 

10 /* Find minimum among first 4 subgroups */ 
/* */ 

minmax = max_group[0] ; 
for (i = 1; i < MAX_GRP_SIZE-1; i++) 
15 { 

if(max_group[i] < min max) 

minmax = max __groupfi]; 

} 


20 /*- 


/* Extract the maximum of last subgroup */ 
7* */ 

cnd_max = max_group[MAX_GRP_SIZE-l]; 

/* */ 

/* Find slope of MSE linear fit to the 5 maximums */ 
/* */ 


30 yx = 0.0; 

y =0.0; 

for (i = 0; i < MAX__GRP_S1ZE; i++) 
{ 

35 yx += (FLOAT64)i * max _group[i], 

y += max_groupfi]; 
} 


slope = 0.1*(yx-2.0*y); 


40 


BNSDOCID <W O 0122402A1 t = > 


WO 01/22402 


PCT/USOO/25182 


758 


/*- 

/* 

/*- 


Classify subframe 


*/ 


10 


if (((max_mes < deci_max_mes && ma_cp < deci_ma_cp) || (Vad — 0))) 
*speech_mode = 0; 

else 

* speech mode = 1; 


/*- 


♦/ 


/* Measure consecutive low level (compared to noise) subframes */ 
/♦ */ 


15 


20 


if(updates_noisc ==21 8l8l maxmes <= 0.3) 
{ 

if(consec_lo\v < HL_COUNT_MAX) 
consec__Iow++; 

} 

else 

conscc low = 0; 


25 


/* Reset noise update if significant decrease compared to 

/* the noise level */ 

/* */■ 


*/ 


30 


if(consec_low = HL_COUNT_MAX) 
{ 

updates_noise = 0; 
lev_resct = -1; 
} 


35 


/* */ 

/* Measure consecutive stationary high level (compared to noise) */ 
/* subframes likely to be noise */ 
/♦ . -*/ 


40 


if( (updatcs_noise >= 20 || lev rcsct — -1) && max mes > 1.5 && 
ma_cp < 0.70 && cp < 0.85 && refl < -0.40 && 

end max < 50.0*min max && max < 35.0*sum && slope > -100.0 
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slope < 120.0) 
{ 

if(consec_high < HL_COUNT_MAX) 
consec_high++; 

5 

} 

else 

conscc_high = 0; 

10 /* — */ 

/* Reset noise update if significant stationary increase */ 
/* in noise level subframes likely to be noise */ 
/♦ */ 

1 5 if ((consec_high == HL_COUNT MAX) && (cnd_max < 6.0*min_max) && 

(max < 5.0*sum)) 

{ 

updates_noise = 20; 
Iev_reset = 1; 
20 } 


25 



Update of noise max 


1 


I. condition: regular update 

*/ 


/* 
/* 

/* 
/* 

/* */ 

30 condl = ((maxmes < updatemaxmes) && (ma_cp < 0.60) && 

(cp < 0.65) && (max_mcs > 0.3)); 

/* */ 

/* 2. condition: vad conditioned update */ 
35 /* */ 

cond2 = (consec_vad_0 = 8); 

/* ♦/ 

40 /* 3. condition: slart-up/resct update */ 
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*/ 

cond3 = (updatcs_noise <= 20 && ma_cp < 0.70 && cp < 0.75 && 
refl < -0.40 && endmax < 5.0*min_max && 
5 (lev_reset != -1 || (lcv_reset — -1 && max_mes < 2.0))); 

/♦_! */ 

/* 4. condition: pitch correlation */ 
/* */ 


10 


20 


cond4 = (ma_cp > updatc_ma_cp_speech); 


if(calls === 3 && (condl || cond2 || cond3)) 
{ 

15 /* */ 

/* Update moving average of noise maximum */ 
/* */ 


ma max noise = 0.9*ma max noise + 0.1 *max; 


if (updates_noise <= 20) 
updatcs_noisc-H- ; 

else 

25 lcv_reset = 0; 

/* */ 

} 

30 /* —*/ 

/* Update of speech max */ 
/* : */ 

else if (calls == 3 && cond4) 
35 { 


/* Update moving average of speech maximum */ 
/* */ 


40 if (updates spcech <= 60) 
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else 


alpha_speech = 0.95; 


alpha_speech = 0.999; 


ma_max_speech = alpha_spcech*ma_inax_speech + 


alpha_speech)*max; 


(1.0- 


10 


if (updales_speech <= 60) 

updates_speech++; 


/* 


15 


if(calls<3) 

calls++; 


20 


pitch_corr[0] - cp; 
pilch_corr[l] = macp; 


/*- 


-*/ 


25 


return; 


30 /* 


/* 


END 


35 


-*/ 


=*/ 
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/* Conexant System Inc. */ 
5 /* 43 1 1 Jamboree Road */ 
/* Newport Beach, CA 92660 */ 

/* - */ 

/* Copyright(C) 2000 Conexant System Inc. */ 

/* s */ 

10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 
/1(t========:========================= == == == == =============== 


15 /* PROTOTYPE FILE : lib_smo.h */ 

/ * ====SBSB=== ^ == ====== BBaB ===== = ========— «=== 


/* */ 

/* FUNCTIONS */ 

20 /* */ 

void SMO_init_iib (void); 

void SMO_lsf_smooth_cst (INT16, INT16, FLOAT64, FLOAT64 [], FLOAT64 []); 

25 

void SMO_iniUaLanalysis(FLOAT64 [], INT16, FLOAT64, FLOAT64, INT 16 *, 
FLOAT64 *, INT16); 

30 void SMO_refined_anaiysis (FLOAT64 *, INT16, FLOAT64 *, INT16 * FLOAT64 *, 


==*/ 


INT16); 


35 /*== 


END */ 
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/* Conexant System Inc. */ 
5 /* 431 1 Jamboree Road */ 
/* Newport Beach, CA 92660 */ 

/* V 

/* Copyright(C) 2000 Conexant System Inc. */ 

/* ♦/ 

10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

/ *=== = =====^== = ==================================-==============—*/ 

15 /* LIBRARY: lib_snr.c */ 

/* === ===^===============================^==========================*/ 

/* ♦/ 

/* INCLUDE */ 


20 /*- 


^include "typedef.IT 

25 ^include "main.h" 
#includc "const, h" 
^include "gputil.h" 

#include "cxt_var.h" 

30 

#includc "lib_snr.h" 
#ifdef DIAGNOSTICS 
35 ^include "lib dia.h" 


tfendif 
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/* FUNCTIONS ■ 

/* 


5 /* FUNCTION : SNR_Calc_NSR_dec 0 */ 


/*- 


/.* PURPOSE : This function performs the initialisation of 
/* the global variables of the SNR library */ 

/* V 

10 /♦ INPUT ARGUMENTS : */ 
/* _ None. */ 
/* */ 

/* OUTPUT ARGUMENTS : */ 
/* _ None. */ 
15 /* */ 

/* INPUT/OUTPUT ARGUMENTS : 

/* _ None. */ 

/* */ 

/* RETURN ARGUMENTS : */ 
20 /* _None. */ 

/*================================«=======— 


void SNR_init_lib (void) 
{ 

25 /* 


NoiseGainFactor = 1.0; 

/* */ 

30 /* SNR__Calc_NSR_enc */ 
/* */ 

NoisEng_enc = -1.0; 
snrfrmcount - 0; 
35 snr_count_vad = 0; 

engmenc = 0.0; 

diff Isf m enc = 0.0; 
diffengmenc = 0.0; 
40 n nois ext enc = 0; 
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---*/ 


return; 


10 


/* FUNCTION 
/* 


SNR_Calc_NSR_enc Q, 


/* PURPOSE : This function performs the SNR estimation at 
15 /* the encoder */ 

/* */ 

/* INPUT ARGUMENTS : */ 


/* _ (FLOAT64 []) syn: synthetized signal. 

/* _ (FLOAT64 []) lsfq: quntiscd LSF vector 

20 /* _ (INT16 ) Vad: vad information. */ 

/* _ (INT 16 ) fame_class: input frame fameclass. */ 

/* _ (INT16 )l_frm: frame size. */ 

/* */ 

/* OUTPUT ARGUMENTS : */ 

25 /* _(FLOAT64 *) NSR: estimated NSR at the encoder */ 

/* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 

/* _ None. */ 

/* */ 

30 /* RETURN ARGUMENTS : */ 
/* _ None. */ 


void SNR_Calc_NSR_enc (FLOAT64 syn[], FLOAT64 lsfq[], INT16 Vad, 
35 INT16 frame__class, FLOAT64 *NSR, INT 16 l_frm) 

{ 

/* */ 


FLOAT64 snr, eng, duTJsf, diff_eng, vail, vaI2; 
40 INT16 i, vad_nsr; 
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/♦ */ 

if (frame_class < 3) 
5 n_nois_ext_enc++; 
else 

nnoi s_ext_cnc=0 ; 
if (Vad == 0) 

snr_count_vad-H-; 

10 else 

snr_count_vad=0; 
dot_dvecior (syn, syn, &cng, 0, l_frm-l); 
15 /* */ 

if (snr_frm_count==0) 
{ 

(*NSR) = 0.0; 
20 vadnsr = 1; 

eng_m_enc = eng; 
} 

else 

{ 

25 /* */ 

diff_lsf=0; 

for (i = 0;i <NP; 

diffjsf += fabs(Isfq[i]-lsfq_jnem_enc[i]); 


30 


35 


40 


diffjsf *= 100; 

diff lsf m enc = difif lsf m enc*0.75 + difiFJsP0.25; 


/*- 


diff_eng = fabs(eng-eng_old_enc)/MAX(eng+cng_old_cnc, 50*l_fnn); 
diff_eng_m_enc = diff_eng_m_enc*0.75 + di£f_cng*0.25; 
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sar = cng/MAX(eng_m_enc, 0.1); 

if (Vad == 0) 

{ 

if (eng_m_enc < 0. 1) 

eng m enc - cng; 

else 

cng_m_enc = 0.75*eng_m_enc + 0.25*cng; 

} 

/* */ 

vadnsr = 1; 

15 if ((snr_counl_vad > 1 5) && (snr_count_vad < 30) && 

(diff_lsf_m_enc < 10) && (diffjsf < 10) && 

(diflf_eng_m_enc < 0.25) && (difT_eng < 0.25) && 
(snr< 10)) 

vad_nsr=0; 

20 else 

{ 

if (((snr_count_vad > 15) || (snr_frm_count < 100)) && 

(n_nois_cxt_enc>10) && (di£F_lsf_m_enc<7) && 
(diffjsf<7) && (diff_eng_m_enc<0.2) && 
25 (diff_eng<0.2) && (siir<8)) 

vad_nsn=0; 

} 


30 


/*- 


if ((NoisEng_enc < 0.0) && (snr frm counl > 500)) 
vad nsr - Vad; 


/*- 


35 

if (vad__nsr — 0) 
{ 

if (NoisEng_enc < 0.0) 

NoisEng_enc - eng; 

40 else 
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NoisEngenc = NoisEng_enc*0.85 + eng*0.15; 


NoisEngenc = MIN(NoisEng_enc, eng); 
} 


10 


vail = MAX(NoisEng_enc - 100*l_frm, 0); 

val2 = MAX(eng, 0.1); 

(*NSR) = MIN(sqrt(vall / va!2), 1.0); 


/*- 


-*/ 


15 


/*- 


snrfrmcount = MIN(snr_frm count+1, 1000); 

for (i = 0; i < NP; 
20 Isfq_mem_encli] = lsfqfi]; 

cng_old_enc = eng; 


25 


return; 


30 


-*/ 


/♦— 


35 /*========== 


— END 
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/*= 


=*/ 


/* Conexant System Inc. */ 
5 /* 4311 Jamboree Road */ 
/* Newport Beach, CA 92660 */ 

/* */ 

/* Copyright(C) 2000 Conexant System Inc. */ 

/* */ 

10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any ♦/ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

/*===============================:================== 


15 /* PROTOTYPE FILE : lib_snr.h */ 


/* — FUNCTIONS */ 

20 /*—- */ 

void SNR_init_lib (void); 

void SNR_Calc_NSR_cnc (FLOAT64 [], FLOAT64 [], INT16, INT16, FLOAT64 *, INT 16); 

25 


/* END */ 
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/*================«: 

/* Conexant System Inc. 
5 /* 43 1 1 Jamboree Road 
/* Newport Beach, CA 92660 
/* 


=*/ 


*/ 
♦/ 


/* Copyright(C) 2000 Conexant System Inc. 
/* 


-*/ 
-*/ 


10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 


15 /* LIBRARY: lib_swbx 


/*- 
/*- 
20 /*- 


INCLUDE 


^include "lypcdef.h" 


^include "main.h" 


25 


^/include "lib swb.h" 


/*- 

/*- 
30 /*- 


FUNCTIONS 


-*/ 


/♦FUNCTION :byte_swap_intl6 0 
/* 


-*/ 


35 /* PURPOSE : Byte swap a 16 bit integer number. */ 

/* */ 

/* INPUT ARGUMENTS : */ 
/* _ (INT16 ) input: data to be swapped. */ 
/* */ 

40 /* OUTPUT ARGUMENTS : */ 
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/* _ None */ 

/* */ 

/* rNPUT/OUTPUT ARGUMENTS : ' */ 

/* _ None */ 

5 /* */ 

/* RETURN ARGUMENTS : */ 
/* _ (INT 16 ) output: data to be swapped. */ 


10 INT16 byte_swap_intl6 (INT16 input) 
{ 

/* */ 


INT 16 output; 


15 


output = (input » 8 & 0x00fT) A (input « 8); 


20 


return output; 

/* */ 

25 } 


/*== 


30 /* FUNCTION : byte_swap_inG2 0- */ 

/* ♦/ 

/* PURPOSE : Byte swap a 32 bit integer point number. */ 
/* Verified for swapping between SGI Unix and PC Linux. */ 
/* V 

35 /* INPUT ARGUMENTS : */ 
/* _ (TNT32 ) input: data to be swapped. */ 
/* */ 

/* OUTPUT ARGUMENTS : */ 
/* _ None */ 
40 /* */ 
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/* INPUT/OUTPUT ARGUMENTS : V 


/* _ None */ 

/* ♦/ * 

/* RETURN ARGUMENTS : */ 
5 /* (INT32 ) output: swapped data. */ 

TNT32 byte_swap_inG2 (TNT32 input) 
{ 

10 /* */ 

INT16 i; 
INT32 output; 

15 /*- */ 

for (i = 0; i < 4; i++) 

♦((char *)(&oulput) + i) = *«char *)(&input) + 3 - i); 

20 /* */ 

return output; 

/* */ 

25 } 

/* */ 

30 /* FUNCTION : bytc_s\vap_int64 0 *' 

/* */ 

/* PURPOSE : Byte swap a 64 bit integer point number. */ 
/* Verified for swapping between SGI Unix and PC Linux. */ 
/* */ 

35 /* INPUT ARGUMENTS : */ 
/* _ (TNT64 ) input: data to be swapped. */ 

/* «7 

/* OUTPUT ARGUMENTS : */ 
/* _None */ 

40 /* */ 
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/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ None */ 

/* */ 

/* RETURN ARGUMENTS : */ 
5 /* _(INT64 ) output: swapped data. */ 

/*====================-========================================= 

INT64 byte_swap_int64 (INT64 input) 
{ 

INT 16 i; 
INT64 output; 

15 /* „ */ 

for (i = 0;i<8; i++) 

*((char *)(&output) + i) = *((char *)(&input) + 3 - i); 

20 /* */ 

return output; 

/* */ 

25 } 

/* */ 

30 /* FUNCTION : byte_swap_float32 0 */ 

/* */ 

/* PURPOSE : Byte swap a 32 bit floating point number. */ 
/* Verified for swapping between SGI Unix and PC Linux. */ 
/* ♦/ 

35 /* INPUT ARGUMENTS : */ 
/* _ (FLOAT32 *) input: data to be swapped. */ 
/* */ 

/* OUTPUT ARGUMENTS : */ 
/* _(FLOAT32 *) output: swapped data. */ 
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/* INPUT/OUTPUT ARGUMENTS : */ 


/* _None */ 

/* ♦/ 

/* RETURN ARGUMENTS : */ 
5 /* _None. */ 

/*=================================-================================*/ 

void bytc_swap_float32 (FLOAT32 *input, FLOAT32 *oulpul) 
{ 

10 /* V 


INT16i; 


/* V 

15 

for (i = 0; i < 4; 

♦((char *)(output) + i) = *((char *)(input) + 3 - i); 

/♦ - */ 

20 

return; 


25 


/*===================-=======================—============*/ 

/♦FUNCTION : byte_swapJloat64 0- */ 
30 /* */ 

/* PURPOSE : Byte swap a 64 bit floating point number. */ 

/♦ Verified for swapping between SGI Unix and PC Linux. */ 

/* */ 

/* INPUT ARGUMENTS : */ 
35 /* _ (FLOAT64 ) input: data to be swapped. */ 

/* */ 

/* OUTPUT ARGUMENTS : */ 
/* (FLOAT64 ) output: swapped data. */ 
/* */ 

40 /♦ INPUT/OUTPUT ARGUMENTS : */ 
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/* _ None */ 

/* */ 

/* RETURN ARGUMENTS : */ 
/* None. */ 


5 /♦= 


10 


void byte_swap_float64(FLOAT64 *input, FLOAT64 *output) 
{ 

/* */ 

INT16 i ; 


15 for (i = 0; i < 8; i++) 

*((char *)(output) + i) = *((char *)(input) + 7 - i); 


20 return; 


/*- 

} 


25 /* 


/* END 


30 
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/* Conexant System Inc. */ 
5 /* 43 1 1 Jamboree Road */ 
/* Newport Beach, CA 92660 */ 

/* ♦/ 

/* Copyright(C) 2000 Conexant System Inc. */ 
/* */ 

10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 


/* FUNCTIONS */ 

20 /* */ 

INT 1 6 byte_swap_int 1 6(INT 1 6); 

1NT32 byte_swap_int32(INT32); 

INT64 byte_swap_int64(INT64); 

25 

void byte_swap_float32(FLOAT32 *, FLOAT32 *); 

void byte_swap_float64(FLOAT64 *, FLOAT64 *); 


30 /* END 

/♦===============. 


=*/ 


15 /* PROTOYPE FILE: lib.swb.h */ 
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/ * ===============I========== = =i == == ======================== 

/* Conexant System Inc. */ 
5 /* 43 1 1 Jamboree Road */ 
/* Newport Beach, CA 92660 */ 

/♦ */ 

/* Copyright(C) 2000 Conexant System Inc. */ 

/* */ 

10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 


15 /* LIBRARY: lib_vad.c */ 


/* */ 

/* INCLUDE 


=*/ 


20 /* */ 


^include "typedef.ir 

25 ^include "main.h" 
#include "const, h" 
^include "gputil.h" 
^include "mcutil.h" 
^include "ext_var.h" 

30 

^include -libjpc.h" 
^include "lib vad.h" 


/* 

35 /* FUNCTIONS 

/* 


/* FUNCTION : VADJnitJib 0- *' 
40 /* */ 
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/♦PURPOSE : This function performs initialisation of the */ 
/* global variables of the VAD library. */ 

/* */ 

/* INPUT ARGUMENTS : */ 
5 /* _None. */ 

/* , ♦/ 

/* OUTPUT ARGUMENTS : */ 
/* _ None. */ 

/* */ 

10 /* rNPUT/OUTPUT ARGUMENTS : */ 
/* _ None. */ 

/* */ 

/* RETURN ARGUMENTS : */ 
/* _ None. */ 


void VADinitlib (void) 
{ 

/* 


20 


INT16 i,j; 


25 ini_svector (lag_buf, 0, LTP_BUFF_SIZE- 1 , 20); 

ini_dvector (pgain_buf, 0, LTP_BUFF_SLZE- 1 , 0.7); 


30 Vad = 1; 

ini svector (flag_vad_mem, 0, 1, 1); 


/*- 


35 


flag= 1; 


count sil = 0; 
count_e\t = 0; 
40 dcc3_flg_mem = 0; 


=*/ 
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pitch_gain_mcan = 0.5; 

for (i = 0; i < VAD_MEM_SIZE; i++) 
for(j= l;j<NP;j++) 

vad_lsf_mem = vad_lsf_mem + 0.05; 

min_energy = MAXENERGY; 
meanenergy = 0.0; 

mean_max = 0; 
mcan_s_encrgy = 0.0; 


ini_dvcctor(prev_cmlJsf_difT, 0, V AD_MEM_S IZE- 1 , 0.0); 
15 ini_dvector(prcv_energy, 0, VADMEMSIZE-1, 0.0); 

snr = 0.0; 
onset_flg = 0; 
count_onset = 0; 
20 count_noise = 0; 


10 


25 


/*- 

30 

/*= 


return; 


} 


/* FUNCTION : VAD_voicc_dctection 0- */ 
/* */ 

/* PURPOSE : This function performs Voice Activity Detection. */ 
35 /* */ 

/* INPUT ARGUMENTS : */ 

/* _ (FLOAT64 0) x : input frame. */ 

/* _ (FLOAT64 []) rc: reflection coefficients. */ 

/* _ (FLOAT64 ) pderr: energy of residual. */ 

40 /* _ (TNT16 □) lag_mem: history of pitch lag. */ 
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/* _ (FLOAT64 []) pitch_gain_mem: history of pitch gain. */ 
/* _ (FLOAT64 []) lsf: lsf vector. */ 
/* _ (FLOAT64 □) rxx: autocorrelation coefficients. */ 
/* _ (INT64 ) frm_count: frame counter. */ 
5 /* _ (INT 16 )flag_vad_mem_l: past vad decision (n-1). */ 
/* _ (INT 16 ) flag_vad_mem_2: past vad decision (n-2). */ 

/* */ 

/* OUTPUT ARGUMENTS : */ 
/* _ (INT16 *) flag_vad: vad decision. */ 

10 /*- ♦/ 

/* INPUT/OUTPUT ARGUMENTS : */ 

/* _None. */ 

/* V 

/* RETURN ARGUMENTS : */ 
15 /* _None. */ 

/ *__=_____==^^ 


void VAD_voice_detecUon(FLOAT64 x [], FLOAT64 re [], FLOAT64 pderr, 

INT16 lag_mem [], FLOAT64 pitch_gain_mem [], 
20 FLOAT64 lsf [], FLOAT64 rxx [], INT64 frm__count, 

INT 16 *flag_vad, INT 16 flag_vad_mem []) 


{ 

/* */ 

25 

FLOAT64 pitch_gain_avg; 


INT 16 decision; 
INT16i; 

30 INT 1 6 pflag, pflag 1 , pflag2 ; 

INT16dec3_flg; 


FLOAT64 lags_std; 

FLOAT64 max_frame, val; 
35 FLOAT64 wl, \v2; 

FLOAT64 norm_energy; 

FLOAT64 nnormenergy; 

FLOAT64 *sum2_p, *sum2_a, *temp; 

FLOAT64 norm_cmlJsfdiff; 
40 FLOAT64 spd; 
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FLOAT64 vad_partial_lpc_gain, vadjpc _gain; 

FLOAT64 nthrs; 

FLOAT64 cml_lsf_diff = 0.0; 

FLOAT64 *suml Jsf, *sum2Jsf; 

5 

/*.„ ♦/ 

/* Memory allocation */ 
/* */ 

10 suml Jsf = dvector (0, NP-1); 

sum2Jsf = dvector (0, NP-1); 


/*- 


15 decision « NOISE; 

dec3_flg = 0; 

max_framc = -(FLOAT64)INT_MAX; 

20 for (i = 0; i < L_FRM; 

{ 

val = fabs(x fij); 

if (val > max_frame) 
25 max_frame = val; 

} 

/* */ 

/* Calculate the odcr VADjsTP prediction error */ 
30 /♦ */ 

vad_partial_lpc_j>ain = 1.0; 

for(i = 0; i < VAD LPC ORDER; i++) 

vad_partial_lpc _gain *= (1.0 - rcfi]*rc[i]); 

35 


vad_lpc_gain = vad_partial_lpc_gain; 
for (i=VAD_LPC_ORDER; i<NP; i++) 
vad_lpc_gain (10-sqr(rc[i]»; 


40 
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vadjpc_gain = -10.0*logl0(vad_lpc_gain+EPSI); 

/* */ 

/* Calculate the average prediction gain and the lag */ 

5 /* standard deviation */ 

/*_ V 

VAD_mean_std_calc (lag_mem } pitch _gain_mem, &lags_std, &pitch _gain_avg); 

10 pitch_gain_mean = 0.8*pitch_gain_mean + 0.2*pitch_gain_avg; 


15 


20 


25 


/*- 


/* Set-up the classification flags */ 
/* ♦/ 

if ( pitch_gain_mean > 0.7) 
pflag2 = 1; 

else 

pflag2 = 0; 

if ( (lags_std < 1.30) && (pitch _gain_mean > 045) ) 
pflagl = 1; 

else 

pflagl -0; 


pflag = (flag_vad_mem [0] |[ pflag2) && pflagl; 

/* */ 

30 /* Calculate the signals energies */ 
/* */ 

val = rxx[0] / (FLOAT64)L_LPC; 

35 norm_energy = 10.0 * loglO (vad_partial_lpc _gain * val + EPS1); 

norm cnergy = MAX (0.0, norm_cnergy); 

nnorm_energy = 10.0 * loglO (val + EPSI); 
nnormenergy = MAX (10.0, nnormenergy); 

40 
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/* — */ 

/* Calculate the wciglited sum of lsf cocfficcints */ 
/* */ 

5 add_dvector (lsf, &vad_lsf_mem[0][0], sum 1 Jsf, 0, NP-1); 

add_dvector (suml Jsf, &vad_lsf_mem[l]fO] > sum 1 Jsf, 0, NP-1); 

wad_dvcctor (suml Jsf, 0.25, &vadjsf_mem[2][0], 0.25, suml Jsf, 

10 0, NP-1); 

add_dvector (&vadJsf_mem[0][0J, &vadjsfjncm[l][0], sum2Jsf, 

0, NP-1); 

\vad_dvector (sum2Jsf, 0.3333, &vadjsf_mcm[2|l0], 0.3333, sum2Jsf, 
0, NP-1); 


15 


20 /*- 


/* min__energyinium energies tracking */ 
/* */ 

if (frm_count < 65) 
25 { 

if ( norni_cncrgy < min_energy ) 
{ 

min_cncrgy = norm energy; 
prevrnincnergy = nonmenergy; 
30 } 

if ((frmcount % VAD_MTN_MEM_SIZE) == 0) 

{ 

i = fnn_count / VAD_MIN_MEM_SiZE - 1; 

35 inin_cnergy_mcm [i] = min_energy; 

min energy = MAX_ENERGY; 

} 

} 

40 
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if ((frm_count % VAD__MIN_MEM_SIZE) = 0) 
{ 

prcv_min_encrgy = min_energy_mcm[0]; 
for (i = 1; i < VAD_MTN_MEM_SIZE; i++) 

5 { 

if (min_energy_mcm[i] < prev_min_energy ) 

prev_min_energy = min_encrgy_mem[i]; 

} 

} 


if( frmcount >= 65 ) 
{ 

if( (frm_count % VAD_MIN_MEM_SIZE ) = 1) 

15 . { 

min_energy - prev_min_energy; 
ncxt_min_cncrgy = MAXENERGY, 

} 

20 if( normenergy < minenergy ) 

mincnergy = norm_encrgy; 

if( norm energy < next_min__cnergy ) 

nextmi nenergy = normenergy; 

25 

if( (frm_count % VAD_M1N_MEM_SI2E) == 0) 
{ 

for (i = 0; i < VAD_MIN_MEM_SIZE-1; i++) 

min_energy_mem[i] = min energy mem[i+ 1 ] ; 

30 

rrun_energy_mem[VAD_MTN_MEM_SIZE-l 1 = next_min_cnergy; 


prev min cnergy = min_encrgy_mem[0]; 

35 for (i = 1; i < VAD_MIN_MEM_SIZE; i++) 

{ 

if (min_energy_mem[i] < prev min energy ) 

prev_min_energy = min_energy_inemli]; 

} 

40 } 
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/* */ 

/* First INIT_FRAME frames parameters calculation */ 
5 /* */ 

if (frm counl <= INIT FRAME) 
{ 

if (pflag==0&& 

10 ( ((max_frame/mean_max < 12.0) && (nnorm_cnergy <= 30.0) && 

(nnonn_energy-norrn_energy < 9.0) && 

( (rc[0] < -0.55 && vadjpc _gain < 5,0) || 

(vad_lpc_gain) < 2.75)) || (nnorm_energy <= 10.0) || 

( (nnorrn_energy <= 25.0) && ( (rc[0J < -0.55 && 
15 vadjpc_gain < 5.0)|| (vadjpc __gain) < 2.75)&& 

(niaxframe/mcanrnax < 12.0)) ) ) 

decision = NOISE; 

else 

20 decision = VOICE; 

mean_energy = (mcan_encrgy*( (FLOAT64)(frm_count-l)) + 

normenergy) / (FLOAT64) (frmcount); 

25 mean_max = (mcan_max*( (FLOAT64)(frm_count-l)) + 

max_frame)/(FLOAT64) (frm_count); 

wl = (FLOAT64) (rrm_count -1); 
w2= 1.0; 


30 


35 


wad_dvector (mcanlsf, wl, lsf, w2, mcan_lsf, 0, NP-1); 

wl = 1.0 / (FLOAT64)frm_count; 

scad vector (mcanlsf, wl, mcanlsf, 0, NP-1); 

cpy dvector (mean lsf, norm mcan lsf, 0, NP-1); 
} 


40 
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/* First IN IT FRAME frames final VAD flag sel-up */ 
/* */ 

(*flag_vad) = decision; 

5 

/* - */ 

/* Parameters calculation */ 
/* */ 

10 if (frm count >= INIT_FRAME ) 

{ 

if (frm_count == INIT_FRAME) 

mean_s_energy = MAX(mean_cnergy - 12.0,0.0); 

15 /* */ 

/* Spectral Distortion Calculation */ 

sum2_p= dvector(0, NP-1); 
20 sum2_a = dveclor(0, NP); 

temp = dveclor(0, NP-1); 


25 LPCJsftop (sum2 Js£ sum2_p, NP); 

LPC_ptoa (sum2_p, sum2_a, NP); 


30 V AD i takura_sai to (rxx, sum2_a, &spd, NP); 

spd /= (EPSI + pderr); 
35 /* */ 

difdvector (lsf, normjneanjsf, temp, 0, NP-1); 
dot_dvector (temp, temp, &norm_cml_lsf_diff, 0, NP-1); 

40 dif dvector (sumllsf, meanlsf, temp, 0, NP-1); 
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dot_dvector (temp, temp, AcmMsfdiff, 0, NP-1); 


/*- 


*/ 


10 


free_dvector(sum2_p, 0, NP-1); 
frec_dvcctor(sum2_a, 0, NP); 
frcc_dvector(tcmp, 0, NP-1); 


/* 


-*/ 


if((frm_count == IN1T FRAME) || ((prev_cml Jsf_diflI0] < 0.5c-4) 


15 


(cmljsfdtfl" > 0. le-3))) 
else 


crrd Jsf_difTfilt = cmIJsf_dilT; 

cml lsf dilT filt = 0.4*cml lsf diff + 


0.6*cml lsf diff filt; 


20 


dec3_flg = 0; 


25 


30 


/*- 


if (snr<=5.0) 

nthrs = 3.0; 
else if (snr <= 10.0) 

nthrs = 4.7; 

else 

nthrs = 5.5; 


35 


40 


if (pflag == 1 && nnorm_energy > 10.0) 

decision = VOICE; 
else if (( normenergy >= mean_s_encrgy + 6.5) | 
(cmIJsf_di£T> 1000.0c-6)) 

decision = VOICE; 
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counl_ext = 0; 

} 

else if( (norm encrgy - mean_s_cncrgy) < nthrs) 
decision = NOISE;, 


else 


{ 

decision = VOICE; 

dec3_flg = 1; 

count ext = 0; 

} 


*/ 


if ( snr<= 5.0) 

onset_trhsd = 6.0; 
else if ( snr 10.0) 

onsct_trhsd = 8.0; 

else 

onset_trhsd = 10.0; 

/* */ 

if ((nnorm_energy > 0.5*(prev_energy[l] + prev_energyl0])+ 
onset trhsd) || ((nnormencrgy > 35.0) && 
( (spd > 2.5) || (norm_cmlJsf_difl"> 0.008) || 
(nonm_energy-mean_s_energy>10.0)))) { 

onsetflg = 1; 

flag=l; 

} 

else { 

if (nnormcnergy <= 10.0) { 
onsct_flg =0; 

} 

} 

if (onsel_flg ){ 
count_onscH-+; 

} 

if ( count onset ~= 4){ 
onset_flg = 0; 
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counlonset = 0; 
countext = 4; 

} 

/♦ ♦/ 

if (onsct_flg — 0 && pflag ==0 && 

(( (max_frame/mean_max < 12.0) && (nnormenergy <= 30.0) 
SlSl (nnorm_encrgy-norm_energy < 9.0) && 
( (rc[0] < -0.55 && vadjpc _gain < 5.0)|| 
(vad_lpc__gain) < 2.75)) || (nnorm__energy <= 10.0) 
|| ( (nnorm_cnergy <= 25.0) && ( (rc[0] < -0.55 && 
vad_lpc_gain < 5.0)|| (vadjpc __gain) < 2.75) && 
(max_frame/mcan_max < 12.0)) ) ) 
{ 

decision = NOISE; 
flag =0; 

} 

else 

{ 

if ( (prev_encrgy[OJ - nnomicncrgy > 10,0) && 
(nnorm energy < 20.0) && (max_framc/mcan_max < 12.0)) 
{ 

decision = NOISE; 

flag =0; 

} 

else 
{ 

if (firmcount <= 65) 
decision = VOICE; 

} 

} 

if ( pflag ==0 && count_noise > 8 && (nnorm_energy < 30.0) && 
(niax_frame/mean_max < 15.0) SlSl 
( normenergy - mcan_s_energy < 6.5)) 
{ 

decision = NOISE; 

flag =0; 

} 
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else 

{ 

if (pflag ==0 && count_noise > 4 && cml Jsf_diff < 900.0c-6 
&& (norm_cml_lsf_difT< 3500.0e-6) && (onset_flg == 0) 
5 && (maxframe/meanmax < 15.0) && 

( normenergy - mean_s_energy < 6.0)) 
{ 

decision = NOISE; 
flag =0; 

10 } 

else if ((nnorm_encrgy> 25.0) && (nag_vad_mcm [1] = VOICE) && 
(flag_vad_mcm [0] VOICE) && (decision == NOISE) && 
(norm_cmlJsf_diff > 4000.0e-6) ) 
decision = VOICE; 
15 } 


25 


35 


40 


/* 


if (decision == NOISE) 
20 count_noise-H-; 
else 

count_noise=0; 


/* */ 

if ((norm_cmlJsfdifF> 0.0003) && 

( nnormenergy - prcv_energyl2] < -12.0)) 
count ext = 4; 


30 /* *' 

if (flag =1) 
{ 

/* 


if (((nnorm_energy> 25.0) && 

(flag_vad_mem [1] == VOICE) && 
(flag_vad_mem [0] == VOICE) && 
(decision == NOISE)) || (onset Jig)) 
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{ 

count_ext-+-+; 
decision = VOICE; 

5 if(count_ext <= 26-0 && snr <= 0.0) 

flag=i; 

else if(count_cxt <= 22-0 && snr <= 5.0) 
flag =1; 

else if(count_ext <= 20-0-0 && snr <= 6.5) 
10 flag=l; 

else if(count_cxt <= 16-0-2 && snr <= 8.0) 
flag«l; 

else if(coiinl_ext <= 14-2-2 Sc& snr <= 1 1.0) 
flag=l; 

15 else if(count_ext <= 10-2-2 && snr <= 14.0) 

flag=l; 

else if(counl_cxt <= 8-2-2 && snr <= 17.0) 
flag =1; 

else if(count_ext <= 3 && snr <= 21.0) 
20 flag=l; 

else if(count_ext <= 1 && snr > 21.0) 
flag=l; 

else 

25 { 

flag - 0; 
counl_ext=0; 


30 /* 

> 

else 

{ 

flag= 1; 

35 count_ext = 0; 

} 


/*- 


40 


if (decision == NOISE) 
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== NOISE) 
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count_exi=0; 

/* ♦/ 

/* Compute meanenergy */ 
/* */ 

if ( nonn_energy > minenergy + 12.0) 

mean energy = 0.9 * mean energy + 0.1* normenergy; 


10 /' 


/* Compute snr */ 

/* */ 

snr = meanenergy - meanscnergy; 

/* */ 

/* Compute the new mcansencrgy */ 
/* */ 


20 if (((normenergy < MAX(mcan_s_energy,min_cncrgy) + 3.5) 


&& (fpflag)) || decision 


{ 

25 mcan_max - MAX(EPSI,0.95 * meanmax + (1.0- 0.95)* max_frame); 

count_sil++; 

if (count_sil < INIT_COUNT) 
30 { 

wl = 0.75; 
w2 = 0.60; 
} 

else if (counl_sil < INIT_COUNT + 10) 
35 { 

wl = 0.85; 
w2 = 0.65; 
} 

else if (count_si! < INlT_COUNT + 20) 
40 { 
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wl =0.85; 
w2 = 0.65; 
} 

else 

5 { 

wl = 0.65; 
vv2 = 0.65; 
} 

10 wad_dvector (mean_lsf, \v2, lsf, (1 .0 - \v2), meanjsf, 

0, NP-1); 

if (nnorm energy > 18.0) 

mean_s_energy = wl * mean s_energy + 
15 (1.0 -wl)* norm_energy; 

mcan_s_energy = MAX(mean_s_cnergy, 0.0); 
> 

20 /* */ 

\vad_dvcclor (norm_mcanJsf, 0.85, lsf, (1.0 - 0.85), 

25 /* */ 

/* Current frames final VAD flag set-up */ 
/* */ 

(*flag_vad) = decision; 

30 

/* */ 

if ((frm_count >64) && (mean_s_energy +10.0 < min_energy ) && 

35 (Ipnag)) 

{ 

meanscnergy = MAX(0.5*( min_energy+mean_s_energy),0.0); 
mean_s_energy = 0.75*mean_s__energy + 

0.25*min_cnergy; 
40 meansenergy = MAX(mean_s_cnergy, 0.0); 


norm mean lsf, 0, NP-1); 
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count_sil = 0; 
} 

else if ((frni_count >64) && (mean__s_cncrgy > min_cnergy + 4.0 )) 
{ 

mean_s_energy = MAX(min_energy, 0.0); 

count_sil = 0; 

} 


10 } 


/* Save parameters for the processing of the next frame */ 


-*/ 


15 

sfr_dvector (prev_energy, prevencrgy, 1, 0, VAD_MEM_SIZE-1); 
prev_energy[0] = nnormenergy; 

sfr_dvcctor (prev_cmlJsfdifT, prev_cmljsf_diir, 1, 0, VADMEM_S1ZE-1); 
20 prev_cmljsf_diffl0] = cmljsf_diff; 


25 


cpy_dvector (vadjsfmemll], vad_lsf_mem[2], 0, NP-1); 
cpy_dvector (vadjsfmcm[0] f vadjsfmemlll, 0, NP-1); 
cpy_dvector (lsf, vadJsfmemlO], 0, NP-1); 


30 


35 


dec3_flg_mem = dec3 fig; 


/*- 


free_dvector (sumljsf, 0, NP-1); 
free_dvector (sum2_lsf, 0, NP-1); 


return; 


-*/ 


-*/ 


40 
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/* FUNCTION : VAD_itakura_saito (). */ 

5 /* */ 

/* PURPOSE : This function calculate the Itakura Saito */ 
/* distance. */ 

/* */ 

/* INPUT ARGUMENTS : */ 
10 /* _ (FLOAT64 Q) r : input signal autocorrelation. */ 
/* _ (FLOAT64 Q) a : LPC filter coefficients. */ 
/* _(INT16 )P : filler order. */ 

/* OUTPUT ARGUMENTS : */ 
15 /* _ (FLOAT64 *) isd : output Itakura Saito distance. */ 

/+ */ 

/* INPUT/OUTPUT ARGUMENTS : V 

/* _ None. */ 

/* */ 

20 /* RETURN ARGUMENTS : _ None. */ 

void VAD_itakura_saito (FLOAT64 r [], FLOAT64 a [], FLOAT64 *isd, INT16 P) 
{ 

25 /* */ 

INT16 k,m; 
FLOAT64 sum; 
FLOAT64 r_a[20], 

30 

/♦ -*/ 


for (k = 0; k <= P; k++) 
{ 

35 

sum = 0.0; 

for(m = 0; m <= P-k; m++) 

sum = sum + a(m]*a[m+k|; 
r_afkj - sum; 
40 } 
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sum = 0.0; 

for (m = 1; in <= P; m++) 

sum = sum + r[m]*r_a[m]; 


796 


10 


(*isd) - (r[0]*r_a[0] + 2*sum); 


-*/ 


15 


return; 


-*/ 


20 


/*== 


/* FUNCTION : VAD_mean_std_calc 0 
/* 


-*/ 


25 /* PURPOSE : This function calculate average prediction */ 
/* gain and the lag standard deviation */ 

/* */ 

/* INPUT ARGUMENTS : */ 
/* (INT16 [])l a g s _ mem: history of pitch lag. */ 

30 /* _ (FLOAT64 []) pitch_gain_mem: history of pitch gain. */ 

/* _ */ 

/* OUTPUT ARGUMENTS : */ 
/* _ (FLOAT64 *) l_std: lag standard deviation. */ 
/* _ (FLOAT64 *) pg__mean: average prediction gain. */ 

35 /* */ 

/* INPUT/OUTPUT ARGUMENTS : */ 
/* _ None. */ 

/* */ 

/* RETURN ARGUMENTS : */ 

40 /* None. */ 
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void VAD_mean_std_calc (INT16 lags_mem [], FLOAT64 pitch_j»ain_mcm [], 

5 FLOAT64 *pg_mcan) 

{ , 

/♦ */ 


FLOAT64*l std, 


10 


INT16 i; 

FLOAT64 val, suml, sum2; 


/* 


15 


20 


suml = 0.0; 
sum2 = 0.0; 

for(i = 0; i < LTP_BUFF_SIZE; i++) 
{ 

suml += (FLOAT64) lags_mem [i]; 
sum2 += pitch_gain_mem [i]; 
} 


25 


suml = suml / (FLOAT64)LTP_BUFF_SIZE; 


/*- 


(*pg_mean) = sum2 / (FLOAT64)LTP_BUFF_SIZE; 


30 


-*/ 


(*l_std) = 0.0; 


35 


40 


for(i - 0; i < LTP_BUFF_SIZE; i++) 
{ 

val = (FLOAT64) lags_mem [i] - suml; 

(*l_std) val*val; 

} 

(*I_std) = sqrt ((*l_std) / (FLOAT64)(LTP_BUFF_SIZE - 1)); 
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/* ♦/ 

return; 

5 /♦ »/ 

} 

/* «■/ 

10 /*===^==========^===========================================================*/ 

/* end *y 

/♦ ========================================================================== = = */ 
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/*= 


/* Conexant System Inc. */ 
5 /* 43 1 1 Jamboree Road */ 
/* Newport Beach, CA 92660 */ 
/* V 

/* Copyright(C) 2000 Conexant System Inc. */ 

/* ♦/ 

10 /♦ ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 
/ * ==== ^ ======== = ===== ============^ 

15 /* PROTOTYPE FILE : lib_vad.h */ 

/* */ 

/* FUNCTIONS */ 

20 /* */ 

void VAD_init_Iib (void); 

void VAD_voice_detection (FLOAT64 [], FLOAT64 [], FLOAT64, INT16 [], FLOAT64 *, 
25 FLOAT64 [], FLOAT64 [] t INT64, INT16 [], INT 16 0); 

void VADJtakura_saito (FLOAT64 [], FLOAT64 [], FLOAT64 *, INT16); 


30 void VAD_mean_std_calc(INT16 [], FLOAT64 [J, FLOAT64 *, FLOAT64 *); 
/* : END */ 

35 
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/* Conexant System Inc. 
5 /* 43 11 Jamboree Road 
/* Newport Beach, CA 92660 
/* 


*/ 
*/ 


V 


/* Copyright(C) 2000 Conexant System Inc. 
/* 


10 /* ALL RIGHTS RESERVED: *> 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. ♦/ 

15 /* PROTOTYPE FILE : main.h 


=*/ 


=*/ 


/*- 


20 /* 


INCLUDE — 


-*/ 


-*/ 


#include<stdio.h> 
#include<stdlib.h> 

25 #include<math.h> 
#include<string.h> 
#incIude<malloc.h> 
#include<crrno.h> 
^include <memory .h> 

30 #include<float.h> 
#include<limits.h> 


/* 


/*— 
35 /*— 


- DEFINE 


-*/ 


^define ninl(x) ((x>=0)? (INT16)(x-K).5):(INT16)(x-0.5)) 

#define MAX_n(x,y) ((x)>(y))?(x):(y) 
40 #dcfineMlN_n(x,y)((x)<(y))?(x):Cv) 


WSDOC1D: <WO 01224O2A1 . 


WO 01/22402 


PCT/USOO/25182 
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/* 


5 /*-- 


DEFINE 


-V 


#define 
tfdefine 
#definc 
10 #definc 
^define 


EXITJFAILURE 1 
NB_MAX_CHAR 
NBALGOMAX 
MAXSENTENCE 
NB MAX VEC 


128 
100 
100 


100 


/* 

^define PI 3.14 1592653589793 1 1 5997963468544 185161 590576 1 7 1 875 

15 #defincTWO_PI 6.28318530717958623199592693708837032318115234375 
*/ 

^define PI 3.141592654 


20 /*===================================^^ 

/* END V 
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/* Conexant System Inc. 
5 /* 43 1 1 Jamboree Road 
/* Newport Beach, CA 92660 
/♦ 


*/ 
♦/ 

*/ 

*/ 


/* Copyright(C) 2000 Conexant System Inc. 


*/ 


*/ 


10 /* ALL RIGHTS RESERVED: 

/♦ No part of this software may be reproduced in any form or by any 
/♦ means or used to make any derivative work (such as transformaUon ♦/ 
or adaptation) without the authorisation of Cone ^ S ^^ 

— ™==™ - 

15 /* MAIN PROGRAM : main_dec.c ===== _ =======:= ========*/ 

. */ 

/* 


/ 

20 /*■ 


* _ INCLUDE ■ 


^include "typedcf.h" 
^include "main.h" 
^include "const.h" 
25 tfincludc tt glb_var.h w 

^include "mcutil.lT 
^include "gputil.h" 

30 ^include "decoder.h" 

tfincludc "libJoV 
#include "lib_ini.h M 
^include w lib_cpr.h M 

35 

#ifdefDIAG__SMV 
^include "lib_dia.h M 

40 
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#endif 


/* MAIN */ 


5 /> 


int main( int argc, char *argv[] ) 
{ 

/* 


10 /* Pointers to I/O files */ 

/♦ V 


FILE *fp_speech_out; 
FILE *fp_bitstream; 


15 


/*- 


/* I/O buffers 
/* 


20 FLO AT64 dcc_sigout[L_FRM] ; 

INT16 i, switch_flag=l; 
INT 16 *s_y; 


25 


INT 1 6 serial [PACKWDSNUM] ; 

/* */ 

/* Print copyright information */ 
/* V 


30 #ifdef VERBOSE 

print_copyright 0; 

tfendif 

35 

/* */ 

/* Check the number of input parameters */ 
/* */ 


40 if(argc<3) 
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{ 


#ifdef VERBOSE 


prinlf("\n%s bilstream Jilc dccoded_spcech_fiic \n\n\ 


#cndif 


10 


/*- 

/* 

/*- 


argv[0]); 


exit(l); 
} 


Open IO files 


-*/ 


15 


fp bitstream = file_ppen_rb (argv [1]); 
fp_speech_out = file_open_wb (argv [2]); 


20 


if (argc == 4) 

switch_flag = atoi(argv[3]); 


#ifdcf VERBOSE 

prinlf("\nExecutable : %s\n M ,argv[0J); 

printfC'lnputbitstream : %s\n M , argv[l]); 

25 prinlf("Output speech : %s\n", argv[2]); 


#ifdef BYTE SWAP_OUTPUT 


30 printf("Output is byte-swapped\n"); 


#endif 


#endif 


35 


#ifdef DIAGNOSTICS 


40 


/*- 

/* 

/*- 


Open DIAGNOSTICS files 


-*/ 


BKiSBOClD: <WO._ 0122402A1„L> 


WO 01/22402 


PCT/USOO/25182 


805 


DIA_dec_open_filcs Q; 


#endif 

5 


/*- */ 

/* Memory Allocation */ 
/* */ 

10 s_y = svector (0, L FRM-l); 

TNI_allocate_memory Q; 


15 /*- 


/* Algorithm Initialization */ 
/*— */ 

INI_init_decoderO; 


20 


*/ 


/* anaDnnuuuui mix jeroannnnnnnnanp SYNTHESIS PART Dwaaanann^^ */ 

/ *^==== = =__==_^ 

25 

while ((i = fread(serial, sizeof(short), PACKWDSNUM, fp_bitstrcam)) 
== PACKWDSNUM) 

{ 

frm_count++; 

30 

#ifdef VERBOSE 

printf ( M [%ld frame(s), %6.3f sec.J\r\ frm_count, 

(FLOAT64)(frm_count*L_FRM)/(FLOAT64)FS); 

35 #endif 

/* Decoding Bitstrcam */ 
/* */ 

40 
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dec_sinv_frame(serial, dcc_sigout, switchjlag); 


IO_\vritesamplcs (fp_speech_out, dcc_sigout, s_y, L FRM); 


10 


/# */ 

/* Memory Deallocation */ 
/* */ 

free_svector (s_y, 0, L_FRM-1); 

INI_dcallocate_memory 0; 


15 / 


/* Close IO files */ 

/* V 

fclose (fp bitstream); 
20 fclose (fp_speech_out); 

#ifdef DIAGNOSTICS 

/* */ 

25 /* Close DIAGNOSTICS files */ 
/* */ 

DIA_dec_close_files 0; 

30 #endif 


printf( w \n"); 


35 


return 0; 


/*- 

} 


40 
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/* */ 

/* END */ 

5 / » ================================= ==========================================*/ 
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=*/ 


/* Conexant System Inc. */ 
5 /* 43 1 1 Jamboree Road */ 
/* Newport Beach, CA 92660 */ 

/* V 

/* Copyright(C) 2000 Conexant System Inc. */ 

/* */ 

10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 


15 /* MAIN PROGRAM : main_enc.c 

/*====================== 1 


/* */ 

/* INCLUDE */ 

20 /* : */ 

#include "lypedef.h" 
#include "main.h" 
#include "const.h" 
25 ^include "glb_var.IT 

^include "mcutil.h" 
#include "gputil.h" 

30 #includc "cncoder.rT 

^include "lib_ini.h M 
^include "lib_io.1T 
^include H lib_cpr.IT 
35 ^include "iib_ppr.1T 
# include "libsns.h" 

#ifdefDIAG_SMV 

40 ^include "lib dia.h" 
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#endif 


5 /* MAIN */ 

/*========_============^^^ 

int main (int argc, char *argv[] ) 
{ 

10 /* */ 

/* I/O Files */ 

/* */ 


FILE *fp_speech_in; 
15 FILE *fp_bitstream; 

FILE *fp_signaling; 
FILE *fp_mode; 


/' 


20 /* Variables 
/* 


FLOAT64 *px; 
FLOAT64 avg_rate; 

25 

// INT16 flaljlag=0; 

INT16 switch_flag= 1 ; 
INT 1 6 input_samplcs; 
char signaling; 

30 

INT 16 VoicingClass=0; 


/* */ 

/* I/O buffers */ 
35 /♦ */ 

FLOAT64 *sig_in, *signn_buf, *sig_ppr, *sig_out; 
INT 16 *s_x, *s_y; 


40 INT16 'serial; 
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/ 


/* Print copyright information */ 
/* */ 

5 

#ifdef VERBOSE 

print_copyright 0; 

10 #endif 


/* -/ 

/* Parameters Set-up */ 
/* •/ 

INI_parameters_setup (argc, argv, &fp_speech_in, &fp_bitstream, 

&fp_modc, &fp_signaling, &smv_mode); 


15 


#ifdefDIAG_SMV 

20 


25 


/* */ 

/* Open DIAGNOSTICS files */ 
/* */ 


DIA_enc_opcn_filcs Q\ 


#endif 

30 /* */ 

/* Memory Allocalion */ 
/* */ 

s_x = svector (0, LFRM-l); 
35 s_y = svector (0, L FRM-l); 

sig_in = dvector (0, L FRM-l); 

signn_buf = dvector (0, L_FRM+ENH_DELAY- 1 ); 
sig__ppr = dvector (0, L_PP-1); 
40 sig_out = dvector (0, L_FRM-1); 
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serial = svector (0, PACKWDSNUM-1); 
INI_allocate_memory (); 

5 

/* */ 

/* Algorithm Initialization */ 
/* */ 

10 INI_init_encodcr(); 

/* */ 

/* Read the input signal */ 
/* ♦/ 

15 

px = sig_in+L_FRM-L_LPCLHD-ENH_DELAY; 

IO_readsamples(fp_spccch_in, s_x, px, L_LPCLHD+ENH_DEL A Y) ; 

20 /* */ 

/* Silence enhancement of the Input signal frame */ 
/* */ 


PPR_silence_enhan (px, px, L_LPCLHD+ENH_DEL AY) ; 

25 

/* */ 

/* High pass filter at 80 Hz */ 
/* */ 

30 PPRJiighpass (LJFRM, sig_in); 

cpy_dvcctor(sig_in, signnJnif+ENHDELAY, 0, LFRM-l); 

/* */ 

35 /* Input Speech Enhancement */ 
/* */ 

SNS_modified_noise_suprs(VoicingClass, sig_in); 
SNS_modified_noise_suprs(VoicingClass, sig_in+L_FRM/2); 

40 
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cpy_dvcctor (sig_in+L_FRM-L_LPCLHD, sig_ppr+L_PP-L_LPCLHD, 0, LJJPCLHD-l); 

/* */ 

/* Low pass filler for tilt compensation */ 
5 /* ♦/ 

px = sig_ppr+L_PP-L_LPCLHD; 

PPRJowpass (px, (INT16)(L_LPCLHD), smv mode, FlatSp_Flag); 

10 /*============:=======================^ 

/* nnrrancrarapnatreapn^^ ANALYSIS PART rftTPDPPDnnnpnpnnppr^ */ 


input_samples = LFRM; 

while (input samples == L FRM) 
20 { 

/* */ 

frm_count++; 

25 /* */ 

#ifdef VERBOSE 

printf ("l%ld firamc(s) s %6.3f sec.]\r", frm__count, 

30 (FLOAT64)(frm_counl*L_FRM)/FS); 
tfendif 

/* */ 

/* Reading the signaling information */ 
/* */ 

35 

if (fp_signaling != NULL) 

fread(&signaling, sizeof(char), 1, fp_signaling); 

else 

signaling = (char) 0; 

40 
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/* */ 


/* Read the input signal */ 

input_samples = (INT16)IO_rcadsampIes (fp_spccch_in, s_x, sig_in, 
LFRM); 


10 /* Silence enhancement of the Input signal frame */ 

PPR_silencc_enhan (sig_in, sig_in, input_samplcs); 


15 /*- 


20 


25 


/* Zero Padding if necessary for the last frame */ 

ini_dvcclor(sig_in, input_samples, L FRM-l, 0.0); 
PPR_highpass (L_FRM, sig_in); 

cpy_dvector(signn_buf+L_FRM, signnjnif, 0, ENH_DEL AY- 1); 
cpy_dvcctor(sig_in, signn_buf+ENH_DELAY, 0, L_FRM-I); 


if (FlatSp_Flag=- 1) 

MIN_GAIN = -14.0; 

30 /* */ 

/* Input Speech Enhancement */ 

SNS_modified_noise_suprs(VoicingClass, sig_in); 
35 SNS_modified_noisc_suprs(VoicingCIass, sig_in+L_FRM/2); 

/* */ 

/* Update the pre-processed speech buifer */ 

40 
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cpy_dvector (sig_ppr+L_FRM, sig_ppr, 0, L_PP-L_FRM-1); 
cpy_dvector (sig_in, sig_ppr+L_PP-L_FRM, 0, L_FRM-1); 

/* */ 

/* Low pass filter for tilt compensation */ 
/* */ 

px = sig_ppr+L_PP-L_FRM; 

PPRlowpass (px, L_FRM, smv_mode, FlatSp_Flag); 


10 


#ifdcf SCRATCHPADMEM 

ini_dvcctor(sig_in, 0, L FRM-l, -1.0); 
ini_dvcclor(signn_buf, 0, L FRM-l, -1.0); 

15 

#endif 

enc_smv_frame (sig_ppr, serial, sig_out, smv mode, 

switch flag, &FlatSp_Flag, signaling, 
20 &avg_rate, &VoicingClass); 


#ifdcfDIAG_SMV 
25 IO_writesamplcs (fdia_sp_enc, sig_out, s_y, L_FRM); 

#endif 


30 fwrite(serial, sizeof(short), PACKWDSNUM, fp_bitstream); 

} 

/* */ 

/* Print the Average bit rate */ 
35 /* */ 


printf( M \n\t\t\taverage_ratc = %f\n'\ avg_rate); 


40 /* Memory Deallocation 


:<WO 01224O2A1.I > 


WO 01/22402 


PCT/US00/25182 


815 


10 


free svector (s_x, 0, LFRM-l); 
free svector (s_y, 0, L FRM-l); 

free_dvector (sig_in, 0, L_FRM-1); 

free_dvector (signnj>uf, 0, L_FRM+ENH_DEL AY- 1 ) ; 

free dvector (sig_ppr, 0, L_PP-1); 

free_dvector (sig_out, 0, L FRM-l); 

free_svector (serial, 0, PACKWDSNUM-1); 

INI deallocate_mcmory 0; 


15 


/*- 

/* 

/*- 


Close IO files 


20 


fclose(fp_speech_in); 
fclose(fp_bitstream); 


if (fpjsignaling != NULL) 

fclosc(fp_signaling); 


25 #ifdefDIAG SMV 


/*- 

/* 

/*- 


Close DIAGNOSTICS files 


30 


DIA_enc_close_files 0; 


tfendif 


-*/ 
*/ 

-V 


35 


#ifdcf VERBOSE 


prinlf( M \n M ); 


40 
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#endif 

/* */ 

return 0; 

5 

/*__ */ 

> 

/* */ 

10 

/*====^=====================================================================V 

/* END */ 

/ * ================================== „= == ==========================*/ 
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/* Conexant System Inc. 
5 /* 43 1 1 Jamboree Road 
/* Newport Beach, CA 92660 
/* 


*/ 
*/ 


/* Copyright(C) 2000 Conexant System Inc. 
/* 


*/ 
-*/ 

-*/ 


10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 


15 /* LIBRARY: mcutil.c 


♦/ 


/*- 
/*- 
20 /*- 


INCLUDE 


-*/ 


#include "typcdef.h" 

^include <malloc.h> 
25 #includc <stdio.h> 
#includc <stdlib.h> 


/*- 
/*- 
30 /*- 


FUNCTIONS 


-*/ 


35 /* PURPOSE 
/♦ 


/* FUNCTIONS : nrerror 0 
/+ 


Standard error handler. 


*/ 


V 


/* INPUT ARGUMENTS : _ (char*) error_tcxt : output string. */ 

/* */ 

/* OUTPUT ARGUMENTS : None. */ 


==*/ 
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/* RETURN ARGUMENTS : _ None. 

/*========================== 


*/ 


=*/ 


void nrerror ( char crror_text [] ) 
5 { 

£prinlf(stderr, "Run-time crror„.\n"); 
fprintf(stderr > "%s\n ,, ,error_text); 
fprintf(stderr,"...now exiting to system... \n"); 
exit(l); 

10 } 


-*/ 


=*/ 


15 /* FUNCTIONS : vector 0 
/* 


V 

— V 


/* PURPOSE Allocate a float vector with subscript range */ 

/* v [nl, .... nh]. */ 

/* ♦/ 

20 /* INPUT ARGUMENTS : (INT32) nl. */ 
/* _ (INT32) nh. */ 

/* . */ 

/* OUTPUT ARGUMENTS : _ None. */ 
I* */ 

25 /* RETURN ARGUMENTS : _ (FLOAT32*): pointer to the allocated vector.*/ 


=*/ 


FLOAT32 *vcctor( INT32 nl, INT32 nh) 
{ 

30 FLOAT32 *v; 

v=(FLOAT32 *)calloc((unsigned) (nh-nl+l),sizeof(FLOAT32)); 
if (!v) nrerror("allocation failure in vectorO"); 
return v-nl; 

35 } 


-*/ 


40 /* FUNCTIONS : svector Q 


======*/ 
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/* */ 

/* PURPOSE Allocate a short vector with subscript range */ 

/* v [nl, nh]. */ 

/* */ 

5 /* INPUT ARGUMENTS : _(INT32)nl. */ 
/* _ (INT32) nh. */ 

/* */ 

/* OUTPUT ARGUMENTS : _ None. */ 

/* */ 

10 /* RETURN ARGUMENTS : (INT16*): pointer to the allocated vector. V 
/*====================================-====================== 


INT16 *svector( INT32 nl, INT32 nh) 

{ 

15 INT 16 *v; 

v=(INT16 *)calloc((unsigned) (nh-nl+l),sizeof(INT16)); 
if (!v) nrerrorC'allocation failure in svcctor() M ); 
return v-nl; 

20 } 

/* */ 


/*= 


25 /* FUNCTIONS : ivcctor 0 *' 

/* */ 

/* PURPOSE Allocate an int vector with subscript range */ 

/* vfnl, nh]. */ 

/* */ 

30 /* INPUT ARGUMENTS : _ (INT32) nl. */ 
/* _(INT32)nh. */ 

/* */ 

/* OUTPUT ARGUMENTS : _ None. */ 
/* */ 

35 /* RETURN ARGUMENTS : _ (INT32*): pointer to the allocated vector. */ 


INT32 *ivector( INT32 nl, 1NT32 nh ) 
{ 

40 INT32 *v; 


=*/ 
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v=(INT32 *)calloc((unsigncd) (nh-nl+l),sizeof(INT32)); 
if (!v) nrerror("aIlocation failure in ivectorO"); 
return v-nl; 

5 } 


/* */ 

10 /* FUNCTIONS : lvcctor 0 *' 

,* */ 

/* PURPOSE Allocate a long vector with subscript range */ 

/* v [nl, nh]. */ 

/* */ 

15 /* INPUT ARGUMENTS : _ (INT32) nl. */ 
/* _(INT32) nh. */ 

/* */ 

/* OUTPUT ARGUMENTS : _ None. ♦/ 
/* ~ */ 

20 /* RETURN ARGUMENTS : _ (INT64*): pointer to the allocated vector. */ 

INT64 *lvcctor( INT32 nl, INT32 nh ) 
{ 

25 INT64 *v; 


v=(INT64 *)calloc((unsigned) (nh-nl+l),sizeof(INT64)); 
if (!v) nrcrror( M allocation failure in lvectorO"); 
return v-nl ; 

30 } 


/* ♦/ 

35 /* FUNCTIONS : dvcctor 0 *' 

/* */ 

/* PURPOSE Allocate a double vector with subscript range */ 

/* v [nl, nh]. */ 

/* */ 


40 /* INPUT ARGUMENTS : _ (INT32) nl. */ 
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/* _ (INT32) nh. */ 

/* ♦/ 

/* OUTPUT ARGUMENTS : _ None. */ 

/* */ 

5 /* RETURN ARGUMENTS ; _ (FLOAT64*): pointer to the allocated vector,*/ 

FLOAT64 *dvector( INT32 nl, INT32 nh ) 
{ 

10 FLOAT64 *v; 

v=(FLOAT64 *)calioc((unsigned) (nh-nl+l),sizeof(FLOAT64)); 
if (!v) nrerror( H allocation failure in dvector() n ); 
return v-nl; 

15 } 


/*- 


20 /* FUNCTIONS : matrix 0 *' 

/* */ 

/* PURPOSE Allocate a float matrix with subscript range */ 

/* m [nrl, nrh][ncl nch]. */ 

/* */ 

25 /* INPUT ARGUMENTS : _ (INT32) nrl (low row). */ 
/* _ (INT32) nrh (high row). */ 
/* _ (INT32) ncl (low column). */ 
/* _ (INT32) nch (high column). */ 
/♦ */ 

30 /* OUTPUT ARGUMENTS : _ None. */ 

/* */ 

/* RETURN ARGUMENTS : _ (FLOAT32**): pointer to the allocated */ 
/* matrix. */ 

35 

FLOAT32 **matrix( TNT32 nrl, INT32 nrh, INT32 ncl, INT32 nch ) 
{ 

IKT32 i; 
FLOAT32 **m; 

40 
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m=(FLOAT32 **) calloc((unsigncd) (nrh-nrI+l),sizeof(FLOAT32*)); 
if (!m) nrerror("allocation failure 1 in matrixO"); 
m -= nrl; 


5 for(i=nrl;i<=nrh;i-H+) { 

m[i]=(FLOAT32 *) calloc((unsigned) (nch-ncl+l),sizeof(FLOAT32)); 
if (!m[i]) nrerror("allocation failure 2 in matrixO"); 
m[i] •= ncl; 

} 

10 return m; 

} 

/* V 

15 /*=====:===========--=-========^ 

/* FUNCTIONS : s matrix 0 */ 
/* */ 

/* PURPOSE : Allocate a short matrix with subscript range */ 

/* m [nrl, nrh] [ncl, nch]. */ 
20 /* */ 

/* INPUT ARGUMENTS : _ (INT32) nrl (low row). */ 

/* _ (INT32) nrh (high row). */ 

/* _ (INT32) ncl (low column). */ 

/* _ (INT32) nch (high column). */ 
25 /* ♦/ 

/* OUTPUT ARGUMENTS : _ None. */ 

/* V 

/* RETURN ARGUMENTS : _ (INT16**): pointer to the allocated matrix. */ 

30 


INT16 **smatrix( INT32 nrl, INT32 nrh, INT32 ncl, INT32 nch ) 
{ 

TNT32 i; 
INT16 **m; 

35 

m=(INT16 **) calloc((unsigned) (mlwirl+l),sizeof(INT16*)); 
if (!m) nrcrrorO'allocation failure 1 in smatrixO"); 
m -= nrl; 

40 for(i=nrl;i<=nrh;i++) { 
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mlil^INTie *) calloc((unsigned) (nch-ncl+l),sizeof(INT16)); 
if (!m[i]) nrerror( M allocation failure 2 in smatrix() M ); 
m[i] -= ncl; 


} 

return m; 


10 /* 


/* FUNCTIONS 
/* 


dmatrix 0 


*/ 


/* PURPOSE Allocate a double matrix with subscript range */ 

/* m (nrl nrh][nd, nch). */ 

15. /* */ 


/* INPUT ARGUMENTS : _ (INT32) nrl (low row). 
/* _ (INT32) nrh (high row). */ 
/* _ (INT3.2) ncl (low column). */ 
/+ _ (INT32) nch (high column). */ 
20 /* */ 


V 


/* OUTPUT ARGUMENTS 
/* 


None. 


/* RETURN ARGUMENTS : _ (FLOAT64**): pointer to the allocated 
/* matrix. */ 


*/ 


FLOAT64 **dmatrix( 1NT32 nrl, INT32 nrh, INT32 ncl, INT32 nch ) 
{ 

INT32 i; 
30 FLOAT64 **m; 


35 


40 


m=(FLOAT64 **) calloc((unsigned) (nxh-nrl+l),sizeof(FLOAT64*)); 
if (!m) nrerrorC'allocation failure 1 in dmatrixO"); 
m -= nrl; 

for(i=nrl;i<=nrh;i++) { 

m[i]=(FLOAT64 *) calloc((unsigned) (nch-ncl+l),sizeof(FLOAT64)); 
if (!m[i]) nrerror("allocation failure 2 in dmatrixO"); 
m[i] -= ncl; 

} 
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return m; 


/* «y 

5 

/* FUNCTIONS : imalrix 0 */ 

/* */ 

/* PURPOSE : Allocate an int matrix with subscript range */ 
10 /* m [nrl, nrh][ncl, nchj. */ 
/* */ 

/* INPUT ARGUMENTS : _ (INT32) nrl (low row). */ 
/* _ (INT32) nrh (high row). */ 
/* _ (INT32) ncl (low column). */ 
15 /* _ (INT32) nch (high column). */ 
/* */ 

/* OUTPUT ARGUMENTS : _ None. V 

/* */ 

/* RETURN ARGUMENTS : _ (INT32**): pointer to the allocated matrix. */ 

INT32 **imatrix( INT32 nrl, INT32 nrh, INT32 ncl, INT32 nch) 
{ 

1NT32 i,**m; 

25 

m=(INT32 **)ca!loc((unsigned) (nrh-nrl+l),sizeof(INT32*)); 
if (!m) nrerror( M allocation failure 1 in imatrixO"); 
m -= nrl; 

30 for(i=nrl;i<=nrh;i-H-) { 

m[i]=(INT32 *)calloc((unsigned) (nch-ncl+l),sizcof(INT32)); 
if (!mfi]) nrerrorO'allocation failure 2 in imatrixO"); 
m[i) -= ncl; 

} 

35 return m; 


40 /*========================^===,========================-===:=======*/ 
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/+ FUNCTIONS : submalrix 0 *' 

/♦ V 

/* PURPOSE Allocate a float matrix with subscript range */ 

/* m [nrl, nrh][ncl, nch]. */ 

5 /» */ 

/* INPUT ARGUMENTS : _ (INT32) nrl (low row). */ 
/* _ (INT32) nrh (high row). */ 

/* _ (INT32) ncl (low column). */ 

/* _ (INT32) nch (high column). */ 

10 /* */ 

/* OUTPUT ARGUMENTS : _ None. */ 

/* */ 

/* RETURN ARGUMENTS : _ (FLOAT32**): pointer to the allocated 
/* matrix. */ 

15 /♦===-===========-================================= 


FLOAT32 **submalrix( FLOAT32 **a, INT32 oldrl, INT32 oldrh, INT32 oldcl, \ 

INT32 ncwrl, INT32 newel) 

{ 

20 INT32 i j; 

FLOAT32 **m; 

m=(FLOAT32 **) calloc((unsigned) (oldrh-oldrl+l),sizeof(FLOAT32*)); 
if (!m) nrerror("allocation failure in submatrixO"); 
25 m -= newrl; 

for(i=oldrlj=ncwrl;i<=oldrh;i++j++) m[j]=a[i]+oldcl-newcl; 


return m; 


30 } 


/*— 


/* 


35 /* FUNCTIONS : s3tensor 0 *' 

/* */ 

/* PURPOSE Allocate a short tensor with subscript range */ 
/* t [nrl,..., nrh][ncl,..., nch]lndl,...,ndhj. */ 
/* */ 

40 /+ INPUT ARGUMENTS : _(INT32) nrl. */ 
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/* _ (INT32) nrh. */ 

/* _(TNT32)ncl. */ 

/* _(INT32)nch. */ 

/* _ (INT32) ndi. */ 

5 /* _ (INT32) ndh. */ 

/* - */ 

/* OUTPUT ARGUMENTS : _ None. */ 

/* */ 

/* RETURN ARGUMENTS : _ (INT16***): pointer to the allocated tensor.*/ 
10 /*==================================================-===========*/ 

TNT16 ***s3tcnsor (INT32 nrl, INT32 nrh, INT32 ncl, INT32 nch, INT32 ndl, INT32 ndh) 
{ 

TNT32 ij,nrow=nrh-nrH-l > ncol=nch-ncl+l,ndep=ndh-ndl+l; 
15 INT16 ***t; 

t=(INT16***)calloc((unsigned) (nrow+1), sizeof(INT16**)); 

if (!t) nrcrrorCallocation failure 1 in s3tcnsor()"); 

t+=l; 

20 t— nrl; 

l{nrl]=(INT16**)calloc((unsigncd) (nrow*ncol+l), sizeof(INT16*)); 
if (!t[nrl]) nrerrorfallocation failure 2 in s3tensor0"); 
t[nrl]+=l; 
25 t[nrl]-=ncl; 

t[nrl]lncl]=(INT16*)caIloc((unsigncd) (nrow*ncol*ndep+l), si2eof(INT16)); 
if (!t[nrl][ncl]) nrcrror("aliocation failure 3 in s3tcnsor0"); 
t[nrl][ncl]+=l; 
30 t[nrl][ncl]-=ndl; 

for(j=ncl+lj<=nchj4-+) t[nr110]=t[nrlj[j-l]+ndep; 

for(i=nrl+l ;i<=nrh;i+-+){ 
t[i]=t[i-I]+ncol; 
35 t[i]lncl]=t[i-l][ncl]+ncol*ndep; 

fora=nd+lJ<=nchj+-»-) t[i]U]=t[i][j-l]+ndep; 

} 


40 } 


return t; 
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5 /* FUNCTIONS : i3tensor 0 * y 

/* ~ */ 

/♦PURPOSE : Allocate an int tensor with subscript range */ 
/* t [nrl,..., nrh][ncl,..., nch][ndl,...,ndhl. */ 
/* ~ */ 

10 /* INPUT ARGUMENTS : _ (INT32) nrl. */ 
/* _ (INT32) nrh. */ 

/* _(INT32)ncl. */ 

/* _(INT32)nch. */ 

/* _(INT32)ndi. */ 

15 /* _ (INT32) ndh. */ 

/* ♦/ 

/* OUTPUT ARGUMENTS : _ None. */ 


=*/ 


/* RETURN ARGUMENTS : _ (INT32***): pointer to the allocated 
20 /* tensor. */ 


=*/ 


INT32 ***i3tensor (INT32 nrl, INT32 nrh, INT32 ncl, INT32 nch, INT32 ndl, INT32 ndh) 
{ 

25 1NT32 ij,nrow=nrh-nrl+l,ncol=nch-ncl+l,ndep=ndh-ndl+l; 

INT32 ***t; 


t=(INT32***)ca!loc((unsigned) (nrow+1), sizeof(INT32**)); 
if (!t) nrerror("allocation failure 1 in i3tensor()"); 
30 t+=l; 

t-=nrl; 

t[nrl]=(lNT32**)calloc((unsigned) (nrow*ncol+l), sizeof(INT32*)); 
if (!t[nrl]) nrcrror("allocation failure 2 in i3tensor()"); 
35 t[nrl]+=l; 

t[nrl]-=ncl; 


40 


t[nr!Jlncll=(INT32*)calloc((unsigned) (nrow*ncol*ndep+l) > sizeof(INT32)); 
if (!t[nrll[ncl]) nrerror("allocation failure 3 in i3tensor0"); 
t[nrlj[ncl]+=l; 
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t[nrl][ncl]-=ndl; 

for(j=ncl+l j<=nchJ++) t[nri][j]=l[nrl][}-l]+ndep; 
for(i=nrl+ 1 ;i<=nrh;i++){ 

t[i]=t[i-l]+ncol; 

t[i][ncl]=l[i-l][ncl]+ncoI*ndep; 

for(j=nc!+ 1 j<=nchj-H-) t[i] U ]=t[i] lj- I ]+ndcp; 

} 


10 return t; 

} 


/*-- 


15 /* 


/* FUNCTIONS : Btensor 0 *' 

/* */ 

/* PURPOSE Allocate a long tensor with subscript range */ 
/* t [nrl,. ... nrh][ncl nch][ndl,...,ndh]. */ 

20 /* */ 

/* INPUT ARGUMENTS : _ (INT32) nri. */ 
/* _ (INT32) nrh. */ 

/* _ (INT32) ncL */ 

/* _(INT32)nch. */ 

25 /* _ (INT32) ndL */ 

/* _ (INT32) ndh. */ 

/* */ 

/♦ OUTPUT ARGUMENTS : _ None. */ 
/* */ 

30 /* RETURN ARGUMENTS : _ (INT64***): pointer to the allocated */ 
/* tensor. */ 

/*============================================== 


=====*/ 


=*/ 


INT64 ***13tensor (INT32 nrl, INT32 nrh, INT32 ncl, INT32 nch, INT32 ndl, INT32 ndh) 

35 { 

INT32 ij,nrow=nrh-nrl+l,ncol=nch-ncI+l,ndep=ndh-ndl+I; 
INT64 ***t; 

t=(INT64***)calloc((unsigned) (nrow+1), sizcof(INT64**)); 
40 if (ft) nrerrorC'allocalion failure 1 in 13tensor0"); 
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t+=l; 
t— nrl; 


t[nrl]=(INT64**)calIoc((unsigned) (nrow*ncol+l), sizeof(INT64*)); 
5 if (!t(nrll) nrerror(" allocation failure 2 in 13tcnsor0 M ); 

t[nrl]+=l; 
tlnrlj— ncl; 

t[nrl][nclJ=(INT64*)calloc((unsigned) (nrow*ncol*ndep+l), sizeof(lNT64)); 
10 if (!t[nrl][ncl]) nrcrror("al location failure 3 in BtensorO"); 

l[nrl][ncl]+=l; 
tlnri][ncl]-=ndl; 


for0=ncl+lj<=nchj++) tlnrl][jH[nrl][j-l]+ndep; 
15 for(i=nrl+l;i<=nrh;i++){ 
t[i]=t[i-l]+ncol; 
t[i] f ncl]=t[i- 1 ] I ncl]+ncol*ndep; 
for(j=ncl+lj<=nchJ+-f)t[i][j]=t[i]tj-l]+ndep; 

} 


20 


return t; 


/* */ 

25 

/* FUNCTIONS : Otensor 0 *' 

/* */ 

/* PURPOSE Allocate a float tensor with subscript range */ 

30 /* t [nrl,.., nrh][ncl,..., nch][ndl,... f ndh]. */ 

/* */ 

/* INPUT ARGUMENTS : _ (INT32) nrl. */ 
/* _ (INT32) nrh. */ 

/* _(INT32)ncl. */ 

35 /* _(INT32)nch. */ 
/* _<INT32)ndl. */ 
/* _ (INT32) ndh. */ 
/* */ 

/* OUTPUT ARGUMENTS : _ None. */ 
40 /* */ 
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/* RETURN ARGUMENTS : _ (FLOAT32***): pointer lo the allocated */ 
/* tensor. */ 

5 FLOAT32 ***Dtensor (rNT32 nrl, INT32 nrh, INT32 ncl, INT32 nch, INT32 ndl, INT32 ndh) 
{ 

INT32 ij,nrow=nrh-nrl+l,ncol=nch-ncl+l,ndep=ndh-ndl+l; 
FLOAT32 ***t; 

10 t=(FLOAT32***)calloc((unsigned) (nrow+1), sizeof(FLOAT32**)); 

if (!t) nrerror( H allocation failure 1 in OtensorO"); 
t+=l; 
t-=nrl; 

15 t[nrll=(FLOAT32**)calloc((unsigncd) (nrow*ncol+l), sizeof(FLOAT32*)); 

if (!t[nrl]) nrerrorC'allocation failure 2 in OtensorO"); 
t[nrl]+=I; 
t[nrl]-=ncl; 

20 tfnrl][ncl]=(FLOAT32*)calloc((unsigned) (nrow*ncol*ndep+l), sizcof(FLOAT32)); 

if (!t[nrl][ncl]) nrcrror( M allocation failure 3 in OtensorO"); 
t[nrll[nclj+=l; 
t[nrl][ncl]~ndl; 

25 for(j=ncl+l y<=nchj++) t[nrl][j]=t[nrl]Ij-l]+ndcp; 

for(i=nrl+l;i<=nrh;i-M-){ 
t(i]=t[i-i]+ncol; 
t[i] [nd]=t[i- 1 ] [nclJ+ncol*ndep; 
for(j=ncl+l*j<=nchJ-M-) t[i](jl=tfi](j-l) + ndcp; 

30 } 

return t; 

} 


35 /* ♦/ 

/* ==== ===== === ===============^=~============^=== ____«♦/ 

/* FUNCTIONS : d3tensor 0 *> 

/* */ 

40 /* PURPOSE Allocate a double tensor with subscript range */ 
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/* t [nrl,..., nrh][ncl,..., nch][ndl t ...,ndhl. */ 

/• */ 

/♦ rNPUT ARGUMENTS : _ (INT32) nxL */ 
/* _(INT32)nrh. */ 

5 /* _(INT32)ncl. */ 

/* _(INT32)nch. */ 

/* _ (INT32) ndl. */ 

/* _(TNT32)ndh. */ 

10 /* OUTPUT ARGUMENTS : _ None. */ 

/* : */ 

/* RETURN ARGUMENTS : _ (FLOAT64***): pointer to the allocated */ 
/* tensor. */ 


15 

FLOAT64 ***d3tensor (INT32 nrl, INT32 nrh, INT32 ncl, INT32 nch, INT32 ndl, 1NT32 ndh) 
{ 

1NT32 ij,nro\v=nrh-nrl+l,ncol=nch-ncl+l,ndcp=ndh-ndl-i-l; 
FLOAT64 

20 

t=(FLOAT64***)calloc((unsigned) (nrow+1), sizeof(FLOAT64**)); 

if (!t) nrerrorO'allocation failure 1 in d3tensor0"); 

t+=l; 

t-=nrl; 

25 

t[nrl]-(FLOAT64**)calloc((unsigncd) (nrow*ncoB-l), sizeof(FLOAT64*)); 

if (!t[nrlj) nrerror( H allocalion failure 2 in d3tensor0"); 

t[nrl]+=l; 

t[nrl]-=ncl; 

30 

t[nrll[nclJ=(FLOAT64*)calIoc((unsigncd) (nrow*ncol*ndcp+l), sizeof(FLOAT64)); 

if (!t[nrl][ncl]) nrerrorrallocation failure 3 in d3tensor0"); 

l[nrl][ncl]+=l; 

t[nrl][ncl]-=ndl; 

35 

for(j=ncl+l J<=nchj-H-) t[nrl][j]=t[nrlJlj-l]+ndcp; 
for(i=nrl+l;i<=nrh;i++){ 

t[i]=t[i-l]+ncol; 

t[i][ncl]=t[i-l][ncl]+ncol*ndcp; 
40 for(j=ncl+l J<=nchy++) t[i]Ul=UUU- l J +ndc P; 
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return t; 


-*/ 


/* FUNCTIONS : free_vcctor 0 
10 /* ; 


*/ 
-*/ 


/* PURPOSE : free a float vector allocated with vector 0 */ 

/♦ */ 

/* INPUT ARGUMENTS : _ (FLOAT32*) v. */ 
/* _ (INT32) nl. */ 

15 /* _(lNT32)nh. */ 

/* */ 


/* OUTPUT ARGUMENTS : _ None. 
/* 


/* RETURN ARGUMENTS : _ None. 

20 /*=================== 


=*/ 


void free_vector( FLOAT32 *v, INT32 nl, INT32 nh) 
{ 

free((char*) (v+nl)); 

25 } 


30 /* FUNCTIONS : frcc svector 0 *' 

/* V 

/+ PURPOSE free a short vector allocated with svector ().*/ 

/* */ 

/* INPUT ARGUMENTS : _ (INT 16*) v. */ 

35 /* _(INT32)ru\ */ 
/* _ (INT32) nh. */ 
/* */ 

/* OUTPUT ARGUMENTS : _ None. */ 

/* */ 

40 /* RETURN ARGUMENTS : _ None. */ 
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void free_svector( INT16 *v, INT32 nl, INT32 nh) 


{ 

5 free((char*) (v+nl)); 

} 

/* FUNCTIONS : free ivcctor 0 *' 

/* */ 

/* PURPOSE : free an int vector allocated with ivector 0- */ 
/* */ 

15 /* INPUT ARGUMENTS : _ (INT32*) v. */ 
/* _(INT32)nl. */ 

/* _ (INT32) nh. */ 

/* */ 

/* OUTPUT ARGUMENTS : _ None. */ 

20 /* */ 

/* RETURN ARGUMENTS : _ None. */ 


void frce_ivector( INT32 *v, INT32 nl, INT32 nh) 
25 { 

free((char*) (v+nl)); 

} 


/* */ 

30 

/* FUNCTIONS : frccjvector 0 *' 

/* */ 

/* PURPOSE free a long vector allocated with Ivector 0- */ 

35 /* */ 

/* INPUT ARGUMENTS : _ (INT64*) v. */ 

/* _ (INT32) nl. */ 

/* _ (INT32) nh. */ 

/• - */ 

40 /* OUTPUT ARGUMENTS : _ None. */ 
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/* RETURN ARGUMENTS : _ None. 

/ * ====s====fSSS=3=a=sss========:= == s=M== 


=*/ 


5 void free_Ivector( INT64 *v, INT32 nl, 1NT32 nil) 
{ 

frce((char*) (v+nl)); 

} 


10 /♦ 


-*/ 


=*/ 


/* FUNCTIONS : free_dvector 0 
/* 


*/ 
-*/ 


1 5 /* PURPOSE : free a double vector allocated with dvector 0- */ 

/* */ 

/* INPUT ARGUMENTS : _ (FLOAT64*) v. */ 
/* _(INT32)nl. */ 

/* _(INT32)nh. */ 

20 /* */ 

/* OUTPUT ARGUMENTS : _ None. */ 
/* „„ */ 

/* RETURN ARGUMENTS : None. */ 


/*==== 


25 


void frcc_dvector( FLOAT64 *v, INT32 nl, INT32 nil) 
{ 

free((char*) (v+nl)); 

} 


30 


/*- 


-*/ 


/♦FUNCTIONS : free__matrix 0 
35 /* 


*/ 


/* PURPOSE : free a float matrix allocated with matrix 0 */ 
/* */ 

/* INPUT ARGUMENTS : _ (FLOAT32**) m. */ 
/* _ (INT32) nrl. */ 

40 /* _ (INT32) nrh */ 
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/* _ (INT32) ncl. */ 

/* _ (INT32) nch. */ 

/♦ */ 

/* OUTPUT ARGUMENTS : _ None. */ 

5 /♦ */ 

/* RETURN ARGUMENTS : _ None. */ 


void free_matrix( FLOAT32 **m, INT32 nrl, INT32 nrh, INT32 ncl, INT32 nch) 
10 { 

INT32 i; 

for(i=nrh;i>=nri;i-) iree((char*) (m[i]+ncl)); 
free((char*) (m+nri)); 

15 } 

/* */ 


20 /* FUNCTIONS 
/* 


free_smatrix 0 


*/ 
-V 


/* PURPOSE : free a short matrix allocated with smatrix 0 */ 
/* */ 


/* INPUT ARGUMENTS : _(INTI6**)m. 
25 /* (INT32) nrl. 
/* _ (INT32) nrh. 
/* _ (INT32) ncl. 
/* „ (INT32) nch. 
/* 


30 /* OUTPUT ARGUMENTS : _ None. 
/* 


/* RETURN ARGUMENTS : 


None. 


V 
*/ 
*/ 


-*/ 


*/ 


*/ 


35 void free_smatrix( INT16 **m, INT32 nrl, INT32 nrh, 1NT32 ncl, INT32 nch) 
{ 

INT32 i; 


40 


for(i=nrh;i>=nrl;i--) free((char*) (m[ij+ncl)); 
frcc((char*) (m-f nrl)); 
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/*-- 


♦/ 


5 /♦ ========== ========== ? =========================================== 

/* FUNCTIONS : frce dmatrix 0 *' 

/* V 

/* PURPOSE : free a double matrix allocated with dmatrix Q*/ 

/* V 

10 /* INPUT ARGUMENTS : _ (FLOAT64**) m. */ 

/* _(INT32)nrl. */ 

/* _ (INT32) nrh. */ 

/* _(INT32)ncl. */ 

/* _(INT32)nch. */ 
15 /* */ 

/* OUTPUT ARGUMENTS : _ None. */ 

/* V 

/* RETURN ARGUMENTS : _ None. ♦/ 
20 

void free_dmatrix( FLOAT64 **m, INT32 nrl, INT32 nrh, INT32 ncl, 1NT32 nch) 
{ 

INT32 i; 

25 for(i=nrh;i>=nrl;i~) free((char*) (m[i]+ncl)); 

free((char*) (m+nrl)); 

} 

/* */ 

30 

/* FUNCTIONS : freejmatrix 0 */ 

/* */ 

/* PURPOSE : free an int matrix allocated with i matrix 0 V 
35 /* */ 

/* INPUT ARGUMENTS : _ (INT32**) m. V 

/* _(INT32)nrL */ 

/* _(INT32)nrh. */ 

/* _ (INT32) ncl. */ 

40 /* _(INT32)nch. */ 
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/* OUTPUT ARGUMENTS : _ None. 


/* RETURN ARGUMENTS : _ None. 


void frce_imatrix( INT32 **m, INT32 nrl, INT32 nrh, INT32 ncl, INT32 nch) 
{ 

INT32 i; 

for(i=nrh;i>=nrI;i«) free((char*) (m[i)+ncl)); 
frcc((char*) (m+nrl)); 

} 


15 /* */ 

/♦FUNCTIONS : frec_submatrix 0 *' 
/* */ 

20 /* PURPOSE : free a float submatrix allocated with submatrix 0 */ 

/* */ 

/* INPUT ARGUMENTS : _ (FLOAT32**) b. */ 
/* _(INT32) nrl. */ 

/* _(INT32)nrh. */ 

25 /* _(INT32)ncl. */ 

/* _(INT32)nch. */ 

/* OUTPUT ARGUMENTS : _ None. */ 

/* */ 

30 /* RETURN ARGUMENTS : _ None. */ 


void free_submatrix( FLOAT32 **b, INT32 nrl, INT32 nrh, INT32 ncl, INT32 nch) 
{ 

35 free((char*) (b+nrl)); 

} 
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/* FUNCTIONS : frce_i3tensor 0 * ! 

/♦ */ 

/* PURPOSE : free an int Icnsor allocated with i3tensor 0- */ 

/* */ 

5 /* INPUT ARGUMENTS : _ (INT32***) t. ■*/ 

/* _(INT32)nrl. */ 

/* _ (INT32) nrh. */ 

/* _ (INT32) ncl. */ 

/* _ (INT32) nch. */ 

10 /* _ (INT32) ndl. */ 

/* _ (INT32) ndh. */ 

/* */ 

/* OUTPUT ARGUMENTS : _ None. */ 

/♦ */ 

15 /* RETURN ARGUMENTS : _ None. */ 

void frcc_i3tensor(INT32 ***t, INT32 nrl, INT32 nrh, INT32 ncl, TNT32 nch, INT32 ndl, INT32 ndh) 
{ 

20 free((char*) (tlnrl][ncl]+ndl-l)); 

free((char*) (t[nrll+ncl-l)); 
frec((char*) (t+nrl-1)); 

} 

25 /* */ 


/*= 


/* FUNCTIONS : free_s3tensor 0 *' 
/♦ */ 

30 /* PURPOSE : free a short tensor allocated with s3tcnsor Q. */ 

/♦ */ 

/* INPUT ARGUMENTS : _ (INT16***) t. */ 
/* _ (INT32) nrl. */ 

/* (INT32) nrh. */ 

35 /* _(INT32)ncl. */ 
/* _ (INT32) nch. */ 
/* _ (INT32) ndl. */ 
/* _ (INT32) ndh. */ 
/* ♦/ 

40 /* OUTPUT ARGUMENTS : _ None. */ 
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/* ~ */ 

/* RETURN ARGUMENTS : _ None. */ 

5 void frcc_s3tensor(INT16 ***t, INT32 nrl, INT32 nrh, INT32 ncl, INT32 nch, INT32 ndl, rNT32 ndh) 
{ 

free((char*) (t[nrl][nclj+ndl-l)); 
free((char*) (t[nri]+ncl-l)); 
free((char*) (t+nrl-I)); 

10 } 


/*================================================-==================*/ 

15 /* FUNCTIONS : free_I3 tensor 0 

/* - */ 

/+ PURPOSE : free a long tensor allocated with 13tensor 0* */ 

/* V 

/* INPUT ARGUMENTS : _ (INT64***) t */ 
20 /* (INT32) nrl. */ 

/* _(INT32) nrh. */ 

/* _ (INT32) ncl. */ 

/* _(INT32)nch. */ 

/* _(INT32)ndl. */. 

25 /* _ (INT32) ndh. */ 

/* */ 

/* OUTPUT ARGUMENTS : _ None. */ 

/* */ 

/* RETURN ARGUMENTS : _ None. */ 

30 /*================================^ 


void freeJ3tensor(INT64 INT32 nrl, INT32 nrh, INT32 ncl, INT32 nch, INT32 ndl, 1NT32 ndh) 
{ 

free((char*) (tlnrl][ncll+ndl-l)); 
35 free((char*) (t[nrl]+ncl-l)); 

frec((char*) (t+nrl-1)); 

} 

/* */ 

40 
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= */ 


/* FUNCTIONS : free O tensor 0 *' 

/* */ 

/* PURPOSE : free a float tensor allocated with Gtensor 0* */ 
5 /* */ 


/* 

INPUT ARGUMENTS : _ (FLOAT32***) t. 


/* 

_ (INT32) nil. 

*/ 

/* 

_ (INT32) nrh. 

*/ 

/♦ 

_ (INT32) ncl. 

*/ 

10 /* 

(INT32) nch. 

*/ 

/* 

_ (INT32) ndl. 

*/ 

/* 

_ (INT32) ndh. 

*/ 

/*■ 




-*/ 


/* OUTPUT ARGUMENTS : _ None. */ 

15 /* */ 

/* RETURN ARGUMENTS : _ None. */ 


void free_f3tensor(FLOAT32 ***t, INT32 nrl, TNT32 nrh, 1NT32 ncl, INT32 nch, 1NT32 ndl, INT32 ndh) 
20 { 

free((char*) (t[nrl][ncl]+ndl-l)); 
free((char*) (t[nrl]+ncl-l)); 
rxee((char*) (t+nrl-l)); 

> 

25 

/* */ 


/* FUNCTIONS : free_d3tensor 0 +/ 

30 /* */ 

/* PURPOSE : free a double tensor allocated with d3tcnsor 0- */ 
/* */ 

*/ 


/* 

INPUT ARGUMENTS : _ (FLOAT64***) t. 


/* 

_(INT32) nrl. 

*/ 

35 /* 

_(TNT32) nrh. 

*/ 

/* 

_ (INT32) ncl. 

*/ 

/* 

_(INT32) nch. 

*/ 

/* 

_ (INT32) ndl. 

*/ 

/* 

_(INT32) ndh. 

*/ 

40 /*■ 




-*/ 
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/* OUTPUT ARGUMENTS : _ None. 
/* 


*/ 


-*/ 


/* RETURN ARGUMENTS : _ None. 


=*/ 


10 


void free_d3tensor(FLOAT64 ***t, INT32 nrl, INT32 nrh, 1NT32 ncl, rNT32 nch, INT32 ndl, INT32 ndh) 
{ 

free((char*) (t[nrl][ncl]+ndl-l)); 
free((char*) (t[nrl]+ncl-l)); 
free((char*) (t+nxl-1)); 

> 


-*/ 


15 /* 


==*/ 


/* FUNCTIONS . : convcrt_matrix 0 
/* 


/* PURPOSE : allocate a float matrix m[nrl,...,nrh][ncl,...,nch] */ 
/* that points to the matrix declared in the standard */ 
20 /* C manner as a[nrow][ncol], where nrow=nrh-nrI+l and */ 
/* ncol=nch-ncl+l. The routine should be called with */ 
/* die address &a[0][0] as the first argument. */ 
/* */ 


/* INPUT ARGUMENTS : _ (FLOAT32*) a. 
25 /* _(INT32)nrl. 
/* _ (INT32) nrh. 
/* _ (INT32) ncl. 
/* _(INT32)nch. 
/* 


*/ 


*/ 
V 

*/ 
*/ 


30 /* OUTPUT ARGUMENTS 
/♦ 


None. 


*/ 


/* RETURN ARGUMENTS 
/* rows. 


(FLOAT32**) pointer to array of pointers to */ 


35 


FLOAT32 **convert_matrix( FLOAT32 *a, INT32 nrl, INT32 nrh, INT32 ncl, INT32 nch) 
{ 

INT32 i j,nrow,ncol; 
FLOAT32 **m; 


40 
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nrow=nrh-nrl+ 1 ; 
ncoI=nch-ncl+l; 

m = (FLOAT32 **) calloc((unsigncd) (nrow),sizcof(FLOAT32*)); 
if (!m) nrcrror("allocation failure in convert__^nat^ix() ,, ); 
m -= nrl; 

foKi=Oj=nrI;i<=nrow-l;i++J++) m[j]=a+ncol*i-ncl; 
return m; 


10 /*- 


/* FUNCTIONS : frec_convert_matrix 0 *' 

/* _*/ 

15 /* PURPOSE : free a matrix allocated by convcrt_matrix 0- */ 
/* . */ 


/* INPUT ARGUMENTS : _ (FLOAT32**) b. 

/* _(INT32)nrl. */ 

/* _ (INT32) nrh. */ 

20 /* _(INT32)ncl. */ 

/* _(INT32)nch. */ 

/* V 

/* OUTPUT ARGUMENTS : _ None. 

/* V 

25 /* RETURN ARGUMENTS : _ None. 


*/ 


*/ 


======*/ 


void frcc_convert_malrix( FLOAT32 **b, INT32 nrl, INT32 nrh, INT32 ncl, INT32 nch) 
{ 

30 frcc((char*) (b+nrl)); 

} 


/*- 


-*/ 


35 


/*== 


/+ FUNCTIONS 
/* 


pdvector 0 


-*/ 


/* PURPOSE Allocate a double a vector of pointers to */ 

40 /* double datawith subscript range */ 


=====*/ 


H3DOCID. ?WO J.> 
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/*- 


v Inl, nh). 


*/ 


843 


/* INPUT ARGUMENTS : _ (INT32) nl. 
/* _ (INT32) nh. 
5 /* 


-*/ 


*/ 


*/ 


-*/ 


10 


/* OUTPUT ARGUMENTS : _ None. 

/* 

/* RETURN ARGUMENTS : _ (FLOAT64*): pointer to the allocated vector.*/ 

FLOAT64 **pdvector( INT32 nl, INT32 nh ) 
{ 

FLOAT64 **v; 


15 


= (FLOAT64 *•) calloc((unsigned) (nh-nl+1), sizcof(FLOAT64 *)); 


20 


if (!v) nrerrorO'ailocation failure in pdvectorCf); 


/*- 


return v-nl; 


25 /*- 

} 


-*/ 


30 /*= 


/* FUNCTIONS : free_pdvector 0 
/* 


*/ 


-♦/ 


/* PURPOSE : free a vector of pointer to double allocated */ 

/* with pdvector 0- 
35 /* 

/* INPUT ARGUMENTS : __ (FLOAT64 **) v. 

/* _(INT32 )nl. */ 

/* _ (INT32 ) nh. 

/* 

40 /* OUTPUT ARGUMENTS : _ None. 


*/ 
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— */ 


/* RETURN ARGUMENTS : _ None. 

/*=========================== 


=*/ 


5 void frec_pdvector( FLOAT64 **v, INT32 nl, 1NT32 nh) 
{ 

/* 


10 


/*- 

20 


free((char*) (v+nl)); 


/*- 


return; 


15 /*- 
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-*/ 


-*/ 


/* END ■ 

/*========== ============== 
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/* Conexant System Inc. 
5 /* 43 1 1 Jamboree Road 
/* Newport Beach, CA 92660 
/*. 


=*/ 


*/ 


/* Copyright(C) 2000 Conexant System Inc. 
/♦ 


*/ 
-*/ 

-*/ 


10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 


15 /* PROTOYPE FILE: mcutil.h 


*/ 


/*- 
/*- 
20 /*- 


FUNCTIONS 


-*/ 


-*/ 


void nrerror 
INT 16 *svector 
FLOAT32 * vector 

25 INT32 *ivcctor 
INT64 *1 vector 


(char [J ); 

( INT32, INT32 ); 


(INT32, INT32 ); 


( 1NT32, INT32 ); 
( INT32, INT32 ); 


FLOAT64 *dvcctor 

FLOAT32 ** matrix 

INT 16 **smatrix 
30 FLOAT64 **dmatrix 

INT32 **imatrix 

FLOAT32 **submatrix 

INT 16 ***s3 tensor 

INT32 ***i3tensor 
35 INT64 ***13tensor 

FLO AT3 2 * * * £3 tensor 

FLOAT64 ***d3 tensor 

void free_yector 

void free_svector 
40 void free ivector 


( INT32, INT32 ); 

( INT32, INT32, INT32, INT32 ); 
( INT32, INT32, INT32, INT32 ); 

( INT32, INT32, INT32, INT32 ); 
( INT32, INT32, INT32, INT32 ); 

( FLOAT32 **, INT32, INT32, INT32, INT32, INT32 ); 
( INT32, INT32, INT32, INT32, INT32, INT32 ); 
( INT32, INT32, INT32, INT32, INT32, INT32 ); 
( INT32, INT32, INT32, INT32, INT32, INT32 ); 

( INT32, INT32, INT32, INT32, INT32, INT32 ); 

( INT32, INT32, INT32, INT32, INT32, INT32 ); 
( FLOAT32 *, INT32, INT32 ); 
( INT16 *, INT32, INT32 ); 
( INT32 * t INT32, INT32 ); 
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void 

free 

Ivcctor 

( INT64 +, INT32, INT32 ); 

void 

free 

dveclor 

( FLOAT64 *, INT32, INT32 ); 

void 

free_ 

matrix 

( FLOAT32 **, INT32, INT32, INT32, INT32 ); 

void 

free_ 

smatrix 

( INT16 **, INT32, INT32, INT32, INT32 ); 

5 void 

free 

dmatrix 

( FLOAT64 **, INT32, INT32, INT32, INT32 ); 

void 

free 

i matrix 

( rNT32 **, INT32, INT32, INT32, INT32 ); 

void 

free 

sub matrix 

( FLOAT32 **, INT32, INT32, INT32, INT32 ); 

void 

free_ 

_i3tensor 

( INT32 ***t , INT32, INT32, 1NT32, INT32, INT32, INT32 ); 

void 

free 

_s3tensor 

( INT16 ***t , INT32, INT32, INT32, INT32, INT32, INT32 ); 

10 void 

free 

_13tensor 

( INT64 ***t t INT32, INT32, INT32, 1NT32, INT32, INT32 ); 

void 

free_ 

f3 tensor 

( FLOAT32 ***t , INT32, INT32, INT32, INT32, INT32, INT32 ); 

void 

free 

d3 tensor 

( FLOAT64 INT32, INT32, INT32, INT32, INT32, INT32 ); 


FLOAT32 **convcrt_malrix( FLOAT32 * t INT32, INT32, 1NT32, INT32 ); 

15 void free convert_matrix ( FLOAT32 **, INT32, INT32, INT32, INT32 ); 

FLOAT64 **pdvector ( INT32, INT32 ); 

void free_pdvector ( FLOAT64 **, 1NT32, TNT32 ); 

20 /* ss =====^======^^ 

/* END */ 
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/* Conexant System Inc. */ 
5 /* 43 1 1 Jamboree Road */ 
/* Newport Beach, CA 92660 */ 

/* : V 

/* Copyright(C) 2000 Conexant System Inc. */ 

/* V 

10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

15 /* FILE: typedef. h */ 


#if definedC_BORLANDC__3 || defined C_WATCOMC_) || dcfincdCMSC_VER) || defined(_ZTC_J || 
20 defined(_HIGHC_) || defined C_CYGWIN32_) 

typedef long intINT64; 

typedef long intINT32; 

typedef short int INT16; 

typedef unsigned short int UNS_INT16; 
25 typedef short int FLAG; 

typedef double FLOAT64; 

typedef float FLO AT3 2 ; 

#elif defined( sun) 

typedef long INT64 ; 
30 typedef long INT32; 

typedef short INT16; 

typedef unsigned short UNS_INT16; 

typedef int FLAG; 

typedef double FLOAT64; 
35 typedef float FLOAT32; 

#clif defined( unix ) || defined( unix) 

typedef long INT64 ; 

typedef int 1NT32; 

typedef short INT 16; 
40 typedef unsigned short UNSINTI6; 
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typcdef int FLAG; 
typedef double FLOAT64; 
typedcf float FLOAT32; 
#clif dcfined(VMS) || defined(_VMS) 
5 typedeflong INT64; 
typedef long INT32; 
typedef short INT16; 
typedef unsigned short UNS_INT16; 
typedef int FLAG; 
10 typedef double FLO AT64; 
typedef float FLOAT32; 
#else 

#error COMPILER NOT TESTED typedef. h needs to be updated, sec readme 
#endif 

15 

/* . END */ 
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APPENDIX B 
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/* Conexant System Inc. */ 
5 /* 43 1 1 Jamboree Road */ 
/* Newport Beach, CA 92660 */ 
/♦ */ 

/* Copyright(C) 2000 Conexant System Inc. */ 

/♦ */ 

10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

15 /* LIBRARY: gain_vq.tab */ 


/* */ 

/* TABLES */ 

20 /* */ 


/*= 


25 /* Conexant System Inc. */ 
/* 4311 Jamboree Road */ 
/* Newport Beach, CA 92660 */ 

/* */ 

/* Copyright(C) 2000 Conexant System Inc. */ 

30 /* */ 

/+ ALL RIGHTS RESERVED: */ 
/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

35 /*==========—=================================== 


/♦FILE: FLOAT64 gp4_tab */ 


40 FLOAT64 gp4__tab[TAB_SIZE_GVQ_4D][GVQ - VEC_SIZE_4D]={ 
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0.60699869, 

0.59090763, 

0.64920781, 

851 

0.64610492}, 


0.68101613, 

0.65403889, 

0.64210982, 

0.63130892}, 


0.63010482, 

0.56235514, 

0.65643759, 

0.75672188}, 


0.68659859, 

0.57330071, 

0.58744429, 

0.81576573}, 

5 { 

0.64851060, 

0.64851060, 

0.71451327, 

0.71451327}, 


0.77682415, 

0.68550346, 

0.63967832, 

0.64221364}, 


0.60611942, 

0.63785293, 

0.74037768, 

0.76724979}, 


0.70282156, 

0.70854395, 

0.71397421, 

0.70622913}, 


0.60640355, 

0.64369532, 

0.78733321, 

0.81281683}, 

10 { 

0.79313256, 

0.75678142, 

0.67673117, 

0.64600357}, 


0.78871769, 

0.78871769, 

0.67719160, 

0.67719160}, 


0.78750339, 

0.65818283, 

0.74410403, 

0.76624484}, 


0.68666216, 

0.71349168, 

0.80131080, 

0.81487027}, 


0.81564295, 

0.77007419, 

0.73645773, 

0.73009256}, 

15 { 

0.87690114, 

0.83990779, 

0.69391460, 

0.62411652}, 


0.78900835, 

0.72676490, 

0.88398786, 

0.66963377}, 


0.93272369, 

0.74226864, 

0.62990265, 

0.75901092}, 


0.76976621, 

0.76976621, 

0.78405048, 

0.78405048}, 


0.87041644, 

0.83542384, 

0.72726860, 

0.65975429}, 

20 { 

0.98828812, 

0.57828812, 

0.70041292, 

0.80041292}, 


0.78642005, 

0.77917927, 

0.79153969, 

0.78921747}, 


0.72998353, 

0.72998353, 

0.80237917, 

0.88237917}, 


0.84850899, 

0.79316290, 

0.76406702, 

0.74795323}, 


0.86473350, 

0.82733618, 

0.78603639, 

0.77772334}, 

25 { 

0.86598073, 

0.86598073, 

0.76672185, 

0.76672185}, 


0.75717804, 

0.76443058, 

0.87026008, 

0.89448642}, 


0.82990895, 

0.82866571, 

0.84344056, 

0.84482601}, 


0.73643129, 

0.73643129, 

0.93179791, 

0.93179791}, 


0.84091377, 

0.84091377, 

0.84549563, 

0.84549563}, 

30 { 

0.96705390, 

0.93530253, 

0.75329477, 

0.70990139}, 


0.82417511, 

0.88417511, 

0.90242800, 

0.78242800}, 


0.90565081, 

1.00565081, 

0.73784063, 

0.73784063}, 


0.93696854, 

0.89908568, 

0.80488500, 

0.76745989}, 


0.88864729, 

0.87038965, 

0.85073556, 

0.84218753}, 

35 { 

0.91005475, 

0.86005510, 

0.85177958, 

0.84228257}, 


0.73978618, 

0.82370630, 

0.94989275, 

0.95972113}, 


0.90821062, 

0.90821062, 

0.84367096, 

0.84367096}, 


0.82123084, 

0.84572475, 

0.91624881, 

0.93452704}, 


0.84262163, 

0.90568020, 

1.05247535, 

0.73518775}, 

40 { 

0.89073030, 

0.89054064, 

0.90204609, 

0.90276521}, 
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20 


0.93915442, 
0.94939652, 
1.02270617, 
1.06002553, 
0.97983378, 
0.93569159, 
1.01454689, 
0.90992070, 
0.88442519, 
0.84818392, 
0.97346962, 
0.97243125, 
1.10743055, 
1.08620375, 
1.01282321, 
1.13502856, 
0.95295916, 
1.03699487, 
0.93430309, 
1.10604686, 
1.04618964, 
1.13404806, 
1.04548516, 
1.18984056, 


0.91935059, 
0.86939652, 
0.90270617, 
0.97431233, 
0.97983378, 
0.93248467, 
0.97991575, 
0.90992070, 
0.91454256, 
0.87818392, 
0.96872528, 
0.97243125, 
0.93511480, 
1.04782334, 
1.01771063, 
1.06918208, 
0.98532512, 
1.03699487, 
0.93430309, 
1.08604686, 
1.07135141, 
1.11671807, 
1.11455931, 
1.19371846, 


0.88462629, 
1.02255193, 
0.75324621, 
0.80897117, 
0.87774763, 
0.93336567, 
0.89630971, 
0.98329006, 
0.99448626, 
1.06200101, 
0.96372065, 
0.96175669, 
0.94874981, 
0.98763661, 
1.03454061, 
0.95687290, 
1.09705441, 
1.05224994, 
1.15479496, 
1.00380677, 
L 13934841, 
1.10434958, 
1.17914527, 
1.19065201, 


852 
0.87035097} 

0.76255193} 

0.95324621} 

0.78133585} 

0.87774763} 

0.93152706} 

0.86870634} 

0.98329006} 

1.00440409} 

1.00200101} 

0.95989277} 

0.96175669} 

0.94701072} 

0.96029488} 

1.02876771} 

0.92553343} 

1.11982849} 

1.05224994} 

1.15479496} 

1.01380677} 

1.12350107} 

1.07915085} 

1.18008965} 

1.18269596} 


25 
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/l|t=======r========r= ========:===:======= 

/* Conexant System Inc. *' 
/* 43 1 1 Jamboree Road */ 

5 /* Newport Beach, CA 92660 */ 

/♦ .- */ 

/* Copyrighl(C) 2000 Conexant System Inc. */ 

/* */ 

/* ALL RIGHTS RESERVED: */ 

10 /* No part of this software may be reproduced in any form or by any */ 
/♦ means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

/♦FILE: FLOAT64 gainVQ_4_1024 •/ 

1 5 /*=====-============-====================== := = ======= 


==*/ 


FLOAT64 gainV(^4_1024[MSMAX_4_1024][GVQ_VEC..SIZE_4Dl= { 



0.32430000, 

0.14200000, 

0.08030000, 

0.05200000}, 

20 { 

0.36890000, 

0.29580000, 

0.19540000, 

0.20130000}, 


0.44279383, 

0.24252909, 

0.20377341, 

0.17139738}, 


0.51880000, 

0.18810000, 

0.13810000, 

0.09180000}, 


0.45280000, 

0.35830000, 

0.26890000, 

0.23960000}, 


0.29830000, 

0.31750000, 

0.37570000, 

0.40950000}, 

25 { 

0.69840000, 

0.17180000, 

0.11820000, 

0.07790000}, 


0.67440000, 

0.31330000, 

0.27020000, 

0.22210000}, 


0.37190000, 

0.55970000, 

0.40410000, 

0.42710000}, 


0.60470000, 

0.47560000, 

0.33640000, 

0.31260000}, 


0.44840000, 

0.41050000, 

0.52590000, 

0.40260000}, 

30 { 

0.85080000, 

0.26840000, 

0.22640000, 

0.15330000}, 


0.22760000, 

0.51290000, 

0.47640000, 

0.63220000}, 


0.38560000, 

0.29260000, 

0.65040000, 

0.58390000}, 


0.78280000, 

0.33410000, 

0.33740000, 

0.46220000}, 


0.60340000, 

0.67610000, 

0.39840000, 

0.31230000}, 

35 { 

1.02390000, 

0.18590000, 

0.12790000, 

0.06950000}, 


0.60076348, 

0,54890494, 

0.49683860, 

0.46659198}, 


0.77820000, 

0.47490000, 

0.50310000, 

0.32480000}, 


0.61880000, 

0.56990000, 

0.54730000, 

0.50080000}, 


0.95840000, 

0.42240000, 

0.33690000, 

0.23270000}, 

40 { 

1.06343087, 

0.38532917, 

0.30216593, 

0.23571217}, 
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15 


20 


25 


30 


35 


40 


1.12280000, 
0.57490000, 
0.29490000, 
0.81590000, 
0.79240000, 
0.62280000, 
0.71130000, 
1.05480000, 
1.02600000, 
0.51780000, 
0.51250000, 
1.10550000, 
0.68250000, 
1.26220000, 
1.29670000, 
0.71590000, 
0.90340000, 
0.94510000, 
0.27540000, 
1.12840000, 
0.18930000, 
0.64500000, 
0.20740000, 
1.47870000, 
0.47060000, 
0.67860000, 
0.96731581, 
1.35010000, 
1.35030000, 
0.61140764, 
0.77440000, 
1.05750000, 
1.42720000, 
1.41080000, 
1.30280000, 
0.86310000, 
1.35490000, 
1.29950000, 
1.18350000, 
0.96680000, 


0.32130000, 
0.48290000, 
0.65830000, 
0.42290000, 
0.70420000, 
0.93010000, 
0.86330000, 
0.33040000, 
0.62390000, 
0.85420000, 
0.62920000, 
0.47540000, 
0.62950000, 
0.37640000, 
0.44760000, 
0.73030000, 
0.53960000, 
0.75910000, 
0.71640000, 
0.55510000, 
0.48280000, 
0.62070000, 
0.50100000, 
0.23150000, 
0.86040000, 
1.12680000, 
0.75394827, 
0.45980000, 
0.45470000, 
0.86453614, 
0.93360000, 
0.63760000, 
0.51010000, 
0.63500000, 
0.60240000, 
0.59840000, 
0.60220000, 
0.26780000, 
0.90230000, 
0.76470000, 


0.20780000, 
0.51640000, 
0.67120000, 
0.69880000, 
0.39600000, 
0.45110000, 
0.55250000, 
0.51770000, 
0.40110000, 
0.57490000, 
0.86850000, 
0.42340000, 
0.90900000, 
0.34070000, 
0.23550000, 
0.74280000, 
0.70500000, 
0.56230000, 
0.60050000, 
0.69720000, 
0.78730000, 
0.64830000, 
0.81480000, 
0.16690000, 
0.80580000, 
0.50270000, 
0.71442682, 
0.58980000, 
0.60810000, 
0.79724552, 
0.81210000, 
0.90530000, 
0.36410000, 
0.32840000, 
0.50470000, 
0.85430000, 
0.61180000, 
0.90600000, 
0.53350000, 
0.65440000, 


854 
0.16830000} 

0.80480000} 

0.72950000} 

0.44790000} 

0.50570000} 

0.40340000} 

0.30600000} 

0.40970000} 

0.25760000} 

0.58740000} 

0.64200000} 

0.45950000} 

0.41490000} 

0.22520000} 

0.10650000} 

0.64590000} 

0.64130000} 

0.50030000} 

1.09140000} 

0.34280000} 

1.14680000} 

1.01460000} 

1.14820000} 

0.13280000} 

0.88090000} 

0.63850000} 

0.61492700} 

0.11360000} 

0.12860000} 

0.82890012} 

0.57180000} 

0.39800000} 

0.28800000} 

0.15920000} 

0.48850000} 

0.85140000} 

0.14980000} 

0.29370000} 

0.43230000} 

0.88850000} 
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1.38390000, 

0.71660000, 

O.565O0000, 

0.18200000}, 


1.44150000, 

0.63080000, 

O.468OO000, 

0.39010000}, 


1.65950000, 

0.27920000, 

0.23040000, 

0.12250000}, 


0.44480000, 

1.19650000, 

0.69940000, 

0.91650000}, 

5 { 

0.68310000, 

0.95110000, 

0.98140000, 

0.80990000}, 


0.69990000, 

0.71050000, 

1.21380000, 

0.74870000}, 


1.22750000, 

0.82230000, 

0.78270000, 

0.50450000}, 


1.50050000, 

0.59740000, 

0.59240000, 

0.33230000}, 


1.45128760, 

0.70277760, 

0.57587383, 

0.47212700}, 

10 { 

1.13050000, 

0.70160000, 

1.01710000, 

0.59460000}, 


1.14200000, 

1.01440000, 

0.63490000, 

0.66370000}, 


0.86640000, 

1.00810000, 

0.744 10000, 

0.97030000}, 


0.44500000, 

0.77610000, 

0.89920000, 

1.30200000}, 


0.91890000, 

0.76170000, 

1.02990000, 

0.92350000}, 

15 { 

0.37840000, 

0.95900000, 

1.06580000, 

1.12020000}, 


1.58210000, 

0.73680000, 

0.43700000, 

0.48940000}, 


0.85980000, 

0.65090000, 

O.557O0O00, 

1.42030000}, 


1.70680000, 

0.61080000, 

0.38940000, 

0.27490000}, 


0.49260000, 

1.05000000, 

0.77620000, 

1.26730000}, 

20 { 

0.93960000, 

1.25930000, 

0.88510000, 

0.55820000}, 


0.50170000, 

1.05780000, 

1.38500000, 

0.59250000}, 


1.06890000, 

1.05570000, 

0.94840000, 

0.71110000}, 


1.53540000, 

0.60810000, 

. 0.70450000, 

0.68800000}, 


0.52570774, 

0.88028826, 

0.98275945, 

1.30471831}, 

25 { 

0.95020000, 

1.23000000, 

0.70460000, 

0.90070000}, 


1.85160000, 

0.37420000, 

0.37290000, 

0.19740000}, 


1.86507422, 

0.42602318, 

0.33349988, 

0.23033006}, 


1.25050000, 

0.69770000, 

0.78500000, 

1.08440000}, 


0.52900000, 

1.32630000, 

1.00830000, 

0.92290000}, 

30 { 

1 19690000, 

1.35160000, 

0.70440000, 

0.47200000}, 


0.80740000, 

0.66150000, 

1.07080000, 

L33480000}, 


1.27090000, 

0.89000000, 

1.064 10000, 

0.72190000}, 


0.95280000, 

0.9372OOOO, 

1.375O0O00, 

0.64020000}, 


0.78310000, 

0.92700000, 

1.39300000, 

0.85560000}, 

35 { 

0.88230000, 

1.10330000, 

0.98310000, 

L 12380000}, 


1.08538360, 

1.26958825, 

0.91376555, 

0.82118439}, 


0.64900000, 

1.09760000, 

0.85080000, 

1.39930000}, 


0.53500000, 

0.84810000, 

1.35170000, 

1.21860000}, 


1.92030000, 

0.48420000, 

0.55650000, 

0.38520000}, 

40 { 

0.80070000, 

1.37500000, 

1.17260000, 

0.74470000}, 
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1.63540000, 

0.74520000, 

0.83340000, 

0.80460000}, 


1.12160000, 

0.81130000, 

1.27270000, 

1.01790000}, 


0.79188218, 

0.96816938, 

1.40843300, 

1.01964496}, 


1.37600000, 

0.99530000, 

0.78270000, 

1.05730000}, 

5 { 

1.08890000, 

1.17530000, 

1.17350000, 

0.82630000}, 


1.88390000, 

0.64200000, 

0.55420000, 

0.62580000}, 


1.00670000, 

L03950000, 

1.43910000, 

0.71870000}, 


0.51050000, 

1.25330000, 

1.23130000, 

1.16600000}, 


1.77890000, 

0.88140000, 

0. 70760000, 

0.53880000}, 

10 { 

1.53260000, 

1.17190000, 

0.72100000, 

0.75600000}, 


0.96260000, 

1.10560000, 

1.16360000, 

1.17150000}, 


1.25210000, 

1.35480000, 

0.75350000, 

0.96460000}, 


0.33240000, 

0.71980000, 

0.92090000, 

1.85140000}, 


1.52927093, 

0.94387728, 

0.98718908, 

0.86465217}, 

15 { 

0.64397105, 

1.46149914, 

1.05233363, 

1.15080731}, 


1.09258166, 

1.02600551, 

1.01307653, 

1.31767539}, 


2.19580000, 

0.34580000, 

0.20740000, 

0.16710000}, 


0.88180000, 

1.46700000, 

0.90060000, 

1.13530000}, 


0.25120000, 

0.97960000, . 

L20O3O0OO, 

1.66510000}, 

20 { 

1.33380000, 

1.14500000, 

1.21420000, 

0.82470000}, 


0.82950000, 

0.99190000, 

1.07290000, 

1.57270000}, 


0.61390000, 

1.55190000, 

0.97270000, 

1.26230000}, 


0.62410000, 

0.95810000, 

1.63870000, 

1.17470000}, 


0.61080000, 

1.94840000, 

0.85150000, 

0.73860000}, 

25 { 

1.15510000, 

1.46050000, 

1.16890000, 

0.82670000}, 


1.24210000, 

1.15240000, 

0.87600000, 

1.37610000}, 


1.14580000, 

1.48500000, 

1.15940000, 

0.82150000}, 


1.15560000, 

1.49260000, 

1.16800000, 

0.80390000}, 


1.39280000, 

0.85790000, 

1.39110000, 

1.03370000}, 

30 { 

0.99230000, 

1.16470000, 

1.51240000, 

1.02880000}, 


0.77640000, 

1.37070000, 

1.29010000, 

1.25970000}, 


1.98670000, 

1.04510000, 

0.75130000, 

O.49690000}, 


1.45950000, 

1.55160000, 

1.06300000, 

0.50150000}, 


0.50750000, 

1.29680000, 

1.35350000, 

1.48850000}, 

35 { 

0.59059745, 

1.09122768, 

1.02782035, 

1.86392129}, 


0.34540000, 

0.94370000, 

0.87040000, 

2.08760000}, 


0.45610000, 

1.40740000, 

0.92180000, 

1.77210000}, 


1.75360000, 

1.24960000, 

0.94140000, 

0.82600000}, 


0.99480000, 

1.64830000, 

1.30450000, 

0.92420000}, 

40 { 

0.25740000, 

1.40250000, 

0.87890000, 

1.85970000}, 
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0.48270000, 

0.85850000, 

1.53020000, 

1.72520000}, 


0.80110000, 

1.29470000, 

1.25350000, 

1.55500000}, 


1.14950000, 

1.79370000, 

0.87410000, 

1.02120000}, 


1.60460000, 

0.83720000, 

0.97480000, 

1.45660000}, 

5 { 

2.20380000, 

0.99360000, 

0.62840000, 

0.41190000}, 


2.06250000, 

0.78580000, 

0.94360000, 

0.83700000}, 


1.44230000, 

1.23800000, 

1.18820000, 

1.20860000}, 


1.85530000, 

0.96690000, 

0.99110000, 

1.07500000}, 


2.16456006, 

0.95165953, 

0.75498856, 

0.64325462}, 

10 { 

1.09320000, 

1.32460000, 

1.35680000, 

1.33920000}, 


2.36170000, 

0.75890000, 

0.50860000, 

0.48350000}, 


0.60630000, 

L70 190000, 

1.23140000, 

1.38980000}, 


0.50230000, 

1.19030000, 

1.25370000, 

1.86460000}, 


0.99930000, 

1.02630000, 

1.00470000, 

1.91350000}, 

15 { 

2.50910000, 

0.51800000, 

0.39210000, 

0.26440000}, 


0.78960000, 

1.21760000, 

1.93660000, 

0.96840000}, 


1.09740000, 

1.33800000, 

1.15750000, 

1.59900000}, 


0.71933291, 

1.26280819, 

1.52180112, 

1.58702691}, 


1.04546726, 

1.64917411, 

1.40294177, 

1.17052588}, 

20 { 

1.34690000, 

1.65670000, 

1.03860000, 

1.31610000}, 


0.50090000, 

1.30040000, 

1.57560000, 

1.71970000}, 


2.56780000, 

0.30520000, 

0.64210000, 

0.61340000}, 


0.31740000, 

1.37100000, 

1.85150000, 

1.44820000}, 


0.63090000, 

1.39620000, 

1.79550000, 

1.43480000}, 

25 { 

1.40330859, 

1.13498021, 

1.62829863, 

1.31339665}, 


2.69822802, 

0.53749854, 

0.40876870, 

0.30352964}, 


2.78430000, 

0.22190000, 

0.20170000, 

0.12030000}, 


1.70740000, 

1.07100000, 

1.51480000, 

1.24820000}, 


0.64810000, 

1.43980000, 

1.06370000, 

2.08260000}, 

30 { 

1.09190000, 

0.93920000, 

1.34240000, 

2.03280000}, 


2.00280000, 

1.22590000, 

1.13890000, 

1.10010000}, 


1.15600000, 

1.10170000, 

1.83630000, 

1.46950000}, 


0.36520000, 

1.11520000, 

1.31280000, 

2.24210000}, 


0.62980000, 

1.79830000, 

1.12150000, 

1.80860000}, 

35 { 

1.67550000, 

1.63840000, 

1.32570000, 

1.07460000}, 


0.26770000, 

1.28180000, 

0.18830000, 

2.58420000}, 


2.05420000, 

1.33040000, 

1.33120000, 

0.81850000}, 


0.36900000, 

1.54200000, 

1.30330000, 

2.05770000}, 


1.53350000, 

1.44230000, 

1.51650000, 

1.33600000}, 

40 { 

0.92410000, 

1.48880000, 

1.64380000, 

1.65800000}, 
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1.32010000, 

1.46880000, 

1.46620000, 

1.60380000}, 


0.84550000, 

1.25590000, 

1.59020000, 

1.95220000}, 


2.20280000, 

0.62690000, 

1.38210000, 

1.23260000}, 


2.62860000, 

0.86670000, 

0.84090000, 

0.55930000}, 

5 { 

1.74521323, 

1.68473201, 

1.17310799, 

1.19609837}, 


L51660000, 

1.31360000, 

1.88260000, 

1.06480000}, 


0.79670000, 

1.90030000, 

1.73850000, 

1.19910000}, 


0.98680000, 

1.96410000, 

1.16900000, 

1.58870000}, 


2.49300000, 

0.93570000, 

0.82930000, 

0.99100000}, 

10 { 

1.03560000, 

2.49260000, 

0.94040000, 

0.77390000}, 


O.56790000, 

1.71420000, 

1.55150000, 

1.76090000}, 


0.44640000, 

1.28630000, 

1.81120000, 

2.0002000O}, 


1.05501900, 

1.35801114, 

1.27260523, 

2.15449016}, 


1.13112081, 

1.67490345, 

1.49138960, 

1.71113831}, 

15 { 

1.54680000, 

2.19610000, 

1.21040000, 

0.78050000}, 


2.96060000, 

0.49720000, 

0.51650000, 

0.24180000}, 


1.20280000, 

1.53980000, 

1.23680000, 

2.00120000}, 


1.21350000, 

1.88360000, 

1.72810000, 

1.19320000}, 


2.30360000, 

0.95850000, 

1.21350000, 

1.32840000}, 

20 { 

0.59556365, 

1.84799025, 

1.42610766, 

1.91755447}, 


0.83321592, 

1.40566585, 

2.15888097, 

1.49523955}, 


2.54450000, 

1.24210000, 

0.91270000, 

0.92510000}, 


2.26382744, 

1.11917483, 

1.39125540, 

1.18438389}, 


0.70850000, 

0.89840000, 

1.26410000, 

2.62000000}, 

25 { 

2.14970000, 

2.02550000, 

0.85480000, 

0.73730000}, 


1.98930000, 

1.70300000, 

1.46450000, 

1.02370000}, 


1.64300000, 

1.07540000, 

1.77540000, 

1.74840000}, 


0.54818095, 

1.29470060, 

1.81506779, 

2.19994573}, 


0.92708840, 

2.44326143, 

1.24275146, 

1.37688712}, 

30 { 

0.37490000, 

1.30980000, 

1.52320000, 

2.47770000}, 


1.39060000, 

1.65500000, 

1.48990000, 

1.85690000}, 


0.85390000, 

1.46700000, 

1.67710000, 

2.16850000}, 


0.32570000, 

1.00200000, 

2.09300000, 

2.25460000}, 


2.21400000, 

1.30480000, 

1.19010000, 

1.62460000}, 

35 { 

0.62790000, 

1.82040000, 

1.36740000, 

2.26360000}, 


1.14380000, 

2.56880000, 

1.16950000, 

1.19580000}, 


1.35690000, 

1.50710000, 

1.94870000, 

1.67750000}, 


0.53382826, 

1.34692112, 

1.33846227, 

2.61907917}, 


0.91950000, 

1.87320000, 

1.63080000, 

1.95190000}, 

40 { 

1.41370000, 

1.99910000, 

1.54820000, 

1.56130000}, 
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0.57330000, 

1.55750000, 

2.19030000, 

1.81220000}, 


1.06640000, 

1.19880000, 

1.09660000, 

2.66680000}, 


2.87763286, 

1.17630394, 

0.87725081, 

0.67950354}, 


1.89720000, 

L52950000, 

1.72370000, 

1.41750000}, 

5 { 

0.497 10000, 

2.07990000, 

1.74510000, 

1.82260000}, 


2.27530000, 

1.30140000, 

1.61000000, 

1.25190000}, 


1.05320000, 

2.98950000, 

0.94780000, 

0.42250000}, 


1.82500000, 

0.89410000, 

2.29520000, 

1.32420000}, 


1.99440000, 

2.02900000, 

1.25500000, 

1.21920000}, 

10 { 

2.72010000, 

1.23850000, 

1.31850000, 

0.82520000}, 


1.04180000, 

1.03520000, 

2.39880000, 

1.85630000}, 


1.01960000, 

1.70500000, 

2.27600000, 

1.49890000}, 


0.69140000, 

1.07550000, 

2.71090000, 

1.62580000}, 


1.11170000, 

1.33550000, 

1.82040000, 

2.32830000}, 

15 { 

0.38540000, 

1.18850000, 

3.11230000, 

0.82370000}, 


1.73090000, 

L33730000, 

1.05690000, 

2.47140000}, 


0.72310000, 

2.46130000, 

1.27490000, 

1.97000000}, 


1.77267981, 

1.53066279, 

1.77476873, 

1.86776062}, 


0.20970000, 

2.49020000, 

0.95900000, 

2.25440000}, 

20 { 

3.42700000, 

0.58010000, 

0.48280000, 

0.32410000}, 


3.32030000, 

0.99090000, 

0.54120000, 

0.36710000}, 


0.73390000, 

1.90270000, 

2.19690000, 

1.88990000}, 


1.42540000, 

1.79240000, 

1.59520000, 

2.19790000}, 


1.45050000, 

1.62280000, 

2.53820000, 

1.20120000}, 

25 { 

1.34900000, 

2.51420000, 

L3 2760000, 

1.66820000}, 


3.00300000, 

1.08510000, 

0.79270000, 

1.36770000}, 


2.04850000, 

1.78870000, 

2.04840000, 

1.05170000}, 


3.273 10000, 

0.80220000, 

0.90830000, 

0.80130000}, 


3.57010000, 

0.30230000, 

0.14250000, 

0.08090000}, 

30 { 

0.66950000, 

2.05640000, 

1.59920000, 

2.40270000}, 


1.23889924, 

1.37970849, 

2.03314994, 

2.33416827}, 


0.54840000, 

1.39700000, 

2.05660000, 

2.56930000}, 


1.01880000, 

2.21560000, 

1.85000000, 

1.94130000}, 


0.42680000, 

1.62100000, 

1.50320000, 

2.86480000}, 

35 { 

1.36709992, 

1.92118067, 

2.22931649, 

1.71369806}, 


2.17150000, 

1.72310000, 

L62620000, 

1.79850000}, 


0.34030000, 

2.60550000, 

2.19540000, 

1.36160000}, 


0.80558445, 

1.92562060, 

1.92905300, 

2.35004900}, 


0.86223532, 

2.45299816, 

2.09373970, 

1.63564470}, 

40 { 

1.46710000, 

2.28960000, 

1.90360000, 

1.70410000}, 


BNSDOCID: <WO 0122402A1 I > 


WO 01/22402 


PCT/USOO/25182 


10 


15 


20 


25 


30 


35 


40 


2.06030000, 

1.39681009, 

0.70220000, 

1.59210000, 

2.81710000, 

3.11440000, 

3.68599039, 

1.13830000, 

0.61210000, 

0.82010000, 

1.57880000, 

2.45254708, 

1.17305500, 

0.66534571, 

0.29560000, 

2.12390000, 

1.63091403, 

1.09370000, 

2.16730000, 

1.53630000, 

2.53430000, 

1.77780000, 

1.20260000, 

0.48600000, 

1.43140000, 

2.09620000, 

1.15910000, 

1.05110000, 

3.99570000, 

3.77120000, 

1.40570000, 

0.65045973, 

0.96940000, 

3.07564375, 

0.70370000, 

0.37930000, 

3.21830000, 

0.81130000, 

1.24050000, 

1.67270000, 


2.53950000, 

2.23624337, 

1.77930000, 

1.65920000, 

1.21130000, 

1.62880000, 

0.60027243, 

1.64660000, 

1.89580000, 

1.75570000, 

2.22260000, 

1.52077343, 

1.30821566, 

1.41610565, 

1.14340000, 

2.11310000, 

1.31355448, 

1.19610000, 

1.93040000, 

1.19450000, 

1. 14700000, 

1.73710000, 

2.24720000, 

1.61790000, 

1.96990000, 

2.25920000, 

2.57100000, 

1.59620000, 

0.36520000, 

0.70730000, 

2.26260000, 

1.51699407, 

1.94710000, 

1.96246650, 

2.90160000, 

1.39650000, 

1.50100000, 

2.10070000, 

1.51440000, 

1.55850000, 


1.37030000, 

1.59579505, 

1.86580000, 

2.13170000, 

1.56300000, 

1.05310000, 

0.45011433, 

2.11410000, 

2.17130000, 

1.49690000, 

1.38510000, 

1.66535997, 

3.02978788, 

2.49625697, 

1.43040000, 

1.34410000. 

1.36763493, 

1.62170000, 

2.27320000, 

2.13630000, 

2.18010000, 

1.84070000, 

1.57010000, 

2.67430000, 

2.52130000, 

1.87530000, 

2.26780000, 

3.13560000, 

0.27530000, 

0.95870000, 

2.01590000, 

2.01006662, 

2.52800000, 

1.34859928, 

1.58210000, 

2.33010000, 

1.57160000, 

1.89350000, 

1.77690000, 

2.55210000, 
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1.16470000}, 

2.11859260}, 

2.61670000}, 

2.04110000}, 

1.47370000}, 

0.82840000}, 

0.33293751}, 

2.41100000}, 

2.37840000}, 

2.89000000}, 

2.25820000}, 

1.83881345}, 

1.52576780}, 

2.46286253}, 

3.37700000}, 

2.03950000}, 

2.95784307}, 

3.13210000}, 

L25240000}, 

2.63770000}, 

1.72400000}, 

2.43220000}, 

2.59170000}, 

2.38210000}, 

1.86980000}, 

1.67370000}, 

1.72330000}, 

1.64660000}, 

0.20870000}, 

0.77500000}, 

2.25500000}, 

3.08315725}, 

2.30090000}, 

1.15172073}, 

2.25630000}, 

3.03640000}, 

1.29830000}, 

2.90340000}, 

3.17980000}, 

2.32360000}, 
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0.43120000, 

2.29240000, 

2.37580000, 

2.46470000}, 


0.91179847, 

2.20528942, 

1.69591433, 

2.94367275}, 


0.76980000, 

L47560000, 

3.08920000, 

2.23530000}, 


0.84540000, 

1.46810000, 

2.49510000, 

2.89170000}, 

5 { 

0.74922509, 

1.32090681, 

1.27684752, 

3.67788317}, 


0.46110000, 

1.39270000, 

1.65670000, 

3.55550000}, 


1.36650000, 

1.44440000, 

1.00350000, 

3.55690000}, 


3.67050517, 

1.23688828, 

1.20357381, 

1.07900474}, 


1.12660000, 

2.68590000, 

2.10440000, 

2.19800000}, 

10 { 

1.89750000, 

1.58590000, 

2.82200000, 

1.93260000}, 


2.24697910, 

2.38873518, 

1.97435359, 

1.81077415}, 


0.38450000, 

2.16850000, 

1.74270000, 

3.17540000}, 


4.20690000, 

0.42420000, 

0.42380000, 

0.08250000}, 


4.11470000, 

0.71740000, 

0.68790000, 

0.38480000}, 

15 { 

1.70090000, 

1.85320000, 

2.32140000, 

2.53040000}, 


2.04930000, 

2.25220000, 

2.13630000, 

2.07340000}, 


2.84720000, 

1.82540000, 

1.67010000, 

1.98800000}, 


1.40590000, 

1.39600000, 

3.16130000, 

2.08190000}, 


0.96535206, 

2.12754427, 

2.68415919, 

2.39247721}, 

20 { 

1.48550000, 

2.21360000, 

2.04320000, 

2.67020000}, 


0.40140000, 

3.23100000, 

2.12180000, 

1.81980000}, 


3.42710000, 

1.05860000, 

2.28540000, 

0.62540000}, 


0.18650000, 

3.17660000, 

0.82310000, 

2.77610000}, 


0.783 10000, 

2.85280000, 

2.63020000, 

1.72540000}, 

25 { 

0.51340000, 

1.68440000, 

1.91020000, 

3.46540000}, 


0.99250000, 

2.07730000, 

2.42260000, 

2.80170000}, 


1.52534714, 

1.61117427, 

2.95395695, 

2.32829275}, 


1.57610859, 

2.18452774, 

2.25616952, 

2.62507013}, 


0.89851630, 

2.76341067, 

2.10694623, 

2.55056387}, 

30 { 

2.97550000, 

2.50580000, 

1.72340000, 

1.23640000}, 


1.35510000, 

1.77910000, 

3.65410000, 

1.13780000}, 


1.53930000, 

3.26830000, 

1.77780000, 

2.02230000}, 


0.95750000, 

2.91210000, 

2.26980000, 

2.41370000}, 


0.62880000, 

2.55740000, 

2.45470000, 

2.72430000}, 

35 { 

4.17300000, 

1.06450000, 

1.04760000, 

0.86520000}, 


1.14310000, 

2.37170000, 

1.82320000, 

3.19750000}, 


1.58370199, 

2.96836003, 

2.27706073, 

2.03240403}, 


2.43176411, 

1.82966247, 

2.78432482, 

1.90889963}, 


1.86490000, 

2.69770000, 

2.52130000, 

1.88470000}, 

40 { 

2.10760000, 

1.56670000, 

3.54160000, 

1.18690000}, 
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3.75830000, 

1 .26570000, 

1.94980000, 

1.19300000}, 


0.86350000, 

2.57800000, 

3.12820000, 

1.96290000}, 


1.51580000, 

1 .60850000, 

2.22840000, 

3.37700000}, 


3.94730000, 

1.77810000, 

1.28310000, 

0.94200000}, 

5 { 

3.42344413, 

1.55540578, 

1.09618002, 

2.47782213}, 


0.66041540, 

2.18915841, 

2.58578828, 

3.09596781}, 


0.60980000, 

2.59460000, 

1.37490000, 

3.55740000}, 


0.62668390, 

1.92562803, 

2.11258815, 

3.63723237}, 


0.74780000, 

1.7233O00O, 

1.88370000, 

3.83750000}, 

10 { 

1.61350000, 

1. 00520000, 

4.01880000, 

1.46700000}, 


3.23495541, 

1.72163945, 

2.59655973, 

1.33940018}, 


0.38850000, 

1.39810000, 

2.51490000, 

3.69950000}, 


0.62870000, 

1.89250000, 

2.70220000, 

3.30330000}, 


3.18290000, 

2.25710000, 

1.91820000, 

1.82310000}, 

15 { 

0.96400000, 

1.24870000, 

2.82850000, 

3.42770000}, 


1.77380000, 

2.07210000, 

2.52890000, 

2.90830000}, 


1.50940000, 

2.24310000, 

3.07870000, 

2.35840000}, 


2.11150000, 

2.55510000, 

1.75050000, 

2.89690000}, 


1.26400000, 

2.77440000, 

2.62980000, 

2.49940000}, 

20 { 

2.61330000, 

1.45850000, 

1.97670000, 

3.09830000}, 


2.13990000, 

1 .94870000, 

2.85930000, 

2.46960000}, 


3.23675679, 

1.72320543, 

1.97852723, 

2.34190916}, 


4.76008462, 

0.33310464, 

0.27903439, 

0.14962236}, 


1.19760000, 

2.39550000, 

2.64150000, 

3.00350000}, 

25 { 

0.73033089, 

1.53066461, 

3.39605347, 

2.96404732}, 


0.64980000, 

4.55530000, 

1.04050000, 

0.97930000}, 


2.16740000, 

1.56460000, 

3.43890000, 

2.06460000}, 


0.82740000, 

1.57650000, 

3.51060000, 

2.81690000}, 


2.72160000, 

3. 10920000, 

2.08700000, 

1.42710000}, 

30 { 

1.31790000, 

1.12640000, 

1.24000000, 

4.37700000}, 


0.69324727, 

2.26567608, 

1.45969963, 

4.00667818}, 


0.50530000, 

2.16930000, 

1.40940000, 

4.12580000}, 


1.11210000, 

2.87040000, 

1.88010000, 

3.31050000}, 


0.66630000, 

2.82910000, 

2.45110000, 

3.10110000}, 

35 { 

1.33590000, 

2.89490000, 

3.68240000, 

0.65810000}, 


2.93090000, 

2.38840000, 

2.07860000, 

2.36470000}, 


1.28667958, 

2.04826107, 

2.65566781, 

3.41804337}, 


3.94810000, 

1.80510000, 

1 .66920000, 

1.72480000}, 


2.62115775, 

1.36101297, 

2.48365661, 

3.12389449}, 

40 { 

0.96340000, 

2.19290000, 

3.22950000, 

2.93730000}, 
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2.22410000, 

3.34520000, 

1.92750000, 

2.22420000}, 


1.34990000, 

2.55940000, 

3.38100000, 

2.25480000}, 


3.98355945, 

1.62050242, 

1.86586909, 

1.75003931}, 


1.45670000, 

1.96900000, 

2.46570000, 

3.60150000}, 

5 { 

3.29180000, 

0.57080000, 

0.94640000, 

3.62270000}, 


1.14401268, 

2.35151050, 

3.56543838, 

2.39104454}, 


2.05950000, 

3.34370000, 

2.61720000, 

1.75590000}, 


1.87540000, 

1.98800000, 

1.73030000, 

3.87560000}, 


3.38890000, 

1.8 1050000, 

1.78110000, 

2.79100000}, 

10 { 

3.29220000, 

1.36330000, 

3.16320000, 

1.77060000}, 


3.18027283, 

1.45944882, 

1.71626835, 

3.27811030}, 


1.93300775, 

2.95380479, 

2.14151386, 

3.00884031}, 


0.81990000, 

2.46050000, 

2.15850000, 

3.86990000}, 


1.14122290, 

3.68786928, 

1.67502304, 

2.94593763}, 

15 { 

4.55780000, 

1.41040000, 

1.67570000, 

1.05670000}, 


2.04350000, 

2.88820000, 

2.26570000, 

3.01880000}, 


0.73210000, 

1.30000000, 

2.88790000, 

4.04000000}, 


0.68450000, 

3.63810000, 

2.57410000, 

2.56440000}, 


1.25130000, 

2.48210000, 

2.80700000, * 

3.37540000}, 

20 { 

1.22334247, 

2.93218987, 

2.87129861, 

2.97077885}, 


4.15430000, 

2.62750000, 

1.52140000, 

0.87560000}, 


4.00998503, 

2.44785350, 

1.91086193, 

1.26495926}, 


0.96334199, 

3.67493280, 

2.53065 106, 

2.55194596}, 
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0.90860000, 

4.61770000, 

2.32590000, 

5.79640000}, 


1.69079978, 

3.16486754, 

4.18771878, 

5.54553607), 


2.82496638, 

3.59337709, 

2.48811001, 

5.87756784}, 


0.93202861, 

3.91025719, 

4.24521168, 

5.27086141}, 


1.21270000, 

2.95180000, 

5.57880000, 

4.59080000}, 

20 { 

0.55659530, 

2.91938894, 

1.93771385, 

7.08849726}, 


2.32410000, 

4.45640000, 

4.91380000, 

3.66750000}, 


6.56354517, 

3.45828242, 

2.40487691, 

1.46204629), 


1.39481420, 

1.95864980, 

3.39553636, 

6.78175799}, 


6.06147968, 

2.30430262, 

3.85349629, 

2.53132522}, 

25 { 

3.31308290, 

3.93501851, 

5.24822818, 

3.06107242}, 


1.28189201, 

3.49630780, 

4.91269656, 

5.03990293}, 


1.87110000, 

4.81960000, 

2.42370000, 

5.55270000}, 


3.29160000, 

1.88870000, 

6.52260000, 

2.54980000}, 


1.02577027, 

6.26717017, 

3.02097770, 

3.79330646), 

30 { 

L08889792, 

4.76053318, 

3.12725908, 

5.52869854}, 


0.94890142, 

2.64725255, 

5.18459808, 

5.43431448}, 


0.60869645, 

1.66104147, 

4.96642227, 

6.05535654}, 


2.32501156, 

4.85889731, 

4.09460333, 

4.37618124}, 


2.33124361, 

4.13115147, 

5.03832451, 

4.13482425}, 

35 { 

5.62670000, 

3.57940000, 

3.63050000, 

2.72240000}, 


4. 19700000, 

2.15840000, 

1.59240000, 

6.35300000}, 


3.23570000, 

2.28700000, 

3.77150000, 

5.95120000), 


2.35500000, 

1.31420000, 

7.47490000, 

1.63760000}, 


3.51240000, 

3.22170000, 

5.28090000, 

3.90830000}, 

40 { 

1.71041317, 

2.21460454, 

4.07049629, 

6.47787010), 
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2.11300000, 

3.85200000, 

4.84450000, 

4.87270000}, 


1.69840000, 

2.54980000, 

5.29430000, 

5.39470000}, 


2.18880000, 

4.56550000, 

3.92940000, 

5.05700000}, 


4.47398373, 

4.50340956, 

3.58449025, 

3.68002318}, 

5 { 

1.62780000, 

4.09750000, 

3.93600000, 

5.68580000}, 


2.32854646, 

4.37697399, 

3.44268627, 

5.55910428}, 


1.05221393, 

5.00173427, 

4.36603813, 

4.70822559}, 


2.68874890, 

2.25631323, 

2.77983225, 

6.87844782}, 


2.83360000, 

4.55100000, 

5.06100000, 

3.63050000}, 

10 { 

0.76750000, 

5.49700000, 

2.76150000, 

5.39660000}, 


1.05210876, 

5.90140772, 

3.95237833, 

4.20375004}, 


1.41379518, 

4.56902792, 

5.73150822, 

3.69802958}, 


1.56540000, 

4.22360000, 

2.95510000, 

6.35820000}, 


3.46482515, 

2.69167159, 

5.57198957, 

4.39476063}, 

15 { 

0.32788487, 

4.92846336, 

L00250413, 

6.66896778}, 


8.01610000, 

1.01500000, 

1.24210000, 

1.99590000}, 


1.40965071, 

3.24859511, 

3.79414337, 

6.62744235}, 


3.34300000, 

5.07500000, 

3.52970000, 

4.66440000} , 


4.36383328, 

0.52545936, 

7.03324499, 

L69303124}, 

20 { 

1.43053111, 

3.42535818, 

6.06395491, 

4.60538222}, 


1.52553424, 

4.69652916, 

3.97731977, 

5.65061263}, 


0.78785547, 

3.40374091, 

6.81701971, 

3.68285553}, 


1.99643828, 

1.56993227, 

7.74196039, 

2.43448988}, 


3.59059653, 

1.10493742, 

2.43114793, 

7.23283747}, 

25 { 

0.59157348, 

2.33388011, 

3.11138786, 

7.56332882}, 


1.60134200, 

4.96999648, 

5.00033777, . 

4.51971684}, 


1.64715460, 

3.02527827, 

3.09226268, 

7.16914776}, 


4.14762195, 

5.66690873, 

3.93081195, 

2.88388851}, 


7.30991321, 

2.34282240, 

2.01737109, 

3.17802929}, 

30 { 

1.81813544, 

5.81146695, 

5.04057775, 

3.28586763}, 


2.72500000, 

4.18810000, 

4.01950000, 

5.68190000}, 


0.72434022, 

4.46930762, 

5.73036749, 

4.50028370}, 


1.12271355, 

2.49240949, 

6.45401174, 

4.96676666}, 


8.18580000, 

1.25740000, 

1.11490000, 

2.02940000}, 

35 { 

7.03134055, 

1.64326599, 

2.00461569, 

4.31727359}, 


8.63372164, 

0.59648853, 

0.25332698, 

0.13267083}, 


2.88343302, 

5.24472346, 

3.57891079, 

5.13451082}, 


0.63238137, 

2.96357169, 

4.46461341, 

6.78488039}, 


0.79300000, 

3.08870000, 

5.52690000, 

5.87910000}, 

40 { 

1.83841929, 

3.89459053, 

4.37188474, 

6.13341834}, 
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0.91034777, 

7.34639828, 

3.96714020, 

2.21509820}, 


5.63760000, 

1.89710000, 

2.94260000, 

5.62110000}, 


0.78936768, 

4.34413774, 

4.12190400, 

6.34302781}, 


7.96615945, 

2.19625988, 

1.99605833, 

2.13240970}, 

5 { 

1.98143078, 

1.73449291, 

4.93402285, 

6.77309050}, 


3.14640000, 

5.61260000, 

4.79230000, 

3.79180000}, 


1.69972168, 

2.08214425, 

3.63080163, 

7.63872174}, 


1.32483125, 

3.17048114, 

5.51070206, 

6.08730243}, 


0.70967677, 

3.49808735, 

3.43704395, 

7.40203101}, 

10 { 

4.62297428, 

2.82356685, 

3.59430579, 

6.12762489}, 


4.53330000, 

4.73910000, 

3.55300000, 

4.92870000}, 


1.22840000, 

3.70640000, 

4.28130000, 

6.81860000}, 


1.34928961, 

1.92196756, 

1.70876240, 

8.46603751}, 


1.42498187, 

7.16423478, 

4.12999496, 

3.11605446}, 

15 { 

2.40047727, 

3.16623823, 

4.84382122, 

6.43272213}, 


2.48100000, 

5.33260000, 

4.42190000, 

5.22120000}, 


2.50150000, 

6.67730000, 

3.64890000, 

4.23680000}, 


4.74551033, 

2.15867910, 

5.37583194, 

5.10838658}, 


1.82390000, 

4.57140000, 

4.45490000, 

6.27150000}, 

20 { 

1.72228501, 

5.90465699, 

4.91117534, 

4.63947570}, 


3.20810000, 

4.45020000, 

3.31560000, 

6.51400000}, 


1.56708064, 

4.57070311, 

3.02755847, 

7.15550803}, 


0.68148307, 

2.60453842, 

5.94508113, 

6.42076711}, 


0.86744786, 

5.67480038, 

3.78103456, 

6.05159981}, 

25 { 

8.27156126, 

3.36082584, 

1.46801232, 

1.50535956}, 


1.40032892, 

4.30054766, 

5.19078747, 

6.08324039}, 


2.60722692, 

4.12078931, 

5.31474241, 

5.71035520}, 


0.64930000, 

4.10450000, 

6.95650000, 

4.43020000}, 


2.28980000, 

4.66040000, 

4.02230000, 

6.51540000}, 

30 { 

1.27230000, 

3.49690000, 

5.94890000, 

6.08530000}, 


1.37639266, 

5.00782932, 

5.07692743, 

5.81954311}, 


8.84097806, 

2.00111843, 

1.73112804, 

1.37213075}, 


0.77910000, 

4.47790000, 

2.17170000, 

7.91160000}, 


1.43196785, 

5.12906569, 

5.66872837, 

5.34237086}, 

35 { 

1.39041995, 

2.85303302, 

4.99406517, 

7.35233623}, 


3.08580000, 

6.88330000, 

3.84090000, 

4.18050000}, 


r 8.42319800, 

2.05509723, 

3.29452524, 

1.76688336}, 


[ 0.92688007, 

4.04050755, 

5.16138576, 

6.73502941}, 


[ 8.07521848, 

3.43824000, 

2.71793398, 

2.34016158}, 

40 \ 

[ 0.76947542, 

2.08881931, 

4.45080288, 

8.07823273}, 
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2.39837942, 

5.13450154, 

4.89299397, 

5.83591003}, 


2.85605118, 

4.97967334, 

5.92350670, 

4.70366764}, 


7.22200000, 

1.88540000, 

1.76530000, 

5.60820000}, 


2.71980000, 

4.01000000, 

6,88780000, 

4.41360000}, 

5 { 

2.51716590, 

3.98307107, 

6.51702084, 

5.07484723}, 


0.94537419, 

6.88451592, 

2.39514517, 

6.04870988}, 


1.09245706, 

4.16002330, 

6.22830437, 

5.79351873}, 


2.35093743, 

5.86161935, 

3.78206776, 

6.07997328}, 


0.94850000, 

5.31470000, 

5.66010000, 

5.48090000}, 

10 { 

1.18755839, 

2.46547989, 

7.47799145, 

5.30335101}, 


0.72777489, 

3.06658013, 

4.30110855, 

7.94716925}, 


3.82981518, 

2.52393877, 

7.76001968, 

3.23000876}, 


3.61010000, 

4.27680000, 

5.84660000, 

5.12760000}, 


0.53551137, 

3.15274769, 

2.55147392, 

8.67419909}, 

15 { 

0.97926023, 

2.55946697, 

3.12285282, 

8.66607081}, 


0.55532941, 

2.19165307, 

6.72824320, 

6.50502937}, 


1.83760000, 

2.31470000, 

2.84280000, 

8.71560000}, 


1.83760000, 

2.31470000, 

2.84280000, 

8.71560000}, 


3.32083951, 

4.75174962, 

4.49785660, 

6.26028150}, 

20 { 

0.65130649, 

6.90970999, 

5.25399243, 

4.17564007}, 


3.11438237, 

5.83427486, 

5.23631431, 

4.70630209}, 


2.28429836, 

3.03809429, 

7.56678149, 

4.72660390}, 


1.08165983, 

3.09801020, 

6.00229530, 

6.89725278}, 


3.08790000, 

2.42480000, 

5.68320000, 

6.83060000}, 

25 { 

0.80320364, 

4.88645184, 

3.23307075, 

7.71215730}, 


2.82470000, 

5.50430000, 

5.11480000, 

5.48230000}, 


9.66457469, 

0.72241715, 

0.73603961, 

0.38577852}, 


2.99327170, 

5.54300234, 

6.26703953, 

3.98960049}, 


1.62140000, 

5.94360000, 

4.16200000, 

6.29700000}, 

30 { 

1.78410000, 

5.15330000, 

5.85290000, 

5.6843O0OO}, 


0.78120200, 

1.63672160, 

8.38575221, 

4.80601352}, 


1.31678939, 

8.01834598, 

4.34605541, 

3.51102864}, 


0.97820851, 

4.26692920, 

4.31887746, 

7.74837962}, 


5.06340000, 

4.17620000, 

6.01510000, 

4.32810000}, 

35 { 

3.51597902, 

6.08494491, 

4.29446519, 

5.51676685}, 


3.36139114, 

3.91637920, 

5.72115014, 

6.24741169}, 


6.08830000, 

5.43630000, 

3.61600000, 

4.32470000}, 


2.39830000, 

6.44330000, 

3.75540000, 

6.11600000}, 


1.11147149, 

4.30328685, 

1.82271108, 

8.71934150}, 

40 { 

1.63871436, 

3.95275142, 

5.45264894, 

7.18239961}, 
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2.02855085, 

5.65075047, 

4.64130877, 

6.49530022}, 


1.94580000, 

3.61490000, 

5.67930000, 

7.16100000}, 


1. 59700000, 

5.26450000, 

4.68320000, 

6.94710000}, 


6.68990000, 

1.12770000, 

5.68740000, 

4.70270000}, 

5 { 

1.47240000, 

6.58020000, 

7.51260000, 

0.43750000}, 


1.43605682, 

3.57129694, 

4.86798865, 

7.98218446}, 


1.35082975, 

4.79978242, 

5.08229820, 

7.18782116}, 


6.59810000, 

5.16070000, 

4.99920000, 

2.68740000}, 


0.85804042, 

2.66036181, 

3.79617269, 

8.97038032}, 

10 { 

0.57752720, 

3.85584150, 

2.82063576, 

8.92126344}, 


2.76601934, 

2.14587280, 

8.29033879, 

4.68348890}, 


2.27580364, 

4.89175504, 

6.71997795, 

5.39041896}, 


3.47641496, 

4.79028162, 

6.81795681, 

4.71102312}, 


0 93039801 

2.35470380, 

2.03067856, 

9.66158653}, 

15 { 

5 24280269 

5.87342961, 

5.03715168, 

4.13401730}, 


3 33721370 

2.67548096, 

6.40789015, 

6.76233708}, 


1 56216251 

3.93947215, 

7.00708175, 

6.20403383}, 


1 34391255 

7.73137752, 

5.14339005, 

4.25486324}, 


7.41750178, 

3.73637944, 

3.08194778, 

5.37902423}, 

20 { 

7.32120000, 

6.00560000, 

3.62490000, 

2.16290000}, 


2.19962531, 

6.52325907, 

5.40432758, 

5.56807852}, 


4.93620000, 

4.72110000, 

4.68730000, 

6.25250000}, 


0.73187601, 

6.21119149, 

4.09183251, 

7.21092005}, 


1.79253652, 

3.77408073, 

7.68580382, 

5.60820558}, 

25 { 

1.13078036, 

5.25850420, 

6.01079823, 

6.58637956}, 


2.43485111, 

5.68917861, 

6.85232992, 

4.84402754}, 


0.67366505, 

5.02560379, 

3.47361526, 

8.45349077}, 


6.86360000, 

5.21520000, 

4.96220000, 

3.22840000}, 


2.16212799, 

1.53191572, 

7.40567293, 

6.89578635}, 

30 { 

3.73873971, 

3.92260064, 

5.06203969, 

7.37882615}, 


2.10942410, 

3.14277918, 

4.37038407, 

8.75774237}, 


1.59757456, 

6.22510211, 

4.05319557, 

7.29190653}, 


3.25559742, 

4.73046932, 

6.86808354, 

5.56511651}, 


4.52622292, 

2.85841971, 

8.69240887, 

2.65417944}, 

35 { 

1.26056004, 

6.38198672, 

4.94052448, 

6.67484228}, 


2.27077447, 

3.23092900, 

3.31767289, 

9.27355446}, 


4.64362250, 

5.54476344, 

4.24857384, 

6.54073713}, 


0.87778876, 

6.21262913, 

3.32501727, 

7.93294120}, 


2.75102335, 

4.16448628, 

6.81864507, 

6.56788614}, 

40 { 

1.03724763, 

4.46209680, 

3.36610756, 

9.07190901}, 
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10.61430744, 

1.25248983, 

0.79488974, 

0.29825722}, 


1.70130689, 

5.21562264, 

3.88195218, 

8.38963395}, 


2.43120000, 

3.76240000, 

5.84110000, 

7.84170000}, 


1.02946661, 

3.90428545, 

6.27275391, 

7.78510770}, 

5 { 

1.65699034, 

8.74949369, 

2.90585411, 

5.37319588}, 


2.58759134, 

6.43089846, 

4.54053428, 

6.94813984}, 


4.90500000, 

4.89560000, 

5.64060000, 

6.11540000}, 


0.55686275, 

9.28114166, 

4.00477472, 

3.90742606}, 


0.61038329, 

4.81204953, 

6.88326204, 

6.84747708}, 

10 { 

1.71815125, 

4.85510539, 

7.30381518, 

6.17795442}, 


1.08169894, 

2.89362957, 

5.80959118, 

8.65315647}, 


2.37142070, 

7.51711915, 

4.55736525, 

5.95203251}, 


3.94834328, 

2.68050954, 

7.56836449, 

6.20361178}, 


0.54564044, 

3.87758027, 

3.78915025, 

9.52346278}, 

15 { 

2.58081047, 

2.92320529, 

8.86926268, 

5.17420821}, 


5.02738528, 

6.32462173, 

4.26820623, 

6.09839784}, 


0.72903170, 

3.65300944, 

7.51390394, 

7.17462046}, 


8.17356086, 

5.10349515, 

2.83298496, 

4.62976344}, 


1.97532238, 

4.91565205, 

6.22708762, 

7.51136992}, 

20 { 

4.55151377, 

5.92192617, 

6.06545553, 

5.56364263}, 


1.39045819, 

5.61386640, 

8.47073728, 

4.34796448}, 


3.03632675, 

4.64320306, 

6.10075658, 

7.53789117}, 


0.79977125, 

3.95429196, 

4.90566833, 

9.20754096}, 


1.85265733, 

6.14864006, 

6.64512400, 

6.36440196}, 

25 { 

0.85921269, 

2.57878725, 

6.54695825, 

8.70481673}, 


5.33913754, 

4.58169580, 

6.78995113, 

5.57926637}, 


1.61137513, 

4.23667418, 

4.59640634, 

9.23438768}, 


0.77773039, 

5.42284598, 

3.34374173, 

9.26591404}, 


0.92001029, 

5.75573266, 

4.85671240, 

8.33930244}, 

30 { 

0.82972835, 

2.10488103, 

10.90536338, 

1.87756289}, 


1.68184517, 

7.80682195, 

6.38121141, 

4.82567879}, 


1.00885512, 

5.17437788, 

6.03487798, 

7.97500318}, 


7.37866048, 

5.56609740, 

4.51195592, 

4.70703726}, 


1.82483053, 

3.67395636, 

7.54960019. 

7.40223826}, 

35 { 

2.81360015, 

3.43055611, 

8.08047384, 

6.65810927}, 


9.30274846, 

3.31031206, 

4.83883820, 

2.94065967}, 


2.02215437, 

8.54068625, 

5.46996516, 

4.78197345}, 


1.25579314, 

5.90596091, 

6.42340888, 

7.25139056}, 


3.16855201, 

1.96299080, 

9.27163800, 

5.55042314}, 

40 { 

1.12197104, 

3.47627070, 

6.03946668, 

9.00379796}, 
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2.31795965, 

4.61985356, 

5.71764273, 

8.45523545}, 


0.86830400, 

3.48560358, 

2.79081647, 

10.50157611}, 


1.32731682, 

4.35604190, 

5.57674297, 

8.91360522), 


1.36907020, 

6.03370451, 

7.31392598, 

6.31342063}, 

5 { 

0.81461105, 

5.91799246, 

7.21449418, 

6.71863286}, 


0.77676785, 

8.61742544, 

4.51391237, 

6.20183459}, 


0.96955818, 

2.29484854, 

9.56821601, 

6.01982002}, 


2.86384706, 

4.56902790, 

4.56249623, 

9.24250741}, 


9.74533365, 

1.73357571, 

1.57835884, 

5.95028919}, 

10 { 

2.79767056, 

8.79170726, 

3.56330502, 

6.20074132}, 


2.28836879, 

2.75465096, 

5.61332411, 

9.63187411}, 


2.72413650, 

6.18191018, 

5.53391462, 

7.86097490}, 


11.76160020, 

0.63134542, 

0.47546805, 

0.29555005}, 


1.91094350, 

6.07895552, 

5.48544428, 

8.27568275}, 

15 { 

1.21370233, 

4.32335055, 

6.66457502, 

8.67477432}, 


1.18594424, 

2.78138448, 

5.45502842, 

10.05371769}, 


2.22929878, 

6.14469068, 

7.46699295, 

6.45298636}, 


2.79591683, 

2.83135167, 

4.33735740, 

10.38711814}, 


0.78747333, 

6.39393375, 

5.81692357, 

8.20503567}, 

20 { 

0.76370119, 

2.78809390, 

3.14370946, 

11.15474098}, 


1.11723835, 

4.71483644, 

4.66368120, 

9.88152823}, 


0.93916682, 

6.88785336, 

6.77076684, 

6.99982520}, 


1.60276368, 

3.30514684, 

8.77524914, 

7.28178295}, 


0.92251764, 

3.39023345, 

4.43048766, 

10.56820176}, 

25 { 

5.79340376, 

2.36312960, 

9.56320308, 

3.63330121}, 


2.71241676, 

3.49872684, 

3.53303480, 

10.61515174}, 


0.67386409, 

6.69675668, 

2.95976231, 

9.52757871}, 


2.49519916, 

7.29936215, 

6.10335316, 

7.01099285}, 


0.99832686, 

2.40880100, 

6.42354357, 

9.90514258}, 

30 { 

4.01387376, 

6.59162609, 

6.09807071, 

7.10802951}, 


3.49608352, 

4.71858106, 

8.28710217, 

6.68725791}, 


2.27787473, 

4.95617707, 

6.63521261, 

8.67353220}, 


4.14506250, 

3.64127269, 

3.89205582, 

10.20440879}, 


0.97399178, 

6.33869199, 

4.56383367, 

9.41534855}, 

35 { 

4.15984043, 

9.54777210, 

5.48922705, 

3.56800194}, 


2.40056464, 

5.81852817, 

5.71816354, 

8.97781973}, 


2.35045777, 

6.73328445, 

7.98562753, 

6.25923663}, 


L 0.85625841, 

6.72016523, 

8.18650368, 

6.42988217}, 


[ 4.19542367, 

5.39098152, 

6.31874100, 

8.26237198}, 

40 { 

[ 1.27547780, 

5.76620603, 

4.99258436, 

9.80522343}, 
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3.68529387, 

4.15915911, 

9.86937700, 

876 
5.32615633}, 


0.71107447, 

4.70978679, 

3.77271030, 

10.97679112}, 


0.66877494, 

5.93834796, 

2.38106951, 

10.81466644}, 


1.33751968, 

5.13029803, 

6.53386722, 

9.36491156}, 

5 { 

12.56307254, 

0.93468157, 

0.84920832, 

0.42348664}, 


1.23085824, 

4.25341291, 

8.71342657, 

8.03306504}, 


0.82949585, 

3.82074178, 

6.17543646, 

10.36898905}, 


1.10644169, 

3.89956692, 

5.41639199, 

10.78030461}, 


1.75701769, 

4.30332918, 

9.57778642, 

6.98441454}, 

10 { 

2.58670629, 

3.61601573, 

9.40930720, 

7.38252302}, 


1.11711964, 

5.33961164, 

7.26247097, 

8.97399030}, 


1.12884095, 

6.31375030, 

6.51816011, 

8.91813271}, 


1.31484974, 

2.18370089, 

12.27551106, 

2.62253120}, 


1.01443115, 

2.54877355, 

11.73818233, 

4.33309132}, 

15 { 

0.34774385, 

1.82783722, 

1.62876661, 

12.59549507}, 


0.97994586, 

7.28869946, 

5.89794637, 

8.71481793}, 


12.11453168, 

2.95318899, 

2.36450881, 

2.08030365}, 


3.20328426, 

2.91523634, 

4.79849243, 

11.16087122}, 


0.39407780, 

4.99498194, 

2.57332231, 

11.61269552}, 

20 > 

1.99022794, 

6.13419229, 

7.38379789, 

8.40500380}, 


1.40306662, 

2.69579878, 

10.61501684, 

6.69882981}, 


0.74186835, 

7.70994201, 

4.64414578, 

9.25069602}, 


4.89704263, 

5.35918710, 

8.09906544, 

6.99708383}, 


0.92288588, 

4.09518940, 

3.92972179, 

11.59674741}, 

25 { 

2.42897489, 

4.64757197, 

7.89471050, 

8.96657111}, 


1.38902492, 

5.96627182, 

7.94008793, 

8.35998654}, 


1.86051693, 

7.14098385, 

7.09990896, 

8.12643961}, 


1.96359013, 

5.27636059, 

7.41503586, 

9.21637756}, 


2.24507052, 

8.53059177, 

5.42855859, 

8.06965501}, 

30 { 

1.36089784, 

7.72918602, 

7.98738655, 

6.85762618}, 


4.98127968, 

8.23828278, 

7.66412694, 

4.72203251}, 


0.81803441, 

3.64700350, 

10.77046446, 

6.63265844}, 


2.64396095, 

6.64740820, 

5.36249272, 

9.73302651}, 


0.85721046, 

8.97648757, 

5.41140639, 

8.01509140}, 

35 { 

1.42735279, 

4.50433704, 

8.27851263, 

9.27178244}, 


0.58781859, 

1.49262189, 

12.38415019, 

4.64545873}, 


2.65351582, 

2.42853441, 

11.17485949, 

6.31403683}, 


2.04620521, 

6.60779533, 

7.14834362, 

8.97875001}, 


0.80439323, 

3.85181763, 

2.26196590, 

12.61279665}, 

40 { 

2.92145764, 

4.34267811, 

6.43522260, 

10.53267242}, 
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2.33482997, 

1,653 16504, 

0.41531975, 

0.72163873, 

2.09052746, 

0.64174199, 

0.58136635, 

1.88847880, 

1.40901082, 

0.73776988, 

3.96879248, 

3.15568267, 

0.80374107, 

2.09661987, 

0.88332189, 

1.08942200, 

1.55847253, 

0.60905689, 

1.08382049, 

3.34331887, 

1.59318007, 

1.03897082, 

1.92798261, 

0.93720103, 

0.91119552, 

2.16380492, 

1.76924750, 

1.15987388, 

1.21371823, 

1.38288988, 

1.29664362, 

0.52458287, 

1.33509209, 

1.37643962, 

6.43419688, 

1.72236359, 

1.56927388, 

1.45839622, 

3.02747083, 

2.05146571, 


5.15803099, 

7.47331814, 

6.32611792, 

5.22495540, 

5.11789887, 

7.23509890, 

6.03319986, 

4.00700903, 

5.45959436, 

4.83606269, 

2.18603979, 

6.13406295, 

4.65769736, 

3.39005710, 

3.59791465, 

3.27182927, 

6.22902600, 

3.35885813, 

5.48905940, 

6.47396440, 

2.09545050, 

4.38732526, 

5.11639063, 

8.05063136, 

1.81953111, 

7.70566504, 

7.78185077, 

9.05765050, 

4.84729610, 

7.46133933, 

4.30129589, 

7.00147036, 

6.23521497, 

4.17636451, 

7.68704523, 

7.06395633, 

10.37173887, 

5.78397321, 

4.17525110, 

4.41343489, 


6.46659454, 
9.05799951, 
7.81048780, 
3.45639623, 
3.52197500, 
3.49107988, 
3.77340852, 
7.34681808, 
4.73007662, 
9.18284567, 
2.84762095, 
6.90737855, 
6.39948760, 
10.38768437, 
3.82394388, 
5.96210209, 
6.74851950, 
12.06024258, 
6.05852153, 
9.59220445, 
7.16202899, 
4.70222853, 
8.09865625, 
3.78686375, 
6.03538728, 
8.84913274, 
5.57395979, 
8.75415366, 
7.22481775, 
6.82601120, 
6.03512857, 
5.23429062, 
9.42836940, 
8.02931336, 
7.96430106, 
8.26901970, 
5.72851106, 
4.50445026, 
12.32314067, 
9.23736091, 
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10.34054980), 
6.47094250}, 
9.02794475}, 
11.97224325}, 
11.83862453}, 
10.87245652}, 
11.52051703}, 
10.49367730}, 
11.40544217}, 
8.72715339}, 
12.49903569}, 
9.48656145}, 
11.09516625}, 
7.95667875}, 
12.61316034}, 
11.86106055}, 
10.07945058}. 
5.61285870}, 
10.98325259}, 
6.68259687}, 
11.48541550}, 
12.26779854}, 
9.94129707}, 
10.74107924}, 
12.51843564}, 
7.42392169}, 
10.29984737), 
6.40474782), 
11.13905058}, 
9.87555447}, 
12.14216497}, 
11.28921139}, 
8.66014090}, 
11.20717250}, 
6.95934814}, 
9.59938874}, 
8.39896556}, 
12.61358842}, 
6.22746505}, 
10.44153825}, 
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5.66453026, 

9.06175578, 

5.41182386, 

8.64337000}, 


1.66093555, 

5.57904772, 

9.05000208, 

10.17884825}, 


3.18681036, 

7.89504069, 

8.51476704, 

8.77388749}, 


1.40298641, 

5.16091442, 

8.03962112, 

11.38025515}, 

5 { 

1.41520071, 

10.44754810, 

9.48927862, 

4.87137641}, 


1.26011031, 

5.96100155, 

8.35697698, 

11.03176007}, 


4.83543487, 

11.84478099, 

7.29747421, 

4.03998236}, 


0.87323832, 

5.89116239, 

7.64276889, 

11.96499196}, 


1.99570001, 

8.78756782, 

9.06747983, 

8.83198069}, 

10 { 

1.02235503, 

7.76639722, 

6.94261495, 

11.61034744}, 


1.04732053, 

6.97494232, 

7.32229666, 

11.90627484}, 


0.73854685, 

8.17096188, 

5.40060392, 

12.21403914}, 


2.20843937, 

7.57276899, 

9.57229093, 

9.59665485}, 


L77535285, 

9.00145328, 

8.05075125, 

9.85487384}, 

15 { 

2.68551656, 

6.70379889, 

6.01662021, 

12.59967759}, 


L24885269, 

9.81972571, 

6.75838303, 

10.27901643}, 


0.66894325, 

4.60403323, 

8.62708990, 

12.46731496}, 


1.51766960, 

4.82660767, 

8.14967773, 

12.78600143}, 


1.86877729, 

4.64809996, 

9.05742322, 

12.44275804}, 

20 { 

2.76648261, 

4.64942870, 

9.22799940, 

12.23678137}, 


L6 1202857, 

8.63397367, 

8.87509927, 

10.65521375}, 


1.82511547, 

6.22777413, 

10.73435912, 

10.87911384}, 


1.38093430, 

6.71588232, 

9.28350958, 

12.07393045}, 


1.80444067, 

6.76445168, 

8.12958854, 

12.92111925}, 

25 { 

3.47440527, 

7.88500975, 

8.59696339, 

11.60054876}, 


2.32572109, 

7.77723715, 

8.46668374, 

12.10644316}, 


1.33688750, 

10.89975644, 

6.29384729, 

11.29444386}, 


2.64792469, 

9.15374122, 

8.45512575, 

11.39900161}, 


2.83404531, 

9.18932276, 

9.77927438, 

10.32461184}, 

30 { 

1.47207345, 

9.63668301, 

6.51404099, 

12.72973192}, 


2.01073179, 

8.11557312, 

9.57967353, 

11.77710059}, 


1.52741425, 

6.98063061, 

9.30346179, 

12.90851820}, 


2.15975449, 

11.64209182, 

6.12475536, 

11.56924015}, 


3.66580372, 

9.64803926, 

7.39415298, 

12.26516569}, 

35 { 

2.14898470, 

7.40531177, 

10.12399765, 

12.64288098}, 


1.65172109, 

9.12415911, 

10.26071926, 

12.04537711}, 


11.37380673, 

6.17262402, 

10.98932460, 

7.69678064}, 


1.93257054, 

9.82814492, 

10.03906878, 

12.83940772}, 


3.30729405, 

11.02212306, 

12.58337589, 

8.68245192}, 

40 { 

4.93277768, 

12.49805088, 

10.53402702, 

11.30795961} 
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{ 7.46673668, 9.95870339, 11.92110909, 11.13530351}, 
{ 1.79166482, 12.16424221, 11.50508223, 12.66257869}, 

}; 


5 /*===================================================== 

/* Conexant System Inc. */ 
/* 43 1 1 Jamboree Road */ 
/* Newport Beach, CA 92660 */ 

10 /* Copyright(C) 2000 Conexant System Inc. */ 

/* V 

/* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 

/* means or used to make any derivative work (such as transformation */ 

15 /* or adaptation) without the authorisation of Conexant System Inc. */ 


/♦FILE: FLQAT64 gainVQ_2_128_8_5 */ 

/*=====================================-====== 


20 

FLOAT64 gainVQ_2_128_8 - 5[MSMAX_2_128][GVQ_VEC_SIZE_2D]={ 

{ 1.13718400, 2.00167200,}, 

{ 1.15061100, 0.80219900,}, 

{ 0.98207800, 0.51399000,}, 
25 { 1.10500000, 0.15447500,}, 

{ 0.11378400, 9.42551300,}, 

{ 0.94094200, 0.70526500,}, 

{ 0.80243560, 0.34683600,}, 

{ 0.13515300, 11.12709900,}, 
30 { 0.75909900, 2.88632700,}, 

{ 0.82919900, 1.39055100,}, 

{ 0.54780000, 0.75109900,}, 

{ 0.64942200, 0.21226600,}, 

{ 0.66705400, 2.16333100,}, 
35 { 0.63880400, 1.02172900,}, 

{ 0.22345900, 0.31303700,}, 

{ 0.27085500, 0.04820600,}, 

{ 1.15294600, 4.53179200,}, 

{ 1.16686600, 2.75126500,}, 
40 { 1.18999500, 1.39510700,}, 
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{ LI 1778400, 0.58757400,}, 
{ 1.18887200, 3.80809000,}, 
{ 1.05657500, 2.13161600,}, 
{ 1.13064700, 1.15821700,}, 
5 { 1.04200000, 0.40869700,}, 
{ 1.04338300^ 5.44336600,}, 
{ 0.88449000, 3.34760400,}, 
{ 0.72784500, 1.94726600,}, 
{ 0.70959500, 0.80566400,}, 
10 { 0.65729500, 4.38794000,}, 
{ 0.70740000, 2.66792200,}, 
{ 0.57385300, 1.50683600,}, 
{ 0.47064300, 0.58837900,}, 
{ 0.88597700, 2.27373000,}, 
15 { L05926600, 1.16308600,}, 
{ 0.12943500, 13.50132800,}, 
{ 0.85623100, 0.15288900,}, 
{ 0.69171100, 1.80786200,}, 
{ 0.91399200, 0.86047400,}, 
20 { 0.10358200, 16.23313000,}, 
{ 0.68111100, 0.08475100,}, 
{ 0.31958000, 3.21447800,}, 
{ 0.62654300, 1.71266600,}, 
{ 0.16217000, 0.85778800,}, 
25 { 0.38586700, 0.25569800,}, 
{ 0.25176000, 2.38515800,}, 
{ 0.43364500, 1.23491300,}, 
{ 0.05389400, 0.50441900,}, 
{ 0.10640600, 0.05330000,}, 
30 { 0.84213600, 4.74540700,}, 
{ 1.14440800, 3.24315600,}, 
{ 0.80336500, 1.68015100,}, 
{ 0.55854300, 0.54247600,}, 
{ 0.89434200, 3.77774700,}, 
35 { 1.01672700, 2.42313600,}, 
{ 0.84586000, 1.08642000,}, 
{ 0.90643900, 0.47559100,}, 
{ 0.33732200, 5.75193400,}, 
{ 0.62728700, 3.78905800,}, 
40 { 1.05076300, 1.70952200,}, 
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10 


15 


20 


25 


30 


35 


40 


0.48097400 
0.31390400 
0.55670200 
0.38080300 
0.42559800 
1.09926500 
0.95508100 
0.78678600 
0.95358200 
0.92961200 
0.75708000 
0.68356300, 
0.51043900, 
0.53942900 
0.57837000 
0.35109200 
0.45661300 
0.61108400 
0.49322600 
0.24345900 
0.05047600 
1.16051300 
0.99243800 
0.99072500 
1.02200000 
1.09807600 
0.94571700 
0.88639400 
0.85020100 
0.80787100 
0.75617700 
0.51556400 
0.60559000 
0.46290200 
0.72930000 
0.33557200 
0.37945600 
0.81490800 
0.86360200 
0.58850100 


1.01267000,}, 
4.65732500,}, 
3.24914600,}, 
1.55972500,}, 
0.68530300,}, 
2.79674000,}, 
1.41049800,}, 
0.68538000,}, 
0.23313000,}, 
1.97636200,}, 
0.97509800,}, 
0.40566400,}, 
0,10678230,}, 
3.70803200,}, 
1.86535700,}, 
1.20642100,}, 
0.29890300,}, 
2.72753900,}, 
1.42651300,}, 
0.70303700,}, 
0.12981000,}, 
5.56319400,}, 
3.29063900,}, 
1.99141000,}, 
0.79869700,}, 
4.16487000,}, 
2.61474000,}, 
1.28403400,}, 
0.57653900,}, 
5.79903300,}, 
3.83105500,}, 
2.39465400,}, 
1.20642100,}, 
5.67811350,}, 
3.37976100,}, 
1.97353600,}, 
0.95202600,}, 
3.26847000,}, 
1.76652000,}, 
0.88940500,}, 


RNSnOCID: <WQ 0122402A1 I > 


WO 01/22402 


PCT/US00/25182 


10 
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20 


25 


30 
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0.74833 100 ; 
0.80934600. 
0.67389000, 
0.63538600, 
0.57660000, 
0.12176500, 
0.37830600, 
0.21637000, 
0.31155400, 
0.10000000, 
0.14343300, 
0.11508100, 
0.10320100, 
0.90839600, 
0.96277000, 
0.77146900, 
0.95915800, 
0.91656900, 
0.87191100, 
0.70257400, 
0.73999100, 
0.11899700, 
0.48773200, 
0.39770600, 
0.46171900, 
0.04775300, 
0.24515600, 
O.072144O0, 
0.22776900, 


0.45808200,} 
2.36844300,} 
1.19824200,} 
0.54712000,} 
0.21887700,}, 
4.18505900,}, 
2.25265100,}, 
1.49602100,}, 
0.54434500, }, 
3.25577100,}, 
1.80127000,}, 
0.98077200,}, 
0.30653900,}, 
5.76712400,}, 
3.76910300,}, 
2.04766000,}, 
0.98334300,}, 
4.61102600,}, 
2.95691000,}, 
1.49621600,}, 
0.65808200,}, 
7.01306400,}, 
4.70539500,}, 
2.79362800,}, 
1.68674400,}, 
5.83900400,}, 
3,71567400,}, 
2.04602100,}, 
1.16631900,}, 
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*/ 

■*/ 




/* Conexant System Inc. *' 
/* 43 1 1 Jamboree Road */ 
5 /* Newport Beach, CA 92660 

/* :; 

/* Copyright(C) 2000 Conexant System Inc. */ 

/* >/ 

/* ALL RIGHTS RESERVED: */ 
10 /* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

/* FILE: FLOAT64 gp3_tab */ 


==*/ 


=*/ 


FLOAT64 gp3_tablTAB_SIZE^GVQ_3D][GVCLVEC„SI2E_3D]={ 

{ 1.16184904, 1.16859789, 1.13656320,}, 
20 { 1.14613289, 1.06371877, 0.91852525,}, 

{ 1.00344711, 0.90488701, 0.79197966,}, 

{ 0.89898517, 0.86585984, 0.57621277,}, 

{ 0.99149439, 0.97843157, 0.97025005,}, 

{ 0.89739798, 0.86130891, 0.84842344,}, 
25 { 0.86598496, 0.78195693, 0.74571748,}, 

{ 0.79213167, 0.68469714, 0.57939861,}, 

{ 0.99928691, 1.06213737, 1.06047882,}, 

{ 0.91946603, 0.92523551, 0.93225137,}, 

{ 0.78015244, 0.80748131, 0.87699716,}, 
30 { 0.72123502, 0.75183948, 0.73110569,}, 

{ 0.71467869, 1.00925302, 1.04508421,}, 

{ 0.57918595, 0.91509645, 0.84665658,}, 

{ 0.58059384, 0.63848156, 0.81308216,}, 

{ 0.61528823, 0.59858664, 0.56355253,}, 
35 }, 
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/* Conexant System Inc. */ 
/* 4311 Jamboree Road */ 
5 /* Newport Beach, CA 92660 */ 

/* Copyright(C) 2000 Conexant System Inc. */ 

/* ALL RIGHTS RESERVED: */ 
10 /* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

/* FILE: FLOAT64 gainSQ_l_32 */ 

FLOAT64 gainSQ_l_32|MSMAX_I_32]={ 

0.35254579, 

0.25370548, 
20 0.02227783, 

0.01000000, 

0.96400353, 

0.75700023, 

0.19593419, 
25 0.15817945, 

0.55403371, 

0.44012518, 

0.17369569, 

0.13850902, 
30 2.00929650, 

1.35393237, 

0.28748898, 

0.22267504, 

3.05406901, 
35 2.75461276, 

0.39066788, 

0.30225533, 

6.52227783, 

5.48564881, 
40 1.00617023, 
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0.86949491, 
4.51286186, 
3.52957861, 
0.66628545, 
5 0,50710786, 
8.51290000, 
7.51286186, 
2.31398228, 
1.83583729, 
10 }; 


/*= 
/*= 


/* Conexant System Inc. 
15 /* 43 1 1 Jamboree Road */ 
/* Newport Beach, CA 92660 */ 
/* 


/ 


/* Copyright(C) 2000 Conexant System Inc. */ 


/*- 


*/ 


20 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

/*^================================================= = = = == 

25 /* FILE: FLOAT64 gainSQ_l_64 */ 


FLOAT64 gainSQ_l_64[MSMAX_l__64]={ 
30 0.00500000, 

0.01000000, 

0.01613892, 

0.02227783, 

0.08039343, 
35 0.13850902, 

0.14834423, 

0.15817945, 

0.16593757, 

0.17369569, 
40 0.18481494, 


WO 01/22402 


PCT/US00/25182 


886 

0.19593419, 

0.20930461, 

0.22267504, 

0.23819026, 
5 0.25370548, 

0.27059723, 

0.28748898, 

0.29487215, 

0.30225533, 
10 0.32740056, 

0.35254579, 

0.37160684, 

0.39066788, 

0.41539653, 
15 0.44012518, 

0.47361652, 

0.50710786, 

0.53057078, 

0.55403371, 
20 0.61015958, 

0.66628545, 

0.71164284, 

0.75700023, 

0.81324757, 
25 0.86949491, 

0.91674922, 

0.96400353, 

0.98508688, 

1.00617023, 
30 1.18005130, 

1.35393237, 

1.59488483, 

1.83583729, 

1.92256690, 
35 2.00929650, 

2.16163939, 

2.31398228, 

2.53429752, 

2.75461276, 
40 2.90434088, 
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3.05406901, 
3.29182381, 
3.52957861, 
4.02122024, 
5 4.51286186, 
4.99925533, 
5.48564881, 
6.00396332, 
6.52227783, 
10 7.01756985, 
7,51286186, 
8.01288093, 
8.51290000 


}; 


15 


/*=== 


/* Conexant System Inc. */ 
/* 43 1 1 Jamboree Road */ 
/* Newport Beach, CA 92660 
20 /* 


*/ 

■*/ 


/* Copyright(C) 2000 Conexant System Inc. */ 


-*/ 


/* ALL RIGHTS RESERVED: */ 
/* No part of this software may be reproduced in any form or by any */ 
25 /* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

/* FILE: FLOAT64 gainVQ_2_128 */ 

30 

FLOAT64gainVQ_2_128|MSMAX_2_128][GVQ_VEC_SIZE_2D]={ 
0.04775300, 5.83900400}, 
0.05047600, 0.12981000}, 
35 { 0.05389400, 0.50441900}, 
0.07200000, 1 .43869700}, 
0.07214400, 2.04602100}, 
0. 1 0000000, 3 .25577 100} , 
0.10320100, 0.30653900}, 
40 { 0.10640600, 0.05330000}, 
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10 


15 


20 


25 


30 


35 


40 


0.11508100, 
0.11899700, 
0.12176500, 
0.14343300, 
0.16217000, 
0.21637000, 
0.22345900, 
0.22776900, 
0.24345900, 
0.24515600, 
0.25176000, 
0.27085500, 
0.31155400, 
0:31390400, 
0.31958000, 
0.335572OO, 
0.33732200, 
0.35109200, 
0.35586700, 
0.37830600, 
0.37945600, 
0.38080300, 
0.39770600, 
0.40290200, 
0.42559800, 
0.42706300, 
0.43364500, 
0.45661300, 
0.46171900, 
0.47064300, 
0.48097400, 
0.48773200, 
0.49322600, 
0.50338300, 
0.51043900, 
0.51556400, 
0.53942900, 
0.54660000, 
0.54780000, 
0.55670200, 


0.98077200} 
7.01306400} 
4.18505900} 
1.80127000} 
0.85778800} 
1.49602100} 
0.31303700} 
1.16631900} 
0.70303700} 
3.71567400} 
2.38515800} 
0.04820600} 
0.54434500} 
4.65732500} 
3.21447800} 
1.97353600} 
5.75193400} 
1.20642100} 
0.25569800} 
2.25265100} 
0.95202600} 
1.55972500} 
2.79362800} 
4.07811350} 
0.68530300} 
2.24952200} 
1.23491300} 
0.29890300} 
1.68674400} 
0.58837900} 
1.01267000} 
4.70539500} 
1.42651300} 
7.44336600} 
0.10678230} 
2.39465400} 
3.70803200} 
0.20287700} 
0.75109900} 
3.24914600} 
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0.57385300, 

0.57837000, 

0.58850100, 

0.60358200, 

0.60559000, 

0.61108400, 

0.62654300, 

0.62728700, 

0.63538600, 

0.63880400, 

0.64942200, 

0.65729500, 

0.66705400, 

0.67111100, 

0.67389000, 

0.68356300, 

0.69171100, 

0.69515300, 

0.70257400, 

0.70740000, 

0,70959500, 

0.72784500, 

0.72930000, 

0.73999100, 

0.74833100, 

0.74943500, 

0.75617700, 

0.75708000, 

0.75909900, 

0.77146900, 

0.78678600, 

0.80243560, 

0.80336500, 

0.80787100, 

0.80934600, 

0.81490800, 

0.82919900, 

0.84213600, 

0.84586000, 

0.85020100, 


1.50683600}, 

1.86535700}, 

0.88940500}, 

0.23313000}, 

1.20642100}, 

2.72753900}, 

1.71266600}, 

3.78905800}, 

0.54712000}, 

1.02172900}, 

0.21226600}, 

4.38794000}, 

2.16333100}, 

0.05475100}, 

1.19824200}, 

0.40566400}; 

1.80786200}, 

0.12709900}, 

1.49621600}, 

2.66792200}, 

0.80566400}, 

1.94726600}, 

3.37976100}, 

0.65808200}, 

0.35808200}, 

0.50132800}, 

3.83105500}, 

0.97509800}, 

2.88632700}, 

2.04766000}, 

0.68538000}, 

0.34683600}, 

1.68015100}, 

5.79903300}, 

2.36844300}, 

3.26847000}, 

1.39055100}, 

4.74540700}, 

1.08642000}, 

0.57653900}, 
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10 


15 


20 


25 


30 


35 


40 


0.85623100 
0.86360200 
0.87191100 
0.88449000 
0.88597700 
0.88639400, 
0.89434200 
0.90643900 
0.90839600 
0.91399200 
0.91656900 
0.92961200 
0.94094200 
0.94108100 
0.94571700 
0.95358200 
0.95915800, 
0.96277000 
0.97378400 
0.98207800, 
0.99072500, 
0.99243800, 
1.01672700, 
1.03854300, 
1.04200000 
1.05657500 
1.05926600 
1.09807600 
1.09926500 
L 10500000 
1.11778400 
1.13064700 
1.13718400, 
1.14440800. 
1.15061100, 
1.15294600 
1.16051300 
1.16686600 
1.18887200 
1.18999500 


0.15288900} 
1.76652000} 
2.95691000} 
3.34760400} 
2.27373000} 
1.28403400} 
3.77774700} 
0.47559100} 
7.06712400} 
0.86047400} 
4.61102600} 
1.97636200} 
0.70526500} 
1.41049800} 
2.61474000} 
0.23313000} 
0.98334300} 
3.76910300} 
1.42551300} 
0.51399000} 
1.99141000} 
3.29063900} 
2.42313600} 
0.79424600} 
0.40869700} 
2.13161600} 
1.16308600} 
4.16487000} 
2.79674000} 
0.15447500} 
0.58757400} 
1.15821700} 
2.00167200} 
3.24315600} 
0.80219900} 
4.53179200} 
5.56319400} 
2.75126500} 
3.80809000} 
1.39510700} 
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/* Conexant System Inc. *' 
5 /* 43 1 1 Jamboree Road 
/* Newport Beach, CA 92660 
/* 


*/ 

*/ 
— */ 


/* Copyright(C) 2000 Conexant System Inc. */ 
V 


7 


10 /* ALL RIGHTS RESERVED: *' 

/* No part of this software may be reproduced in any form or by any * 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 


15 /* FILE: FLOAT64 gainVQ_3_256 


*/ 


=*/ 


FLOAT64 gainVQ_3_256[MSMAX_3_256] [GVQ_VEC_SIZE_3D]={ 



0.18423671, 

0.06523999, 

0.13390472}, 

20 { 

0.27552690, 

0.09702324, 

0.05427950}, 


0.43928408, 

0.09916646, 

0.07929166}, 


0.30334933, 

0.18716016, 

0.31678128}, 


0.41418666, 

0.21261386, 

0.15384708}, 


0.37873043, 

0.42174574, 

0.04961395}, 

25 { 

0.29147613, 

0.29845310, 

0.40867354}, 


0.43405077, 

0.35567807, 

0.26669122}, 


0.53415143, 

0.29394379, 

0.16766848}, 


0.50717581, 

0.11896112, 

0.37699809}, 


0.66212668, 

0.19329986, 

0.10043744}, 

30 { 

0.54479938, 

0.42417890, 

0.28406764}, 


0.72548595, 

0.35772887, 

0.24749989}, 


0.60787704, 

0.60357108, 

0.11571399}, 


0.44866082, 

0.50410116, 

0.54628895}, 


0.63617079, 

0.44004655, 

0.39629087}, 

35 { 

0.60380713, 

0.57881179, 

0.23710724}, 


0.57147613, 

0.32845310, 

0.63867354}, 


0.58377105, 

0.62781041, 

0.35943653}, 


0.84962970, 

0.34766924, 

0.25346008}, 


0.70304065, 

0.42216057, 

0.5027513O}, 

40 { 

0.56733319, 

0.77096928, 

0.44681334}, 
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[ 0.67739743, 

0.55274660, 

0.62815394}, 


0.50377105, 

0.59781041, 

0.75943653}, 


1.02493622, 

0.30657679, 

0.22040604}, 


0.89224001, 

0.44816208, 

0.47573256}, 

5 { 

0.78742879, 

0.65575239, 

0.41906662}, 


0.86962970, 

0.52766924, 

0.45346008}, 


0.70147613, 

0.70845310, 

0.63867354}, 


0.56375176, 

0.54331588, 

0.93399510}, 


0.56880138, 

0.85878 106, 

0.65405398}, 

10 { 

0.89237889, 

0.63875680, 

0.73716397}, 


L2 1640268, 

0.51021986, 

0.33177812}, 


1.10769596, 

0.60105476, 

0.51909185}, 


0.92783571, 

0.90203672, 

0.42962756}, 


0.91304065, 

0.82216057, 

0.59275130}, 

15 { 

0.73462016, 

0.87102291, 

0.79155967}, 


0.51415143, 

0.49394379, 

1.21766848}, 


0.80147613, 

0.80845310, 

0.90867354}, 


0.65577617, 

0.84190122, 

1.06996396}, 


1.04057248, 

0.81830130, 

0.74445659}, 

20 { 

1.50153717, 

0.23078537, 

0.11994055}, 


0.61337482, 

1.28879057, 

0.59880559}, 


0.92002052, 

0.66569019, 

1.10918314}, 


0.86113057, 

1.00464835, 

0.88498578}, 


1.30843346, 

0.78609255, 

0.56090355}, 

25 { 

0.68218806, 

1.10235747, 

1.02459256}, 


0.80147613, 

0.80845310, 

1.20867354}, 


1.07221236, 

1.07266347, 

0.70109317}, 


1.04005621, 

0.92340675, 

1.07639990}, 


1.67199089, 

0.43317129, 

0.40693115}, 

30 { 

0.80769819, 

1.03723493, 

1.21036557}, 


0.65537261, 

0.88560134, 

1.42463688}, 


0.84912716, 

1.37797097, 

0.83138440}, 


0.38727281, 

0.81106102, 

1.61211439}, 


0.97653020, 

1.24782107, 

0.97497746}, 

35 { 

1.68437217, 

0.69187863, 

0.60223674}, 


1.31480645, 

0.82070608, 

1.13008054}, 


1.40769819, 

0.60723493, 

1.21036557}, 


1*06758231, 

0.90166400, 

1.38433931}, 


1.41916427, 

0.61926269, 

1.23316072}, 

40 { 

0.76932084, 

1.68403889, 

0.70472831}, 
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1.53994895, 

0.92045545, 

0.84686607}, 


1.17434557, 

1.25676753, 

1,08675163}, 


0.71281086, 

1.31583463, 

1.39405615}, 


1.50787704, 

1.35357108, 

0.41571399}, 

5 { 

1.28870929, 

1.43696572, 

0.74659127}, 


1.34769819, 

1.23723493, 

1.01036557}, 


1.80304065, 

0.92216057, 

0.52275130}, 


1.59276987, 

1.19748085, 

0.65036773}, 


0.84678170, 

1.14114978, 

1.56930890}, 

10 { 

2.09205535, 

0.42435557, 

0.27661303}, 


1.07739708, 

1.25581010, 

1.37870129}, 


2.03213590, 

0.68376401, 

0.57647235}, 


2.01481852, 

0.45383006, 

0.85771860}, 


0.61943236, 

1.95135273, 

0.91598867}, 

15 { 

1.04773632, 

1.59531164, 

1.19066755}, 


0.88978466, 

0.85386113, 

1.90357651}, 


1.29776536, 

0.96049994, 

1.61141126}, 


1.72645587, 

0.69770038, 

1.39133233}, 


0.52462760, 

1.59032755, 

1.64085701}, 

20 { 

1.00705056, 

1.38018864, 

1.62839872}, 


2.27773340, 

0.42174080, 

0.48770699}, 


1.33914079, 

1.44432940, 

1.40032266}, 


1.86798260, 

1.23959629, 

1.04625425}, 


1.60300067, 

L45834785, 

1.20724126}, 

25 { 

1.17075928, 

1.17666852, 

1.84692307}, 


141613105, 

1.75303586, 

1.06875197}, 


0.92063093, 

1.92289980, 

1.30647683}, 


0.73106711, 

1.10141804, 

2.15959529}, 


1.78833214, 

1.08633166, 

1.44314613}, 

30 { 

0.93493402, 

1.72883883, 

1.61840939}, 


0.83214354, 

1.44720912, 

1.92942400}, 


1.54501647, 

1.16781309, 

1.67929750}, 


LI 1904841, 

1.57436071, 

1.88570305}, 


1.53104237, 

1.66544824, 

1.54667736}, 

35 { 

1.14438336, 

1.79996622, 

1.75932112}, 


1.47409522, 

1.21483017, 

2.01998560}, 


0.76523771, 

2.00844105, 

1.79018034}, 


2.04771424, 

1.67904043, 

0.96 105927}, 


0.54181758, 

0.98357105, 

2.58609881}, 

40 { 

1.58307521, 

1.51532393, 

1.79540195}, 
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2.43500575, 

1.09257895, 

0.95481845}, 


0.97756624, 

1.44705987, 

2.24968026}, 


1.89166746, 

1.35363713, 

1.80890663}, 


1.18415143, 

2.59394379, 

0.80766848}, 

5 { 

1.36028189, 

1.68437713, 

2.04041326}, 


0.91784174, 

2.60471655, 

1.20769601}, 


0.80520427, 

1.92410272, 

2.25712012}, 


2.98285984, 

0.68934076, 

0.29605000}, 


L50266600, 

2.22699291, 

1.50071492}, 

10 { 

1.82265397, 

1.87159390, 

1.65277587}, 


1.09905937, 

2.18713881, 

1.90143173}, 


2.33704557, 

1.33227401, 

1.58215136}, 


2.35241303, 

1.69726111, 

1.26872325}, 


1.04808551, 

1.49066820, 

2.64982303}, 

15 { 

1.46152881, 

1.57356066, 

2.40756748}, 


2.72968460, 

1.23697995, 

1.20994651}, 


2.83739322, 

0.72272909, 

1.39076807}, 


0.82555146, 

1.04009950, 

3.02533361}, 


1.42045226, 

1.95032360, 

2.28339356}, 

20 { 

1.80302484, 

1.44216516, 

2.45919838}, 


2.06483654, 

1.93254106, 
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6 an adaptive codebook component (144, 176) forming a plurality of the bits in the bitstream, where the 

7 adaptive codebook component (144, 176) comprises a long term predictor of the frame that is encoded in digital 

8 form; 

8 a fixed codebook component (146, 178) forming a plurality of the bits in the bilstrearn, where the fixed codebook 

9 component (144, 176) comprises a long term residual of the frame that is encoded in digital form; and 

10 a gain component (147, 179) forming a plurality of the bits in the bitstream, where the gain component 

1 1 ( 147, 179) comprises an adaptive codebook gain and a fixed codebook gain that is encoded in digital form. 
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What is claimed is: 

, i. A speech compression system (10) for encoding and decoding frames of a speech signal (18) to 

2 generate synthesized speech (20) comprising: 

3 a fu..-rate codec (22) operable to encode and decode the frames, the full-rate codec (22) being selectively 
activatable based on a rate selection and a type classification of each frame; 

a half-rate codec (24) operable to encode and decode the frames, the half-rate codec (24) be.ng sc.ect.vely 
activatable based on the rate selection and the type classification of each frame; 

a quarter-rate codec (26) operable to encode and decode the frames, the quarter-rate codec (26) bemg 

8 selectively activatable based on the rate selection; and 

9 an eighth-rate codec (28) operable to encode and decode the frames, the eighth-rate codec (28) be.ng 

10 selectively activatable based on the rate selection. 
2 An excitation-processing module (54) for encoding a fixed codebook gain and an adaptive 

codebook gain, where the gains are generated during encoding of a frame of a speech signal (18), comprising: 

a type selector module (68. 78) operable to selectively designate the type classification of the Irame as 

4 Type 21ero and Type One; 

a firs, subframe processing module (70, 80) that is operable to quantize the fixed codebook gam and the 
adaptive codebook gain when the type classification of the frame is Type Zero, the firs, subframe process.ng 
module (70, 80) compris.ng a ,wo-dimensional vector quantizer (164) and a 2D gain quantizat.on table that » 
searchable by the two-dimensional vector quantizer (164). where the 2D gain quantization table compnses a 
plurality of predetermined vector, that are seleCab.e by the two-dimensional vector quantizer (164) to jomt.y 
10 encode the fixed codebook gain and the adaptive codebook gain; 

a first frame processing module (72, 82) that is operable to quantize the adaptive codebook gam when the 
type classification of the frame is Type One. the first frame processing module (72, 82) comprising a mu.t,- 
dimensional pre vector quantizer (166, 198) and a pre-gain quantization table that is searchable by the mult- 
dimensional pre vector quantizer (166, 198), where the pre-gain quantization table comprises a ph.ral.ty of 
predetermined vectors that are selectable by the muUi-d.mensiona, pre vector quantizer (166, 198) to encode the 

16 adaptive codebook gain; and 

17 a second frame processing module (76, 86) that is operable to quantize the fixed codebook ga.n based on 
the type classification of the frame as Type One. the second frame processing module (76, 86) comprising a mu.u- 
dimensional delayed vector quantizer (168, 200) and a de.ayed gain quantization table that is searchable by the 
multi-dimensional de.ayed vector quantizer (168, 200), *,here the de.ayed ga.n quantization table compnses a 
pl urality of predetermined vectors that are selectable by the multidimensional delayed vector quant.zer ( .68. 200) 

22 to encode the fixed codebook gain. 

! 3 A bitstream that represents a frame of a speech signal ( 1 8) comprising: 

a type component (142, 174) forming a bit in the bitstream, where the type component (142, 174) provides 

3 a type classification of the frame and controls the coding; 

4 an LSF component (140, 172) forming a plurality of the bits in the bitstream, where the LSF component 
(140, 172) comprises a spectral representation of the frame that is encoded in digital form; 
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{0, 5, 10, 15, 20, 25, 30, 35, 2, 7, 12, 17, 22, 27, 32, 37}, 

(1, 6, 11, 16, 21, 26, 31, 36, 3, 8, 13, 18, 23, 28, 33, 38}, 

{4, 9, 14, 19, 24, 29, 34, 39, 0, 0, 0, 0, 0, 0, 0, 0), 

{1, 6, 11, 16, 21, 26, 31, 36, 3, 8, 13, 18, 23, 28, 33, 38}, 

{4, 9, 14, 19, 24, 29, 34, 39, 0, 0, 0, 0, 0, 0, 0, 0), 


} ; 


10 /* 5 pulses CB : 5p x 3b + 5b signs = 20 bits 


+ 


/ 


static short track_5_3_2 [ 5] ( 8] = { 

{0, 1, 2, 3, 4, 6, 8, 10), 

15 {5, 9, 13, 16, 19, 22, 25, 27}, 

{7, 11, 15, 18, 21, 24, 28, 32}, 

{12, 14, 17, 20, 23, 26, 30, 34}, 

{29, 31, 33, 35, 36, 37, 38, 39} 


} 


20 


/* 5 pulses CB : 5p x 3b + 5b signs = 20 bits */ 
/* / 

25 

static short track_5_3_l [ 5] [ 8 ] = { 

(0, 1, 2, 3, 4, 5, 6, 7 }, 
{8, 9, 10, 11, 12, 13, 14, 15}, 
{16, 17, 18, 19, 20, 21, 22, 23}, 
30 {24, 25, 26, 27, 28, 29, 30, 31), 

{32, 33, 34, 35, 36, 37, 38, 39} 

}; 


"/*- 
35 */ 


/*========================================= 

*/ 

/* END 


40 +/ 
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/* */ 

/* 1 pulse CB : 1 pulse x 4 bits/pulse + 1 signs =5 (4) bits */ 
/* */ 

5 

static INT16 track 1 4 0[1][16]={ 


{0, 4, 8, 12, 16, 20, 24, 28, 33, 38, 43, 48, 53, 58, 63, 68} 

}; 


,* */ 

/*============================ 30 bits FCB ==========================*/ 

/* - */ 

15 

/* */ 

/* 8 pulses CB : 6p x 3b + 2p x 4b + 4b signs = 30 bits */ 
/* */ 


20 static INT16 track_8_4_0 [ 8 ] [ 16] = { 

{0, 5, 10, 15, 20, 25, 30, 35, 2, 7, 12, 17, 22, 27, 32, 37}, 

{1, 6, 11, 16, 21, 26, 31, 36, 0, 0, 0, 0, 0, 0, 0, 0}, 

{3, 8, 13, 18, 23, 28, 33, 38, 0, 0, 0, 0, 0, 0, 0, 0}, 

{4, 9, 14, 19, 24, 29, 34, 39, 0, 0, 0, 0, 0, 0, 0, 0}, 

25 

(0, 5, 10, 15, 20, 25, 30, 35, 2, 7, 12, 17, 22, 27, 32, 37}, 

{1, 6, 11, 16, 21, 26, 31, 36, 0, 0, 0, 0, 0, 0, 0, 0}, 

{3, 8, 13, 18, 23, 28, 33, 38, 0, 0, 0, 0, 0, 0, 0, 0), 

{4, 9, 14, 19, 24, 29, 34, 39, 0,- 0, 0, 0, 0, 0, 0, 0} 

30 ); 


/* V 

22 bits FCB ==========================*/ 

35 /* */ 

/* */ 

/* 5 pulses CB : 3p x 4b + 2p x 3b + 3b signs = 21 bits */ 
/* */ 

40 


static short track_5 4 0[5][16]=( 
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27, 29, 31, 33, 35, 37, 39, 41, 43, 45, 47, 49, 51}); 

*/ 

/* 

/+ 3 pulses CB : 3 pulses x 2 bits/pulse + 3 signs = 9 bits / 

*/ 

5 / + 

static INT16 track_3_2_0[3] [4]={ 

{0, 3, 6, 9), (1, 4, 7, 10), 12, 5, 8, 11) 

); 

10 V 

/*_: 

/* 1 pulse CB : 1 pulse x 3 bits/pulse + 1 signs = 4 (3) bits V 

*/ 

/* 

15 static INT16 track_l_3_0 [ 1 ] [ 8 ) = { 

{0, 5, 11, 17, 23, 29, 35, 41} 

} ; 












/+ 2 pulses CB : 

2pulses x 6.5bits/pulse + 1 sign = 14 bits 

*/ 



static INT16 track_2_7_l[2] [80]-{ 

30 


35 


40 


{0, 

1, 

2, 

3, 

4, 

5, 

6, 

7, 

8, 

9, 

10, 

11, 

12, 

13, 

14, 

15, 

16, 

17, 

18, 

19, 

20, 

21, 

22, 

23, 

24, 

25, 

26, 

27, 

28, 

29, 

30, 

31, 

32, 

33, 

34, 

35, 

36, 

37, 

38, 

39, 

40, 

41, 

42, 

43, 

44, 

45, 

46, 

47, 

48, 

49, 

50, 

51, 

52, 

53, 

54, 

55, 

56, 

57, 

58, 

59, 

60, 

61, 

62, 

63, 

64, 

65, 

66, 

67, 

68, 

69, 

70, 

71, 

72, 

73, 

74, 

75, 

76, 

77, 

78, 

79) , 

{0, 

1, 

2, 

3, 

4, 

5, 

6, 

7, 

8, 

9, 

10, 

11, 

12, 

13, 

14, 

15, 

16, 

17, 

18, 

19, 

20, 

21, 

22, 

23, 

24, 

25, 

26, 

27, 

28, 

29, 

30, 

31, 

32, 

33, 

34, 

35, 

36, 

37, 

38, 

39, 

40, 

41, 

42, 

43, 

44, 

45, 

46, 

47, 

48, 

49, 

50, 

51, 

52, 

53, 

54, 

55, 

56, 

57, 

58, 

59, 

60, 

61, 

62, 

63, 

64, 

65, 

66, 

67, 

68, 

69, 

70, 

71, 

72, 

73, 

74, 

75, 

76, 

77, 

78, 

79) 
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/*== 


5 /* ==================== ^ ====== „ ====== ^^ 

/* Conexant System Inc. */ 
/* 4311 Jamboree Road */ 
/* Newport Beach, CA 92660 */ 
/* */ 

10 /* Copyright (C) 2000 Conexant System Inc. */ 

/*-— — */ 

/* ALL RIGHTS RESERVED: */ 
/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 

15 /* or adaptation) without the authorisation of Conexant System Inc. */ 

/* LIBRARY: tracks. tab */ 

20 / + 

*/ 


*/ 

/* 

25 */ 

static INT16 srchpuls[12] = {0, 1, 2, 3, 4, 6, 5, 7, 0, 7, 1, 6) ; 


30 


13 bits FCB 


-*/ 
= */ 
■*/ 


/* */ 

/* 2 pulses CB : 2pulses x 5bits/pulse + 2 signs = 12 bits */ 
35 /* */ 

static INT16 track_2_5_0 [2 ) [ 32 ] = ( 

{0,1,2, 3, 4, 5, 6^,8,9, 10, 12, 14, 16, 18, 20, 22, 24, 26, 
28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50, 52), 

40 

{1, 3, 5, 7, 9, 11,12,13,14,15,16,17,18,19,20,21,22,23, 25, 
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{ 0.00000000 1 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000} , 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

5 { 0.00000000 , 0.00000000 , 0.00000000, o.oooooooo, 0.00000000, 
O.OOOOOOOO , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 

10 0.00000000, 0.00000000, 0.00000000, 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000, 
0.00000000 , 0.00000000 , 0.00000000 , O.OOOOOOOO}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , O.OOOOOOOO}, 

15 { 0.00000000, O.OOOOOOOO, 0.00000000, O.OOOOOOOO, 0.00000000, 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

}, 

20 }; 


0.00000000 , 
0.00000000 , 
0.00000000 , 
0.00000000 , 
0.00000000 , 
0.00000000 , 
0.00000000 , 
0.00000000 , 
0.00000000 , 


/*= 

25 /*- 

/*= 


END 


=*/ 


-*/ 


==*/ 
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{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 f 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000, 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
5 { 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000, 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000, 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
' { 0.00000000 , 0.00000000, 0.00000000, 0.00000000, 
10 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000, 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
15 { 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0 00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000, 
20 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000, 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
25 { 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000, 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
30 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
35 { 0.00000000, 0.00000000, 0.00000000, 0.00000000, 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
40 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 
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{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 t 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000, 0.00000000, 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000, 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
5 { 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000, o.oooooooo, o.oooooooo, 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000, 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000, o.oooooooo, o.oooooooo, 0.00000000 , 0.00000000, 
10 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , O.OOOOOOOO}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
15 { 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000, 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ O.OOOOOOOO, 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000, 
20 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000, 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
25 { 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000, 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000, O.OOOOOOOO, 0.00000000 , 0.00000000, 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
30 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
35 { 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000, 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000, 
40 0.00000000 , 0.00000000 , 0.00000000 , O.OOOOOOOO}, 
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{ -0.00177727, -O.0O08844O, 0.00112403, 0.00121361 
0.00097416, -0.00196491, -0.00458979, 0.00926580}, 
{ -0.00063716, -0.00074135, -0. 00320684 , 0.00060174 
0.00095403, -0.00052926, -0.01098564 , 0.00521625}, 
5 { 0.00147074, -0.00242869, -0.00034958, 0.00151139 
0.00341839 , -0.00116328 , -0.00521109 , -0.00834604}, 
{ -0.00089161, 0.00169236 , 0.00070051, -0.00300855 
0.00078356 , -0.00301007 , -0.00620281 , -0.00242624}, 
{ 0.00009583 , 0.00150178 , -0.00007453 , 0.00239520 

10 0.00167806, -0.00123525, -0.00775452, -0.00448655}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

15 { 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 

20 0.00000000, 0.00000000, 0.00000000, 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

25 { 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 

30 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

35 { 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000, O.OOOOOOOO, 0.00000000, 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 

40 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 


-0.004463 13, -0.00 1 90805 , 


0.00146160 , -0.00175724 


-0.00105102 , 0.00117536, 


-0.00261332 , -0.00489216 , 


0.00522328, 0.00147270, 


0.00000000 , 0.00000000 , 


0.00000000 t 0.00000000 , 


0.00000000 , 0.00000000 . 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 
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5 { -0.00099595, 0.00094685, -0.00331898, -0.00146973, 
0.00709227 , -0.01524743 , 0.00441790 , 0.00173202}, 
{ -0.00408121, 0.00089766 , 0.00094466 , 0.00325065, 
0.00589924 , 0.00322853 , -0.00242561 , 0.00219359}, 
{ -0.00257228 , -0.00179791 , -0.00268333 , -0.00031574 , 
10 0.00741923, -0.00260730, -O.00501607, 0.00224587}, 
{ -0.00113380 , -0.00073103 , -0.00428704 , 0.00683978 , 
0.00044871, -0.00602975, -0.00321987, -0.00597447}, 
{ 0.00341457, 0.00178256, -0.00503937, -0.00927698, 
0.00337487 , 0.00382129 , 0.00237729 , -0.00228635}, 
15 { -0.00621084, 0.00386607, 0.00249559, 0.00131394, 
0.00461110, -0.00825484, 0.00388321, 0.00049303}, 
{ -0.0007 1191, -0.00404093 , -0.00406227 , -0.00362297 , 
0.00823714 , 0.00458085 , -0.00313846 , -0.00720971}, 
{ -0.00317347 , -0.0041 1505 , 0.00155333 , -0.00082595 , 
20 0.00193732, 0.00016764, 0.00304433 , 0.00055788}, 

{ -0.00530220 , 0.00236141 , 0.00160612 , -0.00435760 , 
0.01171124, 0.00597055, 0.00152771, -0.00160379}, 
{ -0.00380354 , -0.00248355 , -0.00205986 , 0.00649275 , 
0.00469793 , 0.00036483 , 0.00663194 , 0.00243151}, 
25 { -0.00319243 , -0.003201 18 , 0.00582574 , -0.00058566 , 
0.000083 10 , -O.00664409 , -0.00607386 , -0.00673633 }, 
{ -0.01462694 , 0.01047577 , 0.00080652 , -0.00036210 , 
0.00368270 , 0.00243329 , 0.00218546 , -0.00253235}, 
{ 0.00057512 , -0.00450090 , -0.01 124568 , -0.00049298 , 
30 0.00243412, 0.00051171, -0.00145560, -0.00282889}, 
{ -0.01118169 , 0.00200960 , 0.01001314 , 0.00019961, 
0.00168001 , -0.00091 153 , -0.00359078 , -0.00690694}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
35 { 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000, 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000, 0.00000000, 0.00000000, 0.00000000, 
0.00000000 , 0.00000000 , 0.00000000 , 0,00000000}, 
{ 0.00000000 , 0.00000000, o.oooooooo, o.oooooooo, 
40 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 


-0.00292273 , 
-0.00283377 , 
0.00179052 , 
0.00672033 , 
-0.00571698, 
0.00594497 , 
0.00228853 , 
0.00261413 , 
-0.00396032 , 
0.00270407 , 
-0.00325925 , 
-0.00148701 , 
-0.00096663 , 
0.00012141 , 
0.00071818 , 
0,00375019 , 
0.00000000 , 
0.00000000 , 
0.00000000 , 
0.00000000 , 


-0.00487562 , 
-0.00246661 , 
-0.00139797, 
-0.00019249 , 
-0.00369395 , 
0.00372150 , 
0.00247928 , 
0.00158248 , 
-0.00054434 , 
0.00844264 , 
-0.00106870 , 
-0.00123465 , 
-0.00345346 , 
-0,00213070, 
-0.00244420 , 
0.00144620 , 
0.00000000 , 
0.00000000 , 
0.00000000 , 
0.00000000 , 
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{ 0.00154864, 0.00175935, 0.00137842, 0.00332717 , 
0.00898536 , 0.00426355 , 0.00356744 , -0.00048447}, 
{ -0.001 10883 , -0.00025148 , 0.001 18848 , -O.00870558 , 
0.00271981, -0.00453412, 0.00242571, 0.00849993}, 
5 { 0.00070532, -0.00025072, 0.00366505, -0.00167716, 
0.00688567 , 0.00095235 , -0.01077141 , 0.00293674}, 
{ 0.00269407, 0.00092414, -0.00878398, 0.00160851, 
0.00082998 , -0.00270264 , -0.00442263 , -0.00888590}, 
{ -0.00278214, 0.00287601, -0.00500381, -O.00138864 , 

10 0.00637880, -0.00326541, 0.00157648, -0.00131956}, 
{ 0.00363546 , 0.00214577 , 0.00414674 , 0.00266734 , 
0.00712001, 0.00206326, -0.00523273, 0.01149989}, 
{ -0.00000026, -0.00386427 , 0.00640634 , 0.00261276, 
0.01273183 , 0.00959437, -0.00109646, -0.00530037}, 

15 { 0.00349409 , 0.00059023, -0.00230930 , 0.00261091, 
0.01029008 , 0.00287435 , -0.00605374 , -0.00529882}, 
{ 0.00353078, 0.00009537, 0.00405514, -0.00273642, 
0.00769497, 0.00918448, 0.00100596, -0.00354415}, 
{ -0.00048915, 0.00219592, 0.00196135, 0.00371528, 

20 0.00952075, 0.00796835, -0.00439759, -0.00914252}, 

{ 0.00099541, -0.00179639, -O.00422007 , 0.00144744, 
0.00517048, -0.00422113, 0.00026459, 0.01125521}, 
{ 0.00284500 , 0.00255142, -0.00501236, -0.00399376, 
0.00396111, -0.00344911, -0.01026568, 0.00482538}, 

25 { -0.00325499, 0.00057240, -0.00117489, -0.00668998, 
0.00012935, -0.00535898, -0.00161315, -0.00518571}, 
{ -0.00204424 , -0.00205964 , -0.00267784 , -0.00085138 , 
0.00136307, -0.00173559, -0.00516495, 0.01164448}, 
{ -0.00410270, 0.00939750, 0.00385454, 0.00290060, 

30 0.00582770, -0.00159821, -0.00199349, -0.00404345}, 

{ 0.00129409 , -0.00184888 , -0.00259575 , -0.00257605 , 
0.00858313 , -0.00202067 , -0.00340528 , -0.00772488}, 
{ -0.00235071 , -0.00109572 , -0.00477851 , -0.00437243 , 
0.00018923, 0.00108088, 0.00900257, 0.00726468}, 

35 { -0.00078569 , 0.00304111, 0.00186742, -0.00410820, 
0.00330057, -0.00122075, -0.01093924, -0.00844479}, 
{ 0.00095778 , 0.00049767 , 0.00293670 , 0.00335490 , 
0.00308668 , -0.01 163045 , -0.01418884 , 0.00720374}, 
{ 0.00026347 , -0.00164608 , -0.00094501 , 0.00772980 , 

40 0.00689654, -0.00084991, -0.01277967, -0.00052741}, 


-O.00770257 , -0.00281735 , 


0.00650556 , 
-0.00296136 , 
-0.00639129 , 
-0.00284296 , 
-0.00079453 , 
0.00277903 , 
-0.00124556 , 
-0.00681506 , 
0.00049757 , 
-0.00122703 , 
0.00453097 , 
-0.00387262 , 
0.00334009 , 
0.00194424 , 
0.00297719, 
0.00461958, 
0.00456433 , 
0.00341477, 
0.00046633 , 


0.00586968 , 
0.01020369 , 

-O;00094266 , 
-0.00735792 , 

-O.00406520 , 

-0.00013026, 

-0.00746849 , 
0.00089121 , 

-0.00921692 , 
0.00894285 , 

-0.00045817 , 
0.00826259 , 
-0.00839914, 
0.00206843 , 
0.00723570 , 
0.00073576 , 

-0.00060262 , 
0.00244888 , 

-0.00128056 , 
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{ 0.00013985, -0.00141381, -0.00365764, 0.00326014, 
0.00651280 , -0.00398857 , 0.00748833 , 0.00190015}, 
{ 0.00696733, 0.01084724, 0.00240300, -0.00150848, 
0.00258365 , -0.00025 108 , -0.00054973 , 0.00 1 45405 }, 
5 { -0.00023407, -0.00239894 , 0.00102984 , 0.00612422, 
0.00206586 , 0.00942366 , 0.00106978 , -0.00561362}, 
{ 0.00234993, -0.00051945, -0.00417579, -0.00371189, 
0.00565083 , 0.01242620 , -0.00050916 , -0.00199941}, 
{ -O.00188685, -0.00077652, 0.00330529, -0.00125596, 
10 0.00240911 , 0.00818219 , 0.00350082 , 0.00295110}, 
{ -0.00076638 , 0.00183468 , 0.00532269 , -0.00322180 , 
0.00336437, 0.00908956, 0.00331912, -0.00190910}, 
{ 0.00111320, -0.00037587, -0.00024503, 0.00402914, 
0.01232017 , 0.01351714 , 0.01213235 , 0.00516090}, 
15 { 0.00210448 , 0.00546874 , -0.00340875 , 0.00102174 , 
0.00435470 , -0.00040125 , 0.00165970 , -0.00364914}, 
{ 0.00126084 , 0.00040107, -O.0O141030, -0.00645370, 
0.00332637, 0.00396915, 0.00628144, 0.00809955}, 
{ 0.00117079, 0.00059576, -0.00014311 , -0.00465681 , 
20 0.00138077, -0.00704582, -0.01184659, 0.00882896}, 
{ 0.00138973, 0.00123652, 0.00304817, -0.00507302, 
0.01331825 , 0.00027167 , 0.00470983 , 0.00387003}, 
{ 0.00076815 , 0.00155115 , 0.00291000 , 0.00703008 , 
0.00301572, -0.00341427, 0.00549137, 0.00287316}, 
25 { 0.00033265, -0.00047441, -0.00019610, -0.00024157, 
0.00205734 , 0.00161241, 0.00131464 , 0.00131441}, 
{ -0.00378284 , -0.00044598 , -0.00380424 , -0.0033 1 107 , 
0.00829789, 0.00941720, 0.00051424, -0.00585368}, 
{ 0.00195321, 0.00184592, -0.00126926, 0.00055559, 
30 0.00243223, -0.00459577, 0.01175538, 0.01116091}, 

{ -0.00023710 , 0.00162962 , -0.00275466 , -0.00136286 , 
0.00845523, 0.00355330, -0.00205688, -0.00505345}, 
{ 0.00427265, 0.00381217, -0.00033214, 0.00105652, 
0.00048308, -0.00797174, 0.00324721, -0.00023383}, 
35 { 0.00026448, -0. 00067 842 , 0.00107705, 0.00333172, 
0.00951886 , 0.00930392 , 0.00693669 , 0.00857660}, 
{ 0.00407814, 0.00285434, 0.00269327, 0.00424816, 
0.00096518 , 0.00184609 , -0.00404653 , -0.00582069}, 
{ 0.0005 1601 , 0.00244371 , 0.00807730 , -O.00659189 , 
40 0.00067461 , -0.00520723 , 0.00006501 , -0.00106395}, 


-0.00874184 , 0.00148973 


-0.00300501 , -0.00039626 


-0.00136156, 0.00867489, 


0.00167682 , -0.00557327 , 


-0.00501212 , -0.00913486 , 


0.00552090 , 0.002564 1 2 , 


0.00237231 , -0.00271156, 


0.00582430 , -0.00256006 ; 


-0.00571476 , 0.00271883 


-0.00591 142 , -0.00478553 , 


0.00288668 , -0.00338459 , 


0.00621193 , 0.00485275, 


0.01414834, 0.00262556 , 


0.00360503 , -0.00291761 


-0.00055360 , -0.0072 1628 , 


0.00636333 , 0.00927344 , 


-0.00486730 , 0.00089909 , 


0.00195835 , 0.00189156 


0.00462708 , 0.00521001 , 


0.00075139 , 0.00120002 , 
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{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}; 

5 { 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000, 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
10 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0,00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0,00000000 , 0.00000000 , 0.00000000}, 

15 { 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000, 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000, 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
20 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

h 

{{ 0.00007302, -0.00074506 , 0.00167535, -0.00200298, -0.01561921, 0.00467142 
25 0.00250590, -0.00179108, 0.00045385, -0.00218648}, 

{ 0.00093298 , -0.00177509 , 0.01404716 , 0.OO543233 , 0.00031596 , 0.00291425 , 
0.00009707 , 0.0016751 1 , 0.00182873 , 0.00219560}, 

{ -O.00174480 , 0.00007287 , -0.00089953 , -0.01199317 , -0.00050311 , -0.00556124 , 
0.00281232 , -0.00270383 , -0.001 14969 , -0.00214721}, 

30 { -O.00262070 , 0.00748139, -0.00280502, -0.00136286, -0.00078590 , 0.00175876, 
0.00098000 , 0.00457380 , 0.00355523 , 0.01034175}, 

{ 0.00074436 , -0.00115665 , 0.00189529 , 0.01 157575 , 0.00224026 , -0.00212844 , 
0.00306117 , 0.00230632 , -0.0027891 1 , 0.00703257}, 

{ 0.00390810, 0.00046965, -0.00695795, 0.00670060, 0.00287957, 0.00210736, 
35 0.00370070, 0.00504010, 0.00404556, 0.00019377}, 

{ 0.00189179 , 0.00096211, 0.00210929 , 0.00010549, -0.00104655 , 0.01168018, 
0.00070392, 0.00279664, 0.00885825, 0.00387118}, 

{ -O.00079471, -0.00199071, 0.00625236, 0.00278785, -0.00271890, 0.00075786, 
0.00309626, -0.00618918, 0.00809770, 0.01078922}, 


3NSDOCID: <WO 0122402A1.I. > 


WO 01/22402 


PCT/USOO/25182 


945 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 1 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
5 { 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
10 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 1 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
15 { 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 . 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
20 0.00000000 , 0.00000000 , 0.00000000 , 0,00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000, 
0.O00OOOOO, 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
25 { 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
30 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
35 { 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000, 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
40 0.00000000, 0.00000000, 0.00000000, 0.00000000}, 


0.00000000 , 0.00000000 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 
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{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

5 { 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000 
0.00000000, 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 

10 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

15 { 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 

20 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

25 { 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 

30 0.00000000, 0.00000000, 0.00000000, 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

35 { 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 . 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 

40 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 


0.00000000 , 
0.00000000 , 
0.00000000 , 
0.00000000 , 
0.00000000 , 
0.00000000 , 
0.00000000 , 
0.00000000 , 
0.00000000 , 
0.00000000 , 
0.00000000 , 
0.00000000 , 
0.00000000 , 
0.00000000 , 
0.00000000 , 
0.00000000 , 
0.00000000 , 
0.00000000 , 
0.00000000 , 
0.00000000 , 
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{ 0.00718619 , 0.00681000 , 0.01045663 , 0.01057205 , 
0.00035579, -0.00555201, -0.01126034, -0.00898206}, 
{ 0.00405121 , 0.00357693 , 0.00265770 , -0.00375096 , 
0.01345036 , 0.01 153075 , 0.01532976 , 0.00847445}, 
5 { -0.00043160, -0.00087914, 0.00860999, 0.00148947, 
0.01237297, -0.00004966, -0.00106361, -0.00556562}, 
{ -0.00056662 , -0.00212456 , -0.00117172 , 0.00762109 , 
0.01128915 , -0.01699960 , 0.01354709 , 0.01176087}, 
{ -0.00408654 , -0.00096384 , -0.00423818 , -0.00744231 , 
10 0.01141891, 4)01555846, -0.01246216, 0.00585658}, 
{ -O.00039385 , 0.00025901 , 0.00353937 , 0.00203476 , 
0.00340730, -0.01026764, -0.02600074, -0.02177020}, 
{ 0.00243314 , 0.00343546 , 0.00161754, -0.00371032, 
0.02319258, -0.02738033, 0.00899502, 0.00814799}, 
15 { 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000, 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
20 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
25 { 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000, 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ o.oooooooo, 0.00000000 , 0.00000000 , 0.00000000, 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000, 
30 0.00000000 , 0.00000000, 0.00000000, 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000, 0.00000000, o.oooooooo, 0.00000000, 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
35 { 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000, 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
40 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 


0.00363275 , 0.00 1269 16 , 


-0.00505171 , -0.01364679 , 


0.00531393 , 0.00352189 , 


0.00219673 , -0.00025564 , 


-0.00876295 , -0.01304774 , 


-0.00176971 , 0.00209237 , 


-0.00350422 , -0.00970857 , 


0.00000000 , 0.00000000 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 
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{ -0.00161021, 0.00070235, -0.00059480, 0.00445431, 
0.00000194, 0.00135627, -0.00251368 , -0.00203525}, 
{ -0.00651984, -0.00550594, -0.00499920, -0.00484211, 
0.00706928 , -0.00334101 , -0.01055323 , -0.00690449}, 
5 { 0.00457578, 0.00388137, 0.00548547, 0.00933548, 
0.0045087 1 \ 0.0 1572982 , 0.0 1 107527 , 0.005285 13 }, 
{ -0.00466753 , -0.00445362 , -0.00337934 , -0.00944068 , 
0.00386050, 0.00763733, 0.01127368, 0.00761098}, 
{ 0.00228387, 0.00262173, -0.00174080, -0.00116707, 

10 0.00421486, -0.01083893, 0.00535106, 0.00251343}, 

{ -0.00226686, -0.00219198, -0.00696038, -0.00326018, 
0.00590006 , -0,00019387 , 0.01364628 , 0.01 164173}, 
{ -0.00525566, -0.00589099, -0.01282020, -0.00218846, 
0.00281350 , -0.00928819 , -0.00206454 , 0.00166221}, 

15 { -0.00648441, -0.00834980 , 0.00047410 , 0.00544467, 
0.00421142, 0.01267029, 0.00553720, 0.00203413}, 
{ -O.00319906, -0.00153334, -0.00319572, 0.00124053, 
0.00579935, -0.01876245, -0.02031045, -0.00047261}, 
{ 0.00153075 , 0.00203053 , 0.01557594 , 0.00248293 , 

20 0.00651748, 0.00288808, -0.00400202, -0.00632845}, 
{ 0.00486833 , 0.00291524 , 0.00857085 , 0.00288218, 
0.00270442, 0.00120835, 0.01880961, 0.01357284}, 
{ -0.00011043 , 0.00233758 , 0.00924841 , -0.00813434 , 
0.00359210, 0.01126875, 0.00746396, 0.00485185}, 

25 { -0.00494091, -0.00523131, 0.01230702, 0.01752272, 
0.01345777 , -0.00804930 , 0.00290803 , 0.00083750}, 
{ 0.00032569 , 0.00009018 , 0.01225586 , 0.00569636 , 
0.01169237, -0.01071170, -0.01027119, -0.00767364}, 
{ 0.00280051 , 0.00710533 , 0.00490902 , 0.00336591 , 

30 0.01473072, -0.01935226, -0.02067918, -0.01008544}, 
{ 0.00612606, 0.00452334, 0.00281361, -0.00371625, 
0.00722384, -0.01549285, 0.00240305, -0.00039173}, 
{ -0.00188299, -O.00288016, -0.00945697, -0.00819146, 
0.01815127 , -0.01087037 , -0.00275809 , -0.00523949}, 

35 { 0.00302839, 0.00234366, 0.00453269, 0.01641155, 
0.00491735, -0.00780978, -0.00900474, -0.00804208}, 
{ -0.00080239 , -0.00316640 , -0.00369995 , 0.001 15340 , 
0.0221 1991 , 0.00383 138 , 0.00405909 , 0.00056062}, 
{ 0.00174899 , 0.00438349 , 0.00367090 , -0.001 11571 , 

40 0.00417576, -0.00456289, -0.01404146, -0.01288739}, 


0.00396118 , -0.00732553 


-0.00506232 , -0.00662786 


0.01001904 , 0.00163964 , 


0.00200823 , 0.00377579 , 


0.01802132, 0.01001005, 


-0.00700208 , -0.01000534 , 


-0.00069747 , -0.00377804 , 


-0.00151490 , -0.00721561 


0.00867730 , 0.00469551 


-0.00568021 , 0.00992088 , 


-0.00243590 , 0.00758656 , 


-0.01069492 , -0.00390450 , 


0.00766125 , -0.00318486 , 


-0.00705480 , -0.0 1 384848 , 


0.00371334 , -0.00447382 , 


-0.00823255 , 0.00377597 , 


0.00376693 , -0.003 10810 : 


0.01357589 , 0.00569236 , 


-0.00644417 , -0.01 160044 , 


0.01566313 , 0.01579812, 
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{ -0.0025061 1 , -0.00404516 , -0.00747983 , 0.01095903 , 
0.00388997 , -0.00170172 , -0.01516082 , -0.01499629}, 
{ -0.00382775 , -0.00496896 , -0.00872420 , -0.00897827 , 
0.00948376 , 0.00437347 , 0.00551626 , 0.00429765}, 
5 { -0.00068027, -0.00054087, -0.00137117, -0.01218331, 
0.00512591 , -0.00259414 , 0.00019934 , -0.00152469}, 
{ 0.01072110 , 0.01216315 , 0.00858058 , 0.00496877 , 
0.00295036 , 0.00223345 , 0.00185529 , 0.00004801}, 
{ 0.00296041, 0.00674527, 0.00374328, -0.00204315, 
10 0.00719436, 0.00024193 , -0.01220476, -0.01078088}, 

{ -0.00216296, -0.00253576, -0.01080409, -0.01403971 , 
0.00193829 , 0.00045172 , 0.00132059 , -0.00249276}, 
{ 0.00922137 , 0.01014334 , 0.00260340 , -0.00465584 , 
0.00859783 , -0.00459811 , -O.O0840030 , -0.00796677}, 
15 { -0.00801438, -0.00425278 , 0.01495038, -0.00190038, 
0.00885614 , -0.00304473 , 0.00181800 , 0.00099605}, 
{ -0.00490201 , -0.00762224 , 0.00040365 , 0.00582002 , 
0.00012161 , -0.00446718 , 0.00332097 , 0.00016409}, 
{ 0.00137264, 0.00074422, 0.02283779, 0.01073287, 
20 0.00316988 , 0.00677347 , 0.00575176 , 0.00257174}, 

{ 0.00319146, -0.00045188, -0.01012620, -0.00021037, 
0.00311417 , -0.00315884 , -0.01255682 , -0.00397431}, 
{ 0.00171563 , -0.00111647 , -0.00583420 , 0.01095067 , 
0.00873388 , 0.00136371 , 0.01266588 , 0.00897107}, 
25 { 0.00042425, -0.00141434, -0.00204316, -0.00825233, 
0.00776467 , 0.00399437 , 0.01425773 , 0.00899603}, 
{ 0.00198198 , 0.00052505 , 0.00305308 , 0.00190291 , 
0.00142837 , -0.00523604 , 0.00823206 , 0.00641433}, 
{ 0.00407774, 0.00128382, -0.01316027, -0.00600687, 
30 0.00039881, 0.00485414, 0.00543620, 0.00280821}, 

{ 0.00088827 , 0.00372026 , 0.00085106 , -0.00512459 , 
0.00147824 , 0.00452383 , -0.00429125 , -0.00514253}, 
{ -0.00288860 , -0.00282246 , -0.00094926 , -0.00396700 , 
0.01499634 , 0.00307891 , -0.00983328 , -0.01055430}, 
35 { -0.00321458 , 0.00689814 , 0.00937494 , -0.00267765 , 
0.00049454 , -0.00173761 , 0.00155754 , 0.00049179}, 
{ 0.00243335 , 0.00346759 , -0.00851574 , -0.01570546 , 
0.00448764 , -0.01035466 , -0.01368467 , -0.01006367}, 
{ -0.00445209 , -0.00451981 , 0.00775260 , 0.O0538409 , 
40 0.01159070 , 0.01239608 , 0.01218984 , 0.00879261}, 


0.00795864 , 0.00282929 , 


-0.01372950 , 0.00223387 , 


-0.01646237 , -0.00125409 , 


0.00387715 , 0.00465455 , 


-0.00721346 , -0.00780599 , 


0.01317200 , 0.01261837 , 


-0.005 15572 , -0.00850082 , 


-0.00985608 , -0.01157529 , 


-0.00073916 , 0.01 154589 , 


-0.00 1 16295 , -0.0 1058273 


-0.00441827 , -0.01132391 


0.00858833 , 0.00692717 , 


-0.00419762 , 0.01843774 ; 


-0.01278992 , -0.00529606 , 


0.00007500 , -0.00346172 , 


0.00587403 , 0.00079244 , 


-0.00478751 , 0.01771119, 


0.00449666 , 0.00131638 , 


0.00138322 , 0.00309032 , 


0.00259379, 0.01130075 , 
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{ -0.01240696, -0.02050348, -0.03230916, -O.0 1 847850 , 
0.01950329, 0.01626036, 0.01239434, 0.00368862}, 
{ 0.00400441 , 0.00044364 , -0.00439758 , -0.01272883 , 
0.05039078, -0.01931315, 0.00614772, -O.0005963O}, 
5 }, 

{ { 0.00006111 , -0.00011239 , -0.00091541 , -0.00171992 , 
0.01204569 , 0.01293225 , 0.00666364 , 0.00402353}, 
{ 0.00779445, 0.00696512, -0.00184068, 0.00596820, 
0.00466814 , 0.00030543 , -O.004 16637 , -0.0050663 1 }, 

10 { -0.00775987, -0.00470163, 0.02876918, 0.01544713, 
0.00091549 , -0.00172232 , -0.00574072 , -0.00729726}, 
{ -0.00192205 , -0.00209183 , 0.00072963 , -0.00370971 , 
0.01060567 , 0.00841196 , -0.00113362 , -0.00135248}, 
{ 0.00727874 , 0.005503 17 , 0.00265535 , 0.00347190 , 

15 0.01453249, 0.01124473, 0.00636632, 0.00507658}, 

{ -0.00370169 , -0.00578109 , -0.0105463 1 , 0.00237922 , 
0.01112889 , 0.01061231 , 0.00444948 , 0.00172272}, 
{ -0.01082310, -0.00343578, 0.00088772, -0.00179936, 
0.00364738, 0.00156064, -0.00077856, -0.00162852}, 

20 { 0.00827082, 0.00679115, -0.00515113, -0.01458570, 
0.00124702 , 0.00308527 , 0.00723321 , 0.00498593}, 
{ 0.00033643, 0.00105011, 0.00317059, 0.00722382, 
0.01981710, 0.01102549, -O.O03O3191 , -0.00663890}, 
{ 0.00236747, 0.00370410, -0.00666410, -0.01274279, 

25 0.01086512, -0.00400080, -0.00089377, 0.00181257}, 
{ 0.00276404 , 0.00157884 , 0.00686494 , 0.01048618, 
0.00799517, 0.00421079, 0.00749205, 0.00227781}, 
{ -0.00212620, -0.00277584, 0.00272206, 0.01528548, 
0.00469392 , 0.00593647 , 0.00104566 , -0.0022453 1 }, 

30 { 0.00005560, -0.00071041, -O.00280654 , -0.00394772, 
0.02467535, 0.02212432, 0.01059736, 0.00534966}, 
{ 0.00464703 , 0.00474611 , 0.00196303 , -0.00845117 , 
0.01622437 , 0.00953056 , 0.00301761, -0.00005419}, 
{ 0.00047992, -0.00137581, 0.00480373, 0.02034039, 

35 0.00600385, 0.00154407, -0.00004413, 0.00158964}, 

{ -0.001 1 1287 , 0.00035244 , -0.00680570 , -0.01735569 , 
0.00351667 , 0.00680632, -0.00068295, -0.00082886}, 
{ 0.00748514 , 0.00560680 , -0.0009 1863 , 0.00920877 , 
0.00962053 , -0.00702395 , 0.00190340 , -0.00024475}, 


0.02493462 , 0.01658082 , 


-0.02737488 , -O.035689O3 


0.01263544, 0.01320593 , 


0.01118068, 0.00710638, 


0.00472025 , 0.00233966 


-0.01469616 , -0.01831928 , 


-0.00348257 , -0.00700786 , 


0.00610875 , 0.00382378 , 


0.00486192 , 0.00272746 , 


0.00622652 , 0.00687030 , 


0.00500 1 50 , 0.00323058 , 


-0.01239504 , -0.01568273 , 


0.00795789 , 0.0 1655090 , 


0.01589311 , 0.00970912 , 


-0.00535340 , -0.00398863 , 


-0.00736551 , 0.01393551 


0.00168192 , -O.O0273659 , 


-0.0025 1611, -0.00534775 , 


0.001 18810 , -0.00632105 , 
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{ -0.00652397 , -0.01336956 , -0.03077461 , -O.04977855 , -0.06644036 , 
0.00439690, 0.00168036, 0.00799340, 0.00870391}, 

{ -0.00459352, -O.00907604 , -0.02068476, -0.01752188, -0.03509759, 

0.02242144, -0.02913997 , 0.00318966, -0.00091595}, 
5 { 0.01107762, 0.00546846, -O.00001276 , -0.00142842, -0.0 107666 5 , 

0.02919168 , -0.02466836 , -0.03191429 , -0.02349747}, 

{ 0.00783465, -0.00042958, -0.00136463, -0.00608877, -0.02410140, 

0.00640987 , -0.01457449 , 0.00913402 , 0.00152079}, 

{ -0.01546191, -0.01851968, -0.00669892, -0.01056069, -0.01249849, 
10 0.01374939, -0.00900376, -0.00739429, -0.00470642}, 

{ 0.00078318 , 0.00203456, -0.00457136, -0.01985878, -0.03592355, 

0.02895935 , 0.00293128 , -0.00121505 , -0.00717597}, 

{ -0.01212653 , -0.01986692 , -0.02324829 , O.00367052 , -0.01032869 , 
0.03407878, -0.02295738, -O.00829270 , -0.00252379}, 
15 { -0.00904510, -0.01094450, -0.01829106, -0.03299925, -0.04246203, 
0.03013587, -0.02375396, -0.01112768, 0.00806776}, 
{ 0.00371073 , 0.01 192758 , 0.04487591 , 0.04961298 , 0.04469640 , 
0.02788493 , 0.01888919 , 0.01006733 , 0.00055537}, 

{ -0.00414876, -0.00806971, -0.01853441, -0.00784140, -0.01284125, 
20 0.01870911, -0.02863545, -0.00013891, -0.00452064}, . 

{ 0.00370482, -0.00028583, -0.01043066, -0.01367416, -0.02846861, 
0.01679499, -0.01875735, -0.02837507, -0.00521203}, 
{ -0.01 149320 , -0.02138073 , -0.01879618 , 0.02580091 , 0.03158101 , 
0.04075558, 0.03485110, 0.02587197, 0.01424616}, 
25 { -0.01344467, -0.02008154, -0.02874508, -0.01984988, -0.03087705, 
0.01732255, -0.01355235, -0.01306657, 0.00834000}, 

{ 0.00017944, -0.00749797, -0.00950584, -0.01971890, -0.03880470, 
0.05707708, -0.00602932 , -0.00093686 , 0.00151256}, 
{ -0.00657895 , -0.01276092 , -0.00663745 , -0.01018639 , -0.02569065 , 
30 0.04709358, -0.01963325, -0.02213332, -0.00364810}, 

{ -0.00891231, -0.00896874 , 0.04729117 , 0.04958298 , 0.04900047, 
0.04291088 , 0.03529066 , 0.02325801 , 0.01218071}, 

{ -0.00625101 , -0.01361953 , -0.02559423 , -0.03223054 , 0.00838412 , 
0.02326855 , 0.01 143200 , 0.00726839 , -0.00254345}, 
35 { 0.00962416, 0.O0578797 , -O.00469408 , -0.02098031, -0.03970154, 
001945893, -0.02555644, 0.00279541, -0.00276733}, 

{ 0.00016594, -0.00399601, -O.00731727, -0.00585359, -0.01695927, 
0.04236752, -0.05179219, -0.00927053, 0.00223535}, 
{ -0.01137819, -0.01841432, -0.02863844, -0.02549466, -0.00272539, 
40 0.04129874 , 0.02703469 , 0.01674746 , 0.00882358}, 


-0.02418368 , 
-0.02897723 , 
-0.02078226 , 
^0.00715177, 
-0.01381879, 
-0.04690434 , 
-0.01729308, 
-0.02987120 , 
0.03739255 , 
-0.02142337 , 
-0.03863164, 
0.03076868 , 
-0.03726973 , 
-0.05068581 , 
-0.03611357, 
0.05114494 , 
0.03074426 , 
-0.02410071 , 
-0.02650291 , 
0.03105273 , 
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{ -0.00357899, -0.01168453, -0.02003192, 0.00360176, 
0.00501530, -0.00571256, 0.00716748, 0.00642730}, 
{ -0.00204187 , 0.00754425, -0.00122054, -0.01452030, 
0.02443919, -0.02145534, -0.02556043, -0.01726765}, 
5 { -0.01225962 , -0.02021357 , -0.03276307 , 0.00077601 , 
0.01438413, -0.02362521, 0.00510472, -0.00030699}, 
{ -0.01243222, -0.02180635, -O.03374801 , -0.00552771, 
0.02254258, 0.01346735, 0.00006868, -0.00653802}, 
{ 0.01148091, 0.00692796, 0.00040312, -0.00436061, 

10 0.00256074 , 0.00092198, -0.00728032, -O.O0945666}, 

{ -0.00178888, -0.00688681, -0.01213265, -0.02513887, 
0.01296614 , -0.01487822 , -0.01910969 , -0.01537065}, 
{ -0.00725535, -0.01262777, -0.01183104, -0.00983393, 
0.00771642, -0.00212860, 0.00386644, 0.00120922}, 

15 { 0.00164142, -0.00392946, -0.01381401, -O.00515787 , 
0.01478234, -0.02189020, -0.03120124, -0.00938677}, 
{ -0.00637770, -0.01406334, -0.02198870, -0.00809124, 
0.03299125, 0.02381818, 0.01366707, 0.00592031}, 
{ -0.00854519, -0.01460363, -0.02844237, -0.02588072, 

20 0.00128514, 0.00170535, 0.00151977, 0.00167284}, 

{ -0.01347334, -0.02291845, -0.04127466, -0.06 1 85673 , 
0.00855813, 0.00127078, 0.00279083, 0.01982719}, 
{ -0.00883732, -0.01775697, -0.03452937, -0.03890479, 
0.02467414 , -0.00827826 , -0.00632791 , 0.00470165}, 

25 { 0.01947562, 0.01480394, 0.00585211, -0.01157039, 
0.00770904 , 0.00117448 , 0.01013551 , 0.00533763}, 
{ -0.00797957, -0.01335512, -0.02556722, -0.02463242, 
0.01478523 , -0.00963687 , -0.01951507 , -0.00599849}, 
{ -0.01014364, -0.01336506, -0.00756888, -0.02085792, 

30 0.01522635, -O.01085877, -0.00407099, -0.00059958}, 
{ -0.01191418, -0.01893562, -0.02285608, -O.02175O26, 
0.01242598 , 0.01037422 , 0.00881772 , 0.00301240}, 
{ -0.00410227 , -0.00810982 , -0.02082509 , -0.02673533 , 
0.03125568 , -0.00162297 , -0.00621962 , -0.00958948}, 

35 { -0.00236826, -0.00528324, -0.01688967, -0.02665562, 
0.01293267 , -0.00471950 , -O.00579889 , 0.00382789}, 
{ -0.00829334, -0.01601839, -0.02981488, -0.04926722, 
0.01756506 , 0.01017462 , 0.00301230, -0.00031275}, 
{ -0.00314835, -0.00971408, -0.00126585, 0.00084833, 

40 0.02038756, -0.01962756, -0.02820450, -0.02680765}, 


-0.00698634 , -0.01205097 , 


-0.02381772 , -0.02974159 , 


0.00339980 , -0.00682563 


0.03324926 , 0^3598020 , 


-0.01726674 , -0.02679639 , 


-0.03796508 , -0.00819531 ; 


-0.01670010 , -0.00293400 , 


0.00254924 , -0.0094243 1 


0.04237495 , 0.04494788 , 


-0.04063413 , -0.03740634 


-0.03481773 , -0.01543559 , 


-0.05133868 , -0.05444499 , 


-0.0257372 1 , -0.0036 1 897 , 


-0.00471432 , -0.01441015 , 


-0.03437920 , -0.03380901 , 


-0.01437801 , 0.00862057 , 


-0.02102781 , -0.03371932 , 


-0.04625641 , -0.04899277 , 


-0.02466496 , 0.00312334 


-0.01365008 , -0.01221557 , 
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{ -0.01379369 , -0.02012157 , -0.02470930 , -0.02980865 , 
0.00668963 , -0.00621541 t -0.00767146 , 0.00501472}, 
{ -0.01307473 , -0.02603028 , -O.05475627 , -0.03679790 , 
0.01865785 , 0.01710904 , 0.01237958 , 0.00370059}, 
5 { 0.00064712, -0.00558789, -0.01323406, -0.01583633, 
0.01043219 , 0.00799608 , 0.00367465 , -0.00077605}, 
{ -0.01743761 , -0.02261109 , -0.03091739 , -0.02751019 , 
0.02580788 , -0.02763544 , -0.01051019 , 0,01002048}, 
{ 0.00216431 , -O.0056O940 , -0,01900158 , -0.04152299 , 
10 0.01788276, 0.01381030, 0.01100524, 0.00877503}, 

{ -O.01828726 , -0.02442716 , -0.01062820 , 0.00049875 , 
0.00191559 , 0.00275880 , 0.00074190 , 0.00944648}, 
{ -0.00879868 , -O.01598313 , -0.03004215 , -0.04948885 , 
0.01370329 , -0.00427476 , 0.00082035 , 0.01297109}, 
15 { -0.00230832 , -0.01010282 , -0.01668657 , -0.03198117 , 
0.01377988 , 0.00820876 , 0.00580972 , -0.00152692}, 
{ 0.0155 1234 , 0.03419445 , 0.06055726 , 0.04707260 , 
0.01430269 , 0.00668846 , 0.00691489 , 0.00056254}, 
{ 0.01406692, 0.01449025, 0.02394177, 0.02399262, 
20 0.02140991 , 0.01309781 , 0.00779774 , -0.00239127}, 

{ -0.00828736 , -O.01743047 , 0.00335240 , 0.04816538 , 
0.02652692 , 0.01796155 , 0.01503502 , 0.00549014}, 
{ 0.00094473 , -0.00491647 , 0.00128189 , 0.01052383 , 
0.02404924 , 0.01677403 , 0.00763441 , -0.00199493}, 
25 { -0.01506920, -0.02351502, -0.04035310, -0.04043075, 
0.00972518 , 0.00819359 , 0.00632904 , 0.00339077}, 
{ 0.01785404 , 0.02207023 , 0.03441687 , 0.03255487 , 
0.04282719 , 0.03719784 , 0.02088540 , 0.01024143}, 
{ 0.01931626, 0.01456799, 0.00936344, 0.00110318, 
30 0.01424618, -0.02355264, 0.00183293, -0.00067569}, 

{ 0.00521639 , -0.00179269 , -0.00175685 , 0.01034082 , 
0.01447315 , -0.02104899 , 0.00289221 , -0.00373207}, 
{ -0.00685119, 0.00469486, 0.00447692, -0.00819117, 
0.01177251 , -0.01311489 , 0.00040491 , -0.00407311}, 
35 { 0.02359967, 0.03214284, 0.05067474, 0.05064540, 
0.03853463 , 0.03322630 . 0.02812674 , 0.02336996}, 
{ -0.00315399 , 0.00029074 , -0.00602774 , -0.01695521 , 
0.02487497 , -0.01355392 , -0.01422887 , -0.02043397}, 
{ 0.01021442 , 0.0059301 1 , -0.00854369 , -0.03200625 , 
40 0.02617807 , -0.02123191 , -0.01014762 , 0.00017089}, 


-O.03913091 , -0.00703542 , 


0.02162444 , 0.01966973 , 


-0.03346232 , -0.03305713 


-0.02026401 , -0.01742175 , 


-0.05988942 , -0.02922351 , 


-0.00510124 , 0.00221065 , 


-0.04196567 , -0.01983909 , 


-0.03699492 , 0.01269478 , 


0.03313935 , 0.02368624, 


0.03079103 , 0.02573220, 


0.03638020 , 0.03234748 , 


0.03986395, 0.03560681 , 


-0.00847623 , 0.00878313 , 


0.04601287, 0.04152598, 


-O.01440516 , -0.01437875 , 


-0.00307994 , -0.00944490 , 


-0.02000782 , -0.022404 18 , 


0.03918985 , 0.04448732 


-0.00750983 , -0.01427804 , 


-0.05616386 , -0.05552187 , 
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{ -0.00735894, -0,01347182, -0.02349130, -0.02205992 , 
0.00992716, 0.00358035, -0.00636554, -0.01445333}, 
{ -0.00259622, -0.00664229, -0.01866048, -0.03590918, 
0.01983147, 0.00600777, 0.00351924, 0.00449450}, 
5 { 0.03019245, 0.04180980, 0.04242800, 0.03707932, 
0.02621267, 0.02268569, 0.01544914, 0.00888835}, 
{ 0.00410478, -0.00530070, -0.00295468, 0.02816624, 
0.00692805 , -0.00028335 , 0.0029471 1 , 0.00261301 }, 
{ -0.01128064, -0.01882569, -0.01409550, 0.01270598, 

10 0.01549205, 0.01315745, 0.01284490, 0.00551201}, 
{ 0.01235582 , 0.00495826 , 0.00768318 , 0.01 105327 , 
0.00325452, 0.00012424, 0.00501045, 0.00643709}, 
{ 0.01030086 , 0.00438282 , -0.0031 1851 , -0.02076026 , 
0.00518616 , 0.01327369 , 0.00583413 , 0.00260305}, 

15 { 0.01585195, 0.02158346, 0.01265352, -0.00225988, 
0.02858671, -0.01981777, -0.02753662, -0.02470708}, 
{ -0.00405472, -0.00972641, 0.00833755, 0.00837587, 
0.00623398 , 0.00759464 , 0.00871849 , 0.00594262}, 
{ -0.01145855, -0.01827606, -0.01906050, -0.01321846, 

20 0.01575232, -0.02756877, -0.03799206, -0.00151852}, 
{ 0.00720446 , -0.00064353 , -0.00701769 , -0.02430002 , 
0.00874910, 0.00186248, 0.00901299, 0.00015126}, 
{ -0.01518806, -0.02321451, -0.02690132, 0.00534415, 
0.00601155, -0.01009555, -0.01496766, -0.01130705}, 

25 { -O.01550506, -0.02653400, -0.03852672, 0.01008836, 
0.01458971, 0.00882104, 0.00848728, 0.00131771}, 
{ -0.01295495, -O.02006295 , -0.03745275, -0.03024400, 
0.00740866 , -0.00919721 , -0.00415596 , 0.00474972}, 
{ -0.01664452 , -0.02405961 , -0.03649393 , -0.03646140 , 

30 0.00755079, -0.01214057, -0.01077375, 0.01126263}, 

{ -O.00108388, -0.00662234, -0.02067877, -0.03852748, 
0.00623433 , -0.00902003 , 0.00759261 , 0.00276482}, 
{ -0.01724702 , -0.0261 1390 , -0.03652935 , -0.03780674 , 
0.01307332 , -0.00332941 , 0.00083897 , 0.01835804}, 

35 { 0.01208979, 0.00809377, 0.01689381, 0.01941724, 
0.01467246 , -O.01450666 , -0.00270332 , -0.00725360}, 
{ 0.00980247, 0.01559737, 0.00594148, 0.00019967, 
0.01451608, -0.01143174, -0.01193905, -0.01828814}, 
{ -0.0031 1454 , -0.01203376 , -0.00927907 , 0.02078032 , 

40 0.00832342, -0.00936971, 0.00192210, -0.00672316}, 


0.02751215 . 0.02381083 , 


-0.05839927 , -0.06065 164 , 


0.02969960 , 0.02907674 , 


0.0 1664470 , 0.00777464 , 


0.00521923 , 0.01708157, 


-0.00329601 , -0.00357798 , 


-0.04378026 , -0.04024490 , 


-0.01537653 , -0.02523274 , 


0.00118455 , 0.00982980, 


-0.01659787 , -0.00515321 , 


-0.03349658 , 0.00705156 , 


-0.00308821 , -0.00432329 , 


0.01733050 , 0.01204091 , 


-0.01406475 , -0.02456492 , 


-0.0 1 100296 , -0.00245895 , 


-0.05961239 , -0.02435135 , 


-0.03761547 , -0.01849779 , 


0.007203 10 , -0.00476103 , 


-0.00062672 , -0.0 1 0009 14 , 


0.0036003 1 , -0.00034344 , 
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{ -0.02241539, -0.03247605, -0.03701199, -0.01090514. 
0.00127800, 0.00405804, 0.00659569, 0.01933625}, 
{ 0.00600397 , 0.01074139 , 0.02092690 , 0.01970426, 
0.01409811 , 0.01382651, 0.01320097, 0.01301970}, 
5 { 0.01141765 , 0.00585173 , 0.00099689, -0.01003275, 
0.01718491, 0.01680690, 0.01478071, 0.00556505}, 
{ 0.00532323 , 0.02795015 , 0.06817748 , 0.06100996, 
0.04499788, 0.03264736, 0.02017310, 0.00922294}, 
{ -0.02035650, -O.03006271 , -0.04684134, -0.03358747, 
10 0.00595318, -0.00071390, -0.00137424 , 0.01494029}, 
{ -0.00390696, -0.00736702, -0.01984008, -O.028221S5, 
0.00602792, -0.00782717, -0.00570698, -0.01439530}, 
{ -0.00083505, -0.00797647, -0.01183219, -0.00060675, 
0.00060424 , 0.00138312, -0.00990396, -0.01301919}, 
15 { -0.00153786 , 0.00594700 , 0.01742534 , 0.01203318, 
0.00152903 , 0.00261276 , 0.00144338, -0.00298043}, 
{ 0.02514795 , 0.02694397 , 0.03251137 , 0.02791743, 
0.01392899 , 0.01020858 , 0.00946374 , 0.00251344}, 
{ 0.01100263 , 0.01767290 , 0.01081835, -0.00842438, 
20 0.03553471, -0.00317026 , 0.0O153320, -0.00582507}, 
{ 0.01299545 , 0.02093436 , 0.03195115 , 0.03015983, 
0.02669818, 0.02707517. 0.02510345, 0.01691998}, 
{ 0.01109239 , 0.00726528 , 0.01170571, 0.01399126, 
0.0054 1503, 0.00142378, -0.00097093, -0.00882481}, 
25 { -0.01941829, -0.02760284, -0.03358766, -0.01196969, 
0.01319709, -0.00584112, -O.00097540 , 0.01214821}, 
{ -0.02107221, -0.02948952, -0.04896206, -0.05545068, 
0.00334635 , 0.00268116 , 0.00045516 , 0.01809656}, 
{ -0.01400252, -0.02253890, -0.04613798, -0.05388472, 
30 0.00765829, 0.00198822, -0.00470518, -0.01022938}, 
{ -0.00148627, -0.00099175 , 0.00560137, -0.00668187, 
0.00639128, -0.01024137, -0.00170219, -0.00524556}, 
{ -0.00549896, -0.01470279, -0.01695822 , 0.02198312, 
0.01276040, 0.00736205, 0.00005241, -0.00473827}, 
35 { -0.00132779 , -0.00278557 , 0.02514555 , 0.02374663 , 
0.03082887 , 0.03087115 , 0.02409034 , 0.01348647}, 
{ -0.0 1058509, -0.01658262, -0.02338305, -0.00972392 
0.00588576 , 0.00111411, -0.00029098, -0.00373132}, 
{ 0.00160918, -0.00536342, -0.01461500, -0.00612135 
40 0.00592269 , 0.00065486, -0.00379472, -0.01142680}, 


-0.00887298 , 0.00529690 , 


0.01176908. 0.01359934, 


0.00167233 , 0.01809863 , 


0.05743580 , 0.05354041 , 


-0.02235513, -0.01916831, 


0.00327165 , 0.00343909 , 


-0.00978943 , -0.01842960 , 


0.00432435 , 0.00026490 , 


0.02189767 , 0.01664660, 


•0.02354175 , -0.03362519 


0.02262512 , 0.02771440 , 


0.02465632, 0.01511573 


-0.0 169478 1 , -0.0 16345 16 , 


-0.01814541 , -0.01060619 , 


0.00707619 , 0.01867959 , 


0.00030 117, -0.00039004 , 


0.03669617 , 0.02463584 , 


0.02009989 , 0.02808080 , 


0.00553297 , -0.00333131 , 


0.02269393 , 0.01788420 , 
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{ -0.0 1485766, -0.01597556, 0.00778368, 0.01287732, 
0.01049375, 0.00863086, 0.00659185, 0.00144317}, 
{ 0.01027236, 0.02730616, 0.04024012, 0.02727445, 
0.00281685, -0.00016378, 0.00442352, -O.00260261}, 
5 { 0.01018086, 0.02317232, 0.01823444, 0.01381079, 
0.00224764 , 0.00064606 , 0.00224514, -0.00374675}, 
{ 0.03440958 , 0.04813170 , 0.04772426 , 0.03918479 , 
0.04793362 , 0.04624364 , 0.03528126 , 0.02795062}, 
{ 0.02012151, 0.02798955. 0.01690498, -0.00162132, 

10 0.00304788, 0.00318819, 0.00300105, -O.00O68904}, 

{ -0.00771849, -0.01042661, 0.02415417, 0.02101670, 
0.01 164459 , -0.01753263 , -0.01833297 , -0.01582638}, 
{ 0.03093007, 0.02841266, 0.01851041, 0.01255380, 
0.00354944, -0.00713726, -0.01158101, -0.01336380}, 

15 { 0,01250769, 0.01073677, 0.04218614, 0.03936715, 
0.00130949, -0.00833368 , -0.00515605, -O.00890725}, 
{ 0.02999284, 0.03533733, 0.02511555, 0.01201614, 
0.01583742 , 0.01541255 , 0.01296229 , 0.00790224}, 
{ -0.01170270, -0.01799777, -0.03459895, -0.04037440, 

20 0.01253730, -0.00295387, -0.00802624, -0.00664753}, 

{ -0.00726885, -0.01627472, -0.01522945, 0.03430538, 
0.00154582 , -0.00739393 , 0.00585284 , -0.00078346}, 
{ -0.00436114, -0.01237267, -0.02091931, -0.00244249, 
0.00687659, -0.00651871, -0.01814616, -0.02330265}, 

25 { 0.03517674, 0.06355752, 0.06857296, 0.05938929, 
0.02726384 , 0.01966913 , 0.01 129379 , 0.00478196}, 
{ -0.01860181, -0.02677876, -0.04407154, -0.04095438, 
0.01253701 , -0.00731142 , -0.00220656 , 0.01567101}, 
{ 0.01698267 , 0.01310731 , 0.00257197 , -0.01257890 , 

30 0.01335818, -0.01974036, -0.01923884, -0.00554617}, 

{ -0.01302456 , -0.02004788 , -0.03292591 , -0.02055095 , 
0.00013659 , -0.00557743 , -0.00905106 , -0.00933003}, 
{ -0.00101468, 0.01573975, 0.01522490, 0.00440810, 
0.01712205 , -0.01281291 , -0.00291 1 17 , -0.00745792}, 

35 { -0.00645665, -0.00803376, 0.03718368, 0.03703527, 
0.01271667 , 0.00626016 , 0.00721 148 , -0.00046866}, 
{ 0.00969971 , 0.00507633 , -0.00469157 , -0.00353471 , 
0.00787840, -0.00714222, -0.01077091, -0.01917782}, 
{ -0.00921545 , -0.01537870 , -0.01341638 , -O.01877411 , 

40 0.00052251, -0.00884878, -0.01748464, -0.01358666}, 


0.01335396, 0.01226611 , 


0.00988789 , 0.00395820 , 


0.01110116, 0.OO731O25, 


0.03828848 , 0.04482698 , 


-0.01795221 , -0.02033811 , 


0.00511120, -0.00259045 , 


-0.00055904 , -0.00770237 , 


0.0233 1 104 , 0.01263867 , 


0.00337246 , 0.0092287 1 


-0.00093 168 , -0.00201978 , 


0.02169323 , 0.01089532 , 


0.01246437 , 0.00270874 ; 


0.04741369 , 0.03893724, 


-0.01009746 , -0.01626406 , 


-0.03301049 , -0.03748283 , 


0.02059680 , 0.01219580 , 


-0.00745773 , -0.01547614 


0.02560332 , 0.02060903 , 


0.01129945, 0.00162597 , 


-0.00679339 , 0.01005825 
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{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
5 { 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000, 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

}, 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


10 /* 


/*= 


=====*/ 


/* Conexant System Inc. 
/* 43 1 1 Jamboree Road 
15 /* Newport Beach, CA 92660 
/* 


*/ 
*/ 


*/ 
-*/ 

-*/ 


/* Copyright(C) 2000 Conexant System Inc. 

/♦ 

/* ALL RIGHTS RESERVED: */ 
20 /* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

/* FILE: FLOAT64 CBes_85k */ 

25 /♦===================-=========== == == == = ==s== ^ =====i 


=*/ 


FLOAT64 CBes_85k[MAXLTT_85k][LMSMAX_85k][MAXLNp] = { 

{ { 0.0301 1250 , 0.05271740 , 0.06473784 , 0.06435282 , 0.06452657 , 0.06279520 , 
30 0.05773527, 0.04953492, 0.03258218, 0.02518716}, 

{ 0.01602284, 0.01223286, 0.02716675, 0.01515761, -0.00130077, -0.00532771, 
0.00089903 , 0.00036138 , 0.00272831 , -0.00395430}, 

{ 0.02401271 , 0.03914647 , 0.03915858 , 0.01749331 , -0.00316505 , -0.01593492 , 
0.02332304 , -O.01928769 , -0.01089091 , -0.01175246}, 
35 { -0.01300759, -0.00840161, 0.00682484, -0.00081947, -0.00651557, -0.00812344, 
0.00999762 , -0.00801675 , -0.00511146 , -0.00416989}, 

{ -0.01818762 , -0.03192724 , -0.06456176 , -0.04615027 , -0.00055719 , -0.00821339 , 
0.00290679 , -0.00506395 , -0.00036802 , -0.00223339}, 

{ 0.04702580 , 0.05568841 , 0.04484019 , 0.02967458 , 0.01458701 , 0.00945917 , 
40 0.00722793, 0.00571889, 0.00149213, -0.00247952}, 
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{ 0.00000000 , 0.00000000 , 0.00000000 , 0,00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
5 { 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 

10 0.00000000 , 0.00000000 , 0.00000000, 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

15 { 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 

20 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000, 0.00000000, 0.O0OOO0O0, 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

25 { 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 

30 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

35 { 0.00000000, 0.00000000, 0.00000000, 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000, O.OOOOOOOO, 0.00000000 , 0.00000000 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 . 0.00000000 , 0.00000000 , 0.00000000 

40 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 


0.00000000 , 0.00000000 , 
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0.00596559, 0.00457740, 0.00247241, -0.00273583}, 

{ -0.00773967, -0.01358329, -0,02234491, -0.02257646 , 0.02203643 , 0.02084404, 
10 0.01128873, 0.00604494, 0.00035335 , -0.00668373}, 

h 

{{ 0.00589332, 0.00462334, -O.O0937151 , -0.01478366, 0.00674597, 0.00164302, 
0.00890749 , -0.00091839 , 0.00487032 , 0.00012026}, 

{ -0.00346857, -0.00100200, -0.00418711, -0.01512477, -0.00104209, -0.00491133, 
15 0.00209555, 0.00045850, 0.00023339, 0.00567173}, 

{ -0.00028271, 0.00224414, 0.00099960, -0.01264817, 0.00158111, 0.00022627, 
0.01842169, -0.01055957, 0.00042331 , -0.00405902}, 

{ -0.00390851, -0.00352008, -0.00207375 , 0.00120978, -0.00464186, -0.00376280, 
0.00221930, -0.01267883, -0.00542772, 0.00871528}, 

20 { -0.00382147, -0.00416908, -0.00485174, -0.00203840, 0.00230541, 0.01428577, 
0.00348975, -0.00203438, 0.00540564, 0.00212166}, 

{ -0.00658368 , -O.00562053 , -0.00032279 , -0.00877305 , -0.00793305 , 0.00320924 , 
0.00170063, 0.00284923, 0.00552278, 0.00194940}, 

{ -O.0G3O6744, -0.00298506 , 0.00275083, -0.00903488, -0.00722304 , 0.00779413, 
25 0.00659414, -0.01601075, 0.00131982, -O.00042380}, 

{ -0.00248310, -0.00449444, 0.00566261, -0.00065823, -0.00872763, -0.00130268, 
0.01288316, -0.00693877, -0.01220849, -0.01360034}, 

{ -0.00072128, 0.00231367, 0.00035512, -0.01551778, 0.00432592, 0.00565027, 
0.00593031, 0.00810666, 0.00899915 , 0.00625029}, 

30 { -0.00066179, -0.00173624, -0.00431518, -0.00780679, -0.00602446, -0.00298258, 
0.00230417 , 0.01526494 , 0.00530183 , 0.00378699}, 

{ 0.01420960, 0.01196404, -0.00294391, -0.00888598, 0.00196835, 0.00379997, 
0.00358727, -0.00099442 , 0.00276169 , 0.00178194}, 

{ 0.00321848, 0.00710562, 0.00119961, -0.00705532, -0.00591387, -0.00790931, 
35 0.00594289, -0.00112852, -0.00141542, 0.00020474}, 

{ 0.00158007, 0.00075190, -0.00438742, -0.00815969, -0.01423721, 0.00789778, 
0.00626154 , -0.00721660 , 0.00986720 , 0.0054441 1}, 

{ 0.00053880 , 0.00193 110, -0.00320550 , -0.01 120683 , -0.0 1402005 , -0.0086093 1 , 
0.00088470, 0.00359764, 0.00639980, 0.00638517}, 


NSDOCID: <WO 01224O2A1 l_> 


WO 01/22402 


PCT/USOO/25182 


919 

{ -0.00862279 , -0.01784181 , -0.03137311 , -O.0 101 6528 , 0.02029932 , 
0.00126383 , -0.00187619 , -0.00820948 , -0.01 128958}, 
{ -0.00214451 , -0.01012148 , -0.00815792 , 0.03032796 , 0.02118089 , 
0.01434881 , 0.00924109 , 0.01234463 , 0.00621214}, 
5 { 0.01901068 , 0.02546003 , 0.03 184928 , 0.02975200 , 0.03929600 , 
0.02994347 , 0.02317742, 0.01472360, 0.00403768}, 
{ -0.00706920 , -0.01 106330 , 0.02697666 , 0.04237599 , 0.04876120 , 
0.04454959, 0.03625874, 0.02458257, 0.01328984}, 
{ 0.00584135, 0.02277180, 0.05493147, 0.04792701 , 0.05513066, 

10 0.04242706, 0.03760509, 0.02533449, 0.01376458}, 

{ -O.00832225 , -0.01877720 , -0.04596338 , -0.05353089 , 0.00746299 , 
0.01409321, 0.00663039, 0.00261977, -0.00681113}, 
{ 0.00048273 , -0.00539747 , -0.00945376 , 0.00004885 , 0.02869582 , 
O.O07O3972 , 0.00314249 , -0.00177051 , -0.00789829}, 

15 { -0.01064635, -0.02694699, -0.04942587, -0.00398838, 0.02460442, 
0.01925711, 0.01424337, 0.01004813, 0.00270193}, 

{ -0.00332860 , -0.01091961 , -0.01848431 , -0.00486287 , 0.04553311 , 
0.02721398 , 0.02015112 , 0.01086293 , 0.00201390}, 

{ -0.00652335 , -0.01144519 , -0.01534182 , -0.01807526 , -0.02371538 , 
20 0.00588846 , -0.00487463 , -0.00623341 , 0.00441392}, 

{ 0.00716741 , 0.00382678 , -0.00052349 , -0.00409624 , -0.01208226 , 
0.00470209 , 0.00223712 , -0.00350926 , -O.O049003 1}, 
{ -0.01538645, -0.02243737, -0.00924649, 0.00355542, 0.00165311, 
0.00653865 , 0.00877182 , 0.00712893 , 0.00802341}, 
25 { -0.00267666 , -0.00919867 , 0.00496288 , 0.01 178975 , 0.00884084 , 
0.01257300 , 0.00820578 , 0.00408443 , 0.00147009}, 

{ -0.01264225, -0.02720729, -0.05722194, -0.03947146, -0.03242657, 
0.00982578, -0.00860058, -0.00088398 , 0.00086213}, 
{ -0.00386645 , -0.01399853 , -0.03824488 , -0.02228856 , -0.02298534 , 
30 0.00544705, -0.01098026, -0.01050510, -0.00581305}, 

{ -0.01967032 , -0.03639457 , -0.04382661 , 0.00038419 , 0.00103522 , 
0.00487504 , 0.00554907 , 0.00846038 , 0.00736618}, 

{ -0.01839912, -0.02937407, -0.03617522, -0.01499036, -0.00692504, 
0.00044529 , 0.0061 1089 , 0.00796965 , 0.01773673}, 

35 { -0.00683449, -0.01304168, -0.02052076, -0.01609455, -0.00102776, 
0.01275266 , 0.00963052 , 0.00370009 , -0.00121833}, 
{ 0.01103437 , O.0O541947 , 0.00506780 , -0.00383360 , -0.00847884 , 
0.01370641 , 0.01064539 , 0.01309200 , 0.00628886}, 
{ -0.00977018, -O.01846998, -0.02291703, 0.00347842, 0.01944544, 

40 0.02954462, 0.02392258, 0.01608993, 0!00555268}, 


0.01087722 , 
0.01465145 , 
0.03399356 , 
0.05446952 , 
0.05228310 , 
0.02192792 , 
0.02042802 , 
0.01967373 , 
0.03898003 , 
-0.00915732 , 
-0.01751940 , 
0.00918893 , 
0.01289639 , 
-0.03326879 , 
-0.03454881 , 
0.00788552 , 
0.00184427 , 
-0.00319254, 
0.00753648 , 
0.01631708, 
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{ 0.00035898, 0.00655540, 0.00886062, 0.00948731 , 
0.00747207 , -0.00688271 , -0.00352236 , -0.00803250}, 
{ -O.00793 173 , -0.01967196 , -0.04026658 , -0.03 192191 , 
0.03706285 , -0.01990808 , -0.00593 113 , -0.00039715}, 
5 { -0.00635586, -0.01153473, -0.02387486, -0.02909210, 
0.01514696, -0.00500377, -0.00569617, 0.00585471}, 
{ -0.01430856 , -0.02562646 , -0.04221961 , -0.01853589 , 
0.02219039 , -0.0233873 1 , -0.00807786 , 0.00288073 }, 
{ -0.00998135, -0.01806646, -0.02136027, -0.00730465, 

10 0.01280801, -0.01978523, -0.02645340, 0.00062405}, 
{ -0.00361873 , -0.00711001 , -0.01113611 , -0.01442181 , 
0.00999573 , -0.01397199 , 0.00258458 , -0.00163856}, 
{ 0.01608025 , 0.02072329 , 0.00865589 , 0.00419188 , 
0.00746960, 0.00493725, 0.00530017, 0.00091609}, 

15 { -0.00258830, -0.00860751, -0.01643995, -0.00330272, 
0.00455523 , -0.00064296 , -0.00070869 , -0.00461911}, 
{ 0.00045132 , 0.01927470 , 0.02936541 , 0.02556292 , 
0.00763378, -0.00025992, -0.00 1 07520 , -0.00837104}, 
{ -0.00807614, -0.01468184, -0.03526087, -0.05143390, 

20 0.02407442, -0.01347152, -0.00877064, -0.00363455}, 

{ 0.00179084, -0.00207469, -0.02147562, -0.03247891, 
0.01977553 , -0.00722409 , -0.01 118867 , -0.01567662}, 
{ -0.01156613, -0.01882328, -0.02689507, -O.02577053 , 
0.00599250, -0.00717979, -0.00327482, 0.01205451}, 

25 { -0.00629756, -0.01144468, -0.01480162, -0.01132932, 
0,00203589, -0.00919722, -0.01756165, -0.00323606}, 
{ -0.00505869 , -0.01212584 , -0.01604989 , 0.01406907 , 
0.00630506 , -0.01217800 , 0.00493628 , -0.00140540}, 
{ 0.01614992, 0.01499725, 0.01847138, 0.01780286, 

30 0.00071808, -0.00218387, 0.00076887, -0.00600070}, 

{ -0.00922172, -0.01839712, -0.01718859, 0.02629952, 
0.01191487 , 0.00581676 , 0.00289883, -0.00428161}, 
{ 0.00130289 , -0.00293433 , 0.01502302 , 0.03529064 , 
0.01820698, 0.01010425, 0.00515796, -0.00325531}, 

35 { -0.00803390, -0.01768812, -0.04490980, -0.03476464, 
0.00889952 , -0.00925927 , -0.01047435 , -0.01210404}, 
{ -0.00224388, -0.00885128, -0.01431027, 0.00056043, 
0.00213878, -0.00217443, -0.00787601, -0.01324443}, 
{ -0.00942789 , -O.02489036 , -0.04548997 , 0.00419906 , 

40 0.00757134, -0.01278104, 0.00092336, -0.00456560}, 


0.00050215 , -O.00606058 , 


-0.0403 1043 , -0.04440686 , 


-0.04337326 , -0.05288439 


-0.0 1 402970 , -0.02227550 


-0.01 160051 , -0.01000576 , 


0.O0048802 , -0.00555145 , 


0.005873 15 , 0.00650795 


0.01669732 , 0.00724283 


0.02449298, 0.01514524 


-0.01592930 , -0.01986599 , 


-0.00458303 , -0.00969956 , 


-0.00530313 , -0.00582166 


0.00363022 , 0.00554277 


0.00703596 , -0.00003723 , 


0.01376991 , 0.00696326 , 


0.03169211 , 0.02054630, 


0.04162203 , 0.02984230 , 


0.00128782 , -0.007001 12 , 


-0.00175653 , -0.00957837 , 


-O.00204955 , -0.00847809 , 
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{ -0.00039830 , -0.00466744 , -0.01262580 , -0.02 1 1 1370 , 
0.00437385 , -0.00111574 , -0.00144865 , -0.00880168}, 
{ -0.00912855, -0.00967373, 0.00714008, 0.00163746, 
0.00575918 , -0.00602136 , -0.00407011 , -0.00454880}, 
5 { -O.00255543, 0.00614921, 0.03687539, 0.01820347, 
0.00935798, -0.01262178, -O.0O737867 , -0.01012977}, 
{ -0.01333849, -0.01591748, 0.00305090, 0.01086912, 
0.00303463 , 0.00222270 , 0.00134141, -0.00025796}, 
{ -0.00936362, -0.01047446, 0.03651876, 0.03415287, 
10 0.00618621 , 0.00076102 , 0.00062994 , -0.00592997}, 

{ -0.00648855 , -0.0 1 1 13029 , -0.02 130286 , -0.024 1 5974 , 
0.01897523, -0.00729972 , -0.01465304, -0.00324484}, 
{ -0.00073009 , -0.00478232 , -0.00809012 , -0.00674682 , 
0.01476475, -0.02101635, -0.02841145, -0.00256900}, 
15 { -0.01541940 , -0.02257801 , -0.01269042 , -0.00663735 , 
0.00815281 , -0.00144199 , -0.00101933 , 0.00214340}, 
{ -0.00430707, -0.01008551, -0.00538098, 0.01127611, 
0.01162061, -0.01239840, -0.02236644, -0.01754571}, 
{ 0.00250399 , -0.00145059 , 0.00744185 , 0.00239925 , 
20 0.00341092, 0.00234075, 0.00295276, 0.00274923}, 
{ 0.02220381 , 0.02667705 , 0.03016336 , 0.02484058 , 
0.01248381, 0.00801419, 0.00575512, -0.00123957}, 
{ -0.01289551 , -0.01948192 , 0.00749604 , 0.03972999 , 
0.02682699, 0.01926759, 0.01536589, 0.00359824}, 
25 { -0.00694105, -0.00274076, 0.06283919, 0.05831478, 
0.02466616, 0.01660218, 0.01015739, 0.00001262}, 
{ -0.00663293 , -0.01124560 , -0.02072134 , -0.02087353 , 
0.00781240, -0.00568940, -0.00619713, -0.00664816}, 
{ 0.00052805 , -0.00203616 , -O.00862252 , -0.007943 12 , 
30 0.00783946, -0.00642006, -0.01293148, -0.01997245}, 
{ -0.01385446, -0.02235013, -O.02005617 , 0.00658714, 
0.00201973, 0.00017492, 0.00070455, 0.00196768}, 
{ 0.00312050 , -0.00502734 , -0.00391517 , 0.02334708 , 
0.00166321 , -0.00414391 , 0.00144125 , -0.00101720}, 
35 { -0.00548185, -0.00927002, -0.00735945, -0.01104572, 
0.02824219 , -0.00834746 , -0.00524587 , -0.00124403 }, 
{ 0.00458493 , 0.01671853 , 0.00619380 , -0.O0362342 , 
0.00905806, -0.00497735 , 0.00129131, -0.00231415}, 
{ -0.01024597, -0.01324182, -O.O075456O , -0.00682415, 
40 0.00866384, -0.00828965, -0.00057488, 0.00290604}, 


0.00587910, 0.01104953 , 


-0.00275357 , -0.00691492 , 


0.00124175 , -O.00730685 , 


0.01047755 , 0.00849883 , 


0.02215632 , 0.01364159, 


-0.00906372 , -O.02048675 , 


-0.00699652 , -0.01274285 , 


-0.01383393 , -0.01014917 


0.00180862 , -0.00383903 , 


0.00187795 , 0.00368643 , 


0.02302165 , 0.01687465 , 


0.02799627 , 0.03095827 , 


0.04446961 , 0.03475004 , 


0.00350779 , -0.00267171 , 


0.01 109699 , 0.00296591 , 


0.003 1 1085 , 0.00396594 , 


0.0 1492 120 , 0.00609770 , 


-O.0 1737564 , -0.02531887 , 


-0.01016732 , -0.01291563 , 


-0.00605662 , -0.003 1435 1 , 


BNSDOCID <WO 0122402A1 l_> 


WO 01/22402 


PCT/USOO/25182 


916 

{ 0.02514915 , 0.05928013 , 0.07204149 , 0.06324505 f 0.05974481 , 0.05096021 , 
0.04377068 , 0.03425910 , 0.02087256 , 0.01 162497}, 

{ -O.00748868, -0.01403437, -0.01834467, -0.02220715, -0.01698717, 0.00975040, 
0.01151622, 0.00725551, 0.00642775, 0.00104778}, 
5 { 0.00209732 , 0.00931211 , 0.00439910 , 0.00138879 , 0.01378028 , 0.00911980 , 
0.00353992, 0.00010052, 0.00002712, -0.00501547}, 

{ -0.00165095, -0.00688923, -0.01339332, -0.01799657, 0.00760584, 0.02621803, 
0.02225676 , 0.01309325 , 0.01073847 , 0.00333487}, 

{ 0.01340580, 0.00737926, 0.00937836, 0.00955465, 0.02491769, 0.02088644, 
10 0.01809767, 0.01206103, 0.00688650, -0.00225557}, 

{ -0.00280285, -0,01027851, -0.02114079, -0.03232847, -0.05019914, -0.01541405, 
0.01040407, 0.00488665, 0.00735409, 0.00230072}, 

{ 0.01769232, 0.01286728, 0.00509533, -0.00385545, -0.01360630, -0.01065628, 
0.00099360, -0.00752588, 0.00392812, 0.00249821}, 
15 { -0.00287736, -0.00927581, -0.01141761, 0.00494131, -0.00006858, 0.00383888, 
0.00928349, 0.00680291, 0.01299393, 0.00903792}, 

{ 0.01338085 , 0.00684954 , 0.02016501 , 0.01396750 , 0.00394469 , 0.00215369 , 
0.00532778 , 0.00390260 , 0.00729791 , 0.00281916}, 

{ -0.00782735, -0.01769183, -0.03956412, -0.04925343, -0.06255674, -0.04770456, 
20 0.01246839, -0.00352283, -0.00008778, 0.00496558}, 

{ -0.00043147, -0.00420665, -0.01525085, -0.01865562, -0.02901928, -0.04225189, 
0.01238412, 0.00284584, -0.00262297, -0.O02OO952}, 

{ -0.01897721, -0.03002013, -0.04202603, -0.04157439, -0.01953528, -0.00909125, 
0.00557029 , 0.00296829 , 0.00837520 , 0.02272494}, 
25 { -0.00430169, -0.00701750, -0.01399148, -0.01425799, -0.01951155, -O.02099896 , 
0.00401286, -0.00855452, 0.00210266, 0.00148451}, 

{ 0.00089308, -0.00573222, -0.00687366, -0.01404191, -0.02040077, 0.01115878, 
0.00754778, 0.00379226, 0.00494852, -0.00162361}, 

{ 0.02273135, 0.02268721, 0.02202985, 0.01772318, 0.01595899, 0.01831229, 
30 0.02009693, 0.01988832, 0.01756866, 0.01336297}, 

{ -0.00802140, -0.01147725, 0.01735733, 0.01614599, 0.01890368, 0.02527107, 
0.02535296, 0.02521981, 0.01936066, 0.00964759}, 

{ 0.01101261 , 0.02459861 , 0.03007775 , 0.03132783 , 0.02500170 , 0.03112715 , 
0.02820242 , 0.02555671 , 0.01990715 , 0.01604691}, 
35 { -0.01044815, -0.02010963, -0.03231533, -0.05076033, -0.04215723, -0.01116070, 
0.00748550, 0.00002613, 0.00462318, 0.01521166}, 

{ 0.00336939, -0.00304703, -0. 00880680 , -0.01591634, -0.02904755, -0.02472976, 
0.01099256 , 0.00917770 , 0.00472864 , 0.00252114}, 

{ -0.01183996, -0.02066113, -0.03460361, -0.04184939, -0.01041113, -0.00188617, 
40 0.00098410, 0.00161789, 0.00375380, 0.01394438}, 
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{ 0.00185346, 0.00678275, -0.00153838, -0.01371849, 
0.03180223 t -0.01313531, -0.01769927, -0.01864802}, 
{ 0.00821 169 , 0.00139332 , -O.00460277 , -0.01685032 , 
0.00196353 , -0.00415526 , 0.00912706 , 0.00274897}, 
5 { 0.03471515 , 0.03244906 , 0.01761282 , 0.00942270, 
0.00424733,, 0.00201139 , 0.00120962, -0.00201383}, 
{ 0.00874697, 0.00243208, -0.00304610, 0.00436503, 
0.00297985, -0.00013373, 0.00316739, -0.00155733}, 
{ 0.03284353 , 0.04366651 , 0.03130752 , 0.02318913 , 
10 0.01412819, 0.01325717, 0.00966138, 0.00557574}, 

{ -0.00897348, -0.01645486, -0.02303920, -0.02958479, 
0.01361113, -0.01301319, -0.00757028, 0.00636876}, 
{ -0.00187898 , 0.00446579 , -0.00080704 , -0.00978002 , 
0.00962606 , -0.01269407 , -0.00658807 , -0.00520677}, 
15 { -0.00446633, -0.01073344, -0.02048699, -0.03419970, 
0.00772629, -0.00141074, 0.00209371, 0.00587952}, 
{ 0.00902524 , 0.00471972 , -0.0053 1728 , -0.00875254 ., 
0.00748311, -0.00872906, -0.01258366, -O.01533540}, 
{ 0.00084134, -0.00457492, 0.00907268, -0.00166421, 
20 0.01171425, -0.00534867, -0.00189046, -0.00597370}, 
{ 0.00495534, 0.02747202, 0.02105600, 0.01350886, 
0.00961278 , 0.00731403 , 0.00734680 , 0.00074704}, 
{ -0.01085449 , 0.00040259 , 0.01902320 , 0.01121839 , 
0.00903296, 0.00546843 , 0.00715537, -0.00173898}, 
25 { 0.00891381, 0.01614815, 0.05052174, 0.03900262, 
0.01293547 , 0.00629289 , 0.00473463 , -0.00084806}, 
{ -0.01427083, -0.02305916, -0.02815308, -0.02282330, 
0.01096763, -0.00407586, -0.00043150, 0.01353875}, 
{ 0.00451472 , -0.00037789 , -0.00521 137 , -0.00857891 , 
30 0.02263041, 0.00545231, 0.00509081, -0.00233034}, 

{ -0.00732576 , -0.01382500 , -0.02440248 , -0.00600805 , 
0.00672027, -0.01575532, 0.00458639 , 0.00142685}, 
{ -0.00584221 , 0.00239261 , 0.00002187 , -0.00722194 , 
0.00609408, -0.00910835, -0.00233031, -0.00402547}, 
35 { 0.00156682, 0.00529745, 0.01074526, 0.01358844, 
0.00886985 , 0.00921486 , 0.00922770 , 0.01278627}, 
{ 0.02888988, 0.04401362, 0.04449791, 0.03793522, 
0.02857499 , 0.02323810 , 0.01532404 , 0.01091717}, 
{ -0.00673575, 0.00708902, 0.04383843, 0.03175772, 
40 0.02920017, 0.02384121, 0.01895719, 0.00803623}, 


-0.01459743 , -0.02278911 , 


-0.02524833 , -0.00457010 , 


0.00084999 , -0.00060 1 17 , 


0.00711522 , 0.00403357 , 


0.01642637, 0.01414287, 


-0.04569751 , -0.01492066 ; 


-0.02210903 , -0.02856633 , 


-0.02140272 , -0.00647786 , 


0.00077703 , -0.00500 107 , 


-0.00738630 , -0.01300070 , 


0.00672681 , 0.00692694 , 


0.01057293 , 0.00799889 , 


0.0275909 1 , 0.0206 1 948 , 


-0.02653827 , -0.01853194 , 


-0.01433970 , -0.02416975 , 


-0.00823324 , -0.01648982 , 


-0.00486836 , -0.00676743 , 


0.01228688 , 0.01451921 


0.03615802 , 0.03507046 


0.02881380 , 0.02740709 , 
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{ 0.01825004, 0.02545979, 0.04466266, 0.02836983, 0.01316085, 
0.00400197, -0.00838218, -0.00375841, -0.00973750}, 
{ 0.00296122, -0.00108515, -0.01175420, -0.01975204, -0.02622812, 
0.04191239, -O.02314044, -0.01950957, -0.00848902}, 
5 { 0.01074297 , 0.00681698 , 0.00056120, -O.00407483 , -0.01399303, 
0.01318401 , ^ -0.01868371 , -0.02269936 , -0.00789793}, 
{ 0.00161361 , -0.00204469, -0.00577466, -0.00520582, -0.01194833, 
0.02718566 , -0.03396933 , 0.00356014 , 0.00207288}, 

{ 0.00128185 , 0.00071461, -0.00353124, -0.00421683, -0.00402716, 
10 0.01997320, -0.01228136, -0.01038306, -0.01511933}, 

{ 0.01263317 , 0.00885365 , 0.00553783 , 0.00332289 , 0.00051954 , 
0.00479201, -0.00059580, -0.00296811, -0.00742176}, 
{ 0.02932750 , 0.05512251 , 0.05469747 , 0.03776658 , 0.02375761 , 
0.00718223 , 0.00132870 , 0.00011158, -0.00513680}, 
15 { 0.00642743, 0.00434195, 0.02734756, 0.02479522, 0.01571155, 
0.01229307 , 0.01044734 , 0.00897595 , 0.00630824}, 
{ 0.01460256, 0.03932975, 0.06822591, 0.05302119, 0.04169594, 
0.02255555 , 0.01244313 , 0.00953978 , 0.00142364}, 

{ -O.00287700, -0.00594367, -0.00427960, -0.00935634, -0.01810575, 
20 0.00769887, -0.00571883, -0.00874120 , -0.01136659}, 

{ 0.01008734, 0.01526783, 0.00777807 , 0.00070427, 0.00135748, 
0.01289474 , -0.01 106339 , -0.01607998 , -0.02069269}, 

{ -O.O0328972, -0.00552321, -0.00318850, -0.00178185, -0.00147855, 
0.00279881, 0.00132960, -O.000 17352 , -O.00197559}, 

25 { 0.00121992 , -0.00434412 , 0.01514515 , 0.01817932 , 0.01049800 , 
0.00023122 , -0.00368011 , -0.00530645 , -0.00881600}, 
{ 0.00199953, -0.00256907, -0.01114171, -0.02208218, -0.03765710, 
0.00931923 , -0.01498688 , 0.00281978 , 0.00017816}, 
{ 0.02318353 , 0.02670253 , 0.01494551 , -0.00435182 , -0.01874850 , 

30 0.02151003, -0.01875342, -0.01056712, -0.01030210}, 

{ 0.00593350 , -0.00144199 , -0.003 19629 , 0.00534692 , -0.00410015 , 
0.00585349, -0.01388552, 0.00983518, 0.00370328}, 
{ 0.02103832 , 0.01958430 , 0.01633620 , 0.00746899, -O.O0235633 , 
0.00554876, -0.00612474, -0.00324632, -O.00700581}, 

35 { 0.00234866, -0.00352786, -0.02131325, -0.03497021 , -0.05395155, 
0.02600962, -0.01502758, -0.00980138, 0.00243400}, 
{ 0.01568001, 0.01102804, -0.00170998, -0.02008550, -0.03923722, 
0.02200445, -0.01343909, -0.00778321, -0.00400345}, 

{ -0.00585802 , -0.01 166306 , -O.02076399 , -0.01569569 , -O.02319850 , 
40 0.03356291, -0.04020848, -0.00730455, 0.00321833}, 


PCT/USOO/25182 

0.00027194 , - 

-0.03646736 , - 

-0.02157338, - 

-0.01701884, - 

-0.01095437, - 

-0.00463222 , - 
0.01262417, 
0.01283758, 
0.03078633 , 

-O.0 1295 170, - 

-0.00536141 , - 

-0.00051298, - 
0.00520725 , 

-0.02107483 , - 

-O.028 16325, - 

-0.00689996 , - 

-0.00929591 , - 

-0.05653978 , - 

-0.04625200 , - 

-0.02849718, - 
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{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.O0000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

5 { 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 1 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 

10 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 

}. 

}; 

15 


0.00000000 , 
0.00000000 , 
0.00000000 , 
0.00000000 , 
0.00000000 , 
0.00000000 , 


0.00000000 , 
0.00000000 , 
0.00000000 , 
0.00000000 , 
0.00000000 , 
0.00000000 , 


/* Conexant System Inc. 
20 /* 43 1 1 Jamboree Road 

/* Newport Beach, CA 92660 
/* 


/* Copyright(C) 2000 Conexant System Inc. 
/* 


*/ 


*/ 


=*/ 


25 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 


30 /* FILE: FLOAT64 CBes_40k 

/*==================== 


*/ 


FLOAT64 CBes_40k|MAXLTT_40k] [LMSMAX_40k] fMAXLNp) = { 
35 {{ 0.00842379, 0.00868718, 0.01533677, 0.00423439, -0.00886805, -0.02132286, 
0.03152681, -0.0 1 97506 1 , -0.01152093, -0.01341948}, 

{ 0.02528175 , 0.04259634 t 0.03789221 , 0.01659535 , -0.00266498 , -0.01529545 , - 
0.01653101 , -0.01528401 , -0.01047642, -0.011271 17} t 

{ 0.00995479 , 0.00363859 , 0.00806370 , 0.00822096 , 0.00620995 , -0.00070450 , - 
40 0.01144342 , -0.01579542 , -0.00221153 , -0.00294104}, 
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{ -0.00262302, -0.00197884, 0.00408661, 0.00254664, 
0.00323605 . -0.00381683 , -0.00056288 , -0.00073670}, 
{ -O.00525909, 0.00144658, 0.00107922, -O.00301434 , 
0.00258690 , 0.00014788 , 0.00002495 , -0,0003 1900}, 
5{ -0.00140917, -0.00409651, 0.00156973, -0.00483243, 
0.00348049 , 0.00042759 , -0.00052304 , -0.00025610}, 
{ -0.00026987 , -0.00162823 , 0.00194360 , 0.00486534 , 
0.0003 1236 , 0.00027704 , -0.00069589 , -0.00070222}, 
{ -0.0025041 1 , 0.00120978 , -O.00274384 , 0.00233910 , 

10 0.00754632, -0.00465566, -0.00148867, -0.00220448}, 
{ 0.00000985 , 0.00354670 , 0.00241602 , 0.00381914, 
0.00007178 , -0.00160886 , -0.00018617 , -0.00073934}, 
{ -0.00030544 , 0.00020933 , 0.00356684 , -0.00290166 , 
0.00710975, -0.00422976, -0.00177327, -0.00156522}, 

15 { -0.00226254, -0.00391714, -0.00326461, -0.00151939, 
0.00355831 , -0.00279590 , -0.00107019 , -0.00087203}, 
{ -0.00319889, 0.00356115, -0.00255526, -0.00187794, 
0.00596883, -0.00525175, -0.00086633, -0.00158737}, 
}, 

20 { { 0.00007492, 0.00274526, 0.00053401, 0.00097771, 
0.00170872, -0.00089653, -0.00020116, -0.00062042}, 
{ -0.00201631, -0.00125767, -0.00196945, -0.00464759, 
0.00183602, -0.00071289, -0.00093030, -0.00067826}, 
{ -0.00223623 , -0.00171246 , -0.00046686 , 0.00170002 , 

25 0.00191275 , 0.00055247 , 0.00040544 , 0.00017678}, 

{ -0.00149753 , -0.00154993 , 0.00079974 , 0.00221293 , 
0.00211231, -0.00154997, -0.00037169, -0.00069879}, 
{ 0.00289225 , -0.00045208 , 0.00151539 , -0.00150161 , 
0.0021 1248 , 0.00132638 , 0.00017002 , 0.00056742}, 

30 { -0.00114496 , 0.00024257 , 0.00315614, -0.00436637, 
0.00371535, -0.00308495., -0.00033931, -0.00035859}, 
{ 0.00047727 , 0.00066667 , -0.00498548 , -0.00147002 , 
0.00093119, -0.00238958, -0.00021992, -0.00044901}, 
{ -0.00071416 , -0.00142483 , -0.00099961 , -0.00030932 , 

35 0.01041545, -0.00518788, -0.00149510, -0.00175121}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000, 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 
{ 0.00000000 , 0.00000000 , 0.00000000 , 0.00000000 , 
0.00000000 , 0.00000000 , 0.00000000 , 0.00000000}, 


0.00058009 , 0.00165419 , 


-0.00120794 , 
0.00213094, 
-0.00358061 , 
0.00139088, 
-0.00498555 , 
-0.00629055 , 
-0.00365321 , 
-0.00567546 , 

0.00018040 , 
-0.00288294 , 

0.00244198, 
-0.00553476 , 
-0.00144310, 
-0.00261428 , 
-0.00211159, 

0.00108240, 
0.00000000 , 
0.00000000 , 


-0.00757923 , 
-0.00734331 , 
-0.00978809 , 
-0.00736257 , 
0.00034259 , 
-0.00501993 , 
-0.00340561 , 
-0.00040661 , 

-0.00303219 , 
-0.00428708 , 
0.00108873 , 
-0.00346923 , 
-0.00308428 , 
0.00296444 , 
0.00158957 , 
-0.00304381 , 
0.00000000 , 
0.00000000 , 
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{ -0.00261708, -O.O0708436, -0.00241436, 0.00289209, 
0.00069364 , 0.001 12643 , 0.00040431 , 0.00059968}, 
{ 0.00260231 , 0.00259305 , 0.01015206 , 0.01053691 , 
0.00002146 , 0.00051 176 , -0.00072191 , 0.00095204}, 
5 { 0.00086895, 0.00419154, 0.00104835, -0.00633587, 
0.00133821 , 0.00097780 , 0.00104668 , 0.00127673}, 
{ -0.00387241 , -0.00378492 , 0.00043591 , -0.00710766 , 
0.00182042, -0.00122951, -0.00064698, -0.00034216}, 
{ 0.00459307 , 0.0 1 1 94545 , 0.00266756 , 0.00 1 70909 , 

10 0.00260933 , -0.00076864 , -0.00036982 , -0.00138988}, 
{ -0.00180246, 0.00572317, 0.00494218, -0.00200888, 
0.00125745 , -0.00142807 , -0.00116519 , -0.00105954}, 
{ -0.00700839, -0.01278847, -0.00523787, -0.00443510, 
0.00353442, -0.00161417, -0.00096975, -O.00051261}, 

15 { 0.00070303, 0.00616162, -0.00457122, -0.01058358, 
0.00173663 , -0.00185740 , -0.00100444 , -0.00115079}, 
{ -0.00451619 , -0.00642493 , 0.00633218 , 0.00433383 , 
0.00291948, -0.00146477, 0.00004796, -0.00008603}, 
{ -0.00139753, -O.O0327792, -0.00410406, 0.00047675, 

20 0.00310294, -0.00191523, -0.00096847, -0.00098327}, 
{ 0.00 163 188 , 0.00087564 , 0.00403069 , 0.005 12087 , 
0.00381267, -0.00157757, -0.00049671, -0.00114209}, 
{ -0.00415972, -0.00603362, -0.00972475, -0.01204002, 
0.00232354 , -0.00129666 , -0.001 19452 , -0.00056966}, 

25 }, 

{{ -0.00027304, -0.00013603, -0.00068813, 0.00046191 
0.00143265 , -0.00096053 , -0.00029350 , -0.00041718}, 
{ 0.00327783 , -0.00262084 , -0.00072357 , -0.00152624 , 
0.00709684 , -0.00418617 , -0.00134299 , -0.00114547}, 

30 { 0.00178766, 0.00272996, -0.00424907, -0.00511227, 
0.00298479, -0.00178375, -0.00080082, -0.00091910}, 
{ -0.00257793 , 0.00036133 , 0.00264883 , -0.00468006 , 
0.00919476, -0.00608852, -0.00215225, -0.00192788}, 
{ -0.00275632, -0.00064226, -0.00106406, -0.00928 1 70 , 

35 0.00330921, -0.00201606, -0.00095143, -0.00074924}, 
{ 0.00098576 , 0.00333945 , 0.00294397 , -0.00296495 , 
0.00304436 , -0.00168756 , -0.00096723 , -0.00066603}, 
{ -0.00081979, -0.00166735, 0.00165792, -0.00361096, 
0.00599592 , 0.00224467 , 0.00019724 , 0.00058344}, 


0.0036878 1 , 0.00275999 , 


0.00816243 , 0.00244675 


0.00568223 , 0.0032253 1 , 


-0.0055 1754 , -0.00367991 , 


-0.00010835 , -0.00194941 , 


-0.00363662 , -0.00552244 , 


-0.00440996 , -0.00465344 , 


-0.00684058 , -0.006398 19 , 


-0.00216043 , -0.00197399 , 


-0.00586987 , -0.0083 1267 


-O.O0835469 , -0.00591542 , 


-0.00696619 , -0.00547653 , 


, -0.00018108 , -O.00143655 , 


-0.00289651 , 0.00242678 , 


-0.00350740 , -0.005748 13 , 


-0.00843945 , -0.01043396 , 


0.00164921 , 0.00177093 , 


0.00327592 , 0.0003 1042 , 


-0.00656657 , 0.00213311 , 
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FLOAT64 B_85k[LP_85kJ[LQMA_85k] r MAXLNp] = { 
5 { 
{ 

0.12600104, 0.20991762, 0.34262841, 0.34478999, 

0.19844608, 0.15549710, 0.10873224}, 

{ 

10 0.09497737, 0.14557657, 0.23054897, 0.24608043, 

, 0.14322552, 0.10976944, 0.07578385}, 
>, 

}; 


0.36982213, 0.34486193, 0.25866520 


0.27811978, 0.25669288, 0.18951165 


15 /*== 


/* Conexant System Inc. 
/* 43 1 1 Jamboree Road 
20 /* Newport Beach, CA 92660 
/* 


*/ 

V 


*/ 
-*/ 


/* Copyright(C) 2000 Conexant System Inc. */ 
/* */ 

/* ALL RIGHTS RESERVED: */ 
25 /* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 


/♦FILE: FLOAT64 CBes_08k 

30 


FLOAT64 CBes_08k(MAXLTT_08k](LMSMAX_08k]fMAXLNp] = { 

{ { 0.00269624 , 0.00462087 , -0.00621642 , 0.00078393 , 0.00203606 , -0.00385235 , 
0.00063855, -0.00073735, 0.00002790, -0.00040057}, 

35 { -0.00012394, -0.00089956, -0.00388915, -0.00432538, -0.00236658, -0.00101884, 
0.001 1 1489 , -0.00046467 , -0.00063866 , -0.000591 19}, 

{ -0.00091016 , 0.00047345 , 0.00289452 , 0.00103649, -0.00014311, -0.00025130, 
0.00192196, -0.00149023, 0.00030132, -O.O0O24519}, 

{ -0.00259585, -0.00289246, -0.00766695, -0.00713197, 0.00507416, 0.00050759, 
40 0.00035725, -0.00001324, 0.00003991, 0.00018587}, 
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0.19087084, 0.26721569, 0.38110463, 0.39655069, 0.43984539, 0.42178869, 0.34869783 

0.28691864, 0.23847475, 0.17468375}, 

{ 

0.13428787, 0.16384420, 0.23402430, 0.25625744, 0.29236925, 0.27922926, 0.22702581 

5 , 0.18550745, 0.15394289, 0.11524615}, 
{ 

0.10410849, 0.10475287, 0 13371967, 0.16283702, 0.18493450, 0.17783386, 0.14728004 

0.11948265, 0.10261001, 0.08146250}, 

}, 
10 { 

{ 

0.14936742 , 0.25397094 , 0.42536339 , 0.40318214 , 0.39778242 , 0.34731435 , 0.22773174 

0.17583478, 0.12497067, 0.11001108}, 

{ 

15 0.09932127, 0.15389237, 0.24021347, 0.24507006, 0.26478926, 0.23018456, 0.15178193 

0.11368182, 0.07674584, 0.06122567}, 

{ 

0.07376684, 0.10618676, 0.16013783, 0,17315564, 0.19320946, 0.16507346, 0.10600940 

0.07680543 , 0.05146135 , 0.03790307}, 

20 { 

0.06434994, 0.08328096, 0.10640056, 0.12536714, 0.13771986, 0.11589609, 0.07617342 

0.05429825 , 0.03843949 , 0.03049829}, 

>, 

>; 

25 


/* Conexant System Inc. */ 
30 /* 43 1 1 Jamboree Road */ 
/* Newport Beach, CA 92660 */ 

/♦ */ 

/* Copyrighl(C) 2000 Conexant System Inc. */ 

/* V 

35 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any V 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 


40 /* FILE: FLOAT64 B 85k 
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{ 


0.78697605 , 0.84277373 , 0.84833453 , 0.86612158 t 

0.83213462, 0.82649626, 0.81292217, 0.74918146}, 
{ 

0.48850325 , 0.51792467 , 0.54458026 , 0.57964919 , 

0.57897302, 0.57510412, 0.53272744, 0.49711640}, 
{ 

0.27060547 , 0.28492453 , 0.30887250 , 0.34767876 , 

0.36463786, 0.34570964, 0.31077734, 0.30569519}, 


10 { 


0.10931949, 0.11859086, 0.13932375, 0.16531784, 

0.17434501, 0.16239619, 0.14627386, 0.14728680}, 
}, 

}; 


0.89184674 , 0.86520149, 


0.65907100 , 0.62423454 , 


0.41578426 , 0.39193895 , 


0.19670950, 0.19308363 , 


15 


=*/ 


/* Conexant System Inc. 
20 /* 43 1 1 Jamboree Road 

/* Newport Beach, CA 92660 
/* — 


*/ 
*/ 


/* Copyright(C) 2000 Conexant System Inc. 
/* 


-*/ 


25 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

/*=======: ======================================= 


30 /* FILE: FLOAT64 B_40k 

/*================= 


FLOAT64 B_40k[LP_40k][LQMA_40k][MAXLNp] = { 
35 { 
{ 

0.45782564 , 0.59002827 , 0.73704688 , 0.73388197 , 0.75903791 , 0.74076479 , 0.65966007 
0.58070788, 0.52280647, 0.42738207}, 

{ 
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/ * == „ ======= ============================== 

/*=========«=============================== 

/* Conexant System Inc. 
5 /* 43 1 1 Jamboree Road *' 
/♦ Newport Beach, CA 92660 ' */ 
/* 


*/ 


/* Copyright(C) 2000 Conexant System Inc. 
/* 


*/ 


10 /* ALL RIGHTS RESERVED: */ 

/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 

15 /* LIBRARY: lsf.vq.tab */ 


==*/ 


/*- 
20 /*- 
/*- 
/*= 


/ 


■ TABLES */ 

*/ 


/*=== 


/ 


*/ 


25 /* Conexant System Inc. 

/* 43 1 1 Jamboree Road *' 
/* Newport Beach, CA 92660 

/* 

/* Copyrighl(C) 2000 Conexant System Inc. */ 

30 /* *' 

/* ALL RIGHTS RESERVED: */ 
/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 
35 /*=-===============-=-=========== = ===== ==:==:=:====== 


/♦FILE: FLOAT64B_08k */ 


FLOAT64 B_08k[LP_08k][LQMA_08k][MAXLNp] = { 
40 { 
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-0.077568, 0.066921,-0.091179, 0.128088,-0.035639, 
-0.050608,-0.081541, 0.011615, 0.254577, -0.1 14920}, 
{ 0.092684, -0.170455, -0.066080, -0.104846, 0.063964, 
-0. 118125, -0.082160, 0.039378, 0.211586,-0.185354, 
5 -0.185207,-0.020687, 0.064207, 0.086469, 0.054981, 
-0.041209, 0.119450, 0.052270,-0.011401,-0.010358, 
0.021328, 0.047320, 0.163357,-0.063909,-0.043402, 
-0.037520, -0.080772, -0,077397, -0.043713, 0.170929, 
0.173935,-0.110798, 0.010913,-0.267308, 0.154860, 

10 -0.004086, -0.048883, 0.062513, -0.033936, 0.217462}, 
{-0. 102219, -0.085821, 0.120788,-0.004709, 0.153764, 
-0.015832, 0.044615,-0.050922, 0.151970,-0.269232, 
-0.103572, 0.024964, 0.075853,-0.028581, 0.045409, 
-0.060437, 0.030973,-0.070224, 0.212762,-0.005720, 

15 0.013756, 0.014138, 0.182639,-0.017510, 0.022836, 
-0.192755, -0.200316, -0.034771, 0.217484, -0.066266, 
0.050939, 0.024386,-0.037975, 0.057006,-0.169418, 
0.126019, 0.006018, 0.021719,-0.195182, 0.113427}, 
{-0.036546, 0.066393,-0.168702, 0.006627,-0.003036, 

20 0.003457, -0.305420, -0.074054, 0.088384, -0.033983, 
-0.021283, -0.202710, 0.144675, -0.032790, -0.047744, 
-0^008852, 0.142740, 0.106081, 0.060695,-0.062153, 
-0.168554, 0.085919,-0.085650,-0.138377, 0.021096, 
-0.215684, 0.191959, 0.063860, 0.009517, 0.035008, 

25 0.177654, 0.126762, 0.055212,-0.008992, 0.022952, 
0.056175,-0.012106, 0.205292, 0.021328,-0.065147}, 
{ 0.169865, 0.014836, -0.046132, -0,082306, -0.043342, 
-0.145627, -0.056395, -0.148761, -0.028014, 0.116402, 
4). 105617, -0.134907, 0.026502, 0.230587,-0.190304, 

30 -0.022587,-0.063537, 0.080261, 0.000346,-0.228381, 
0.112714, 0.047662, 0.114726, 0.127581,-0.164887, 
-0.011701, -0.071580, -0.011703, -0.050086, 0.012629, 
0.172233, 0.024553, 0.097856,-0.045110, 0.028485, 
0.053387, 0.206829, 0.082417, 0.106178,-0.175071}}; 

35 /* */ 


/* END */ 


40 
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0.086204, -0.133177. -0.056676, -0.069633, 0.039126, 
0.024861, 0.200507, -0.017833, -0.072507, -0.058732}, 
{ 0. 1883 1 2, 0.21 1973, -0.026577, -0.0305 1 1, -0.005324, 
-0.089297, -0.108139, -0.100579, -0.092361, -0.086512, 
5 -0.176998, 0.033879,-0.072401,-0.108418, 0.254736, 
-0.068285, 0.077788, 0.021740,-0.154785, 0.031473, 
0.161897, 0.099157, 0.003835, 0.202560,-0.068410, 
-0.028448, 0.166791, 0.157988,-0.081325,-0.096342, 
0.113814, -0.053872, -0.037803, 0.003019, -0. 105415, 

10 -O.105963, 0.110935,-0.121537,-0.051934, 0.031338}, 
{-0.005902, -0.025566, 0.090201, -O.202733, -0.087222, 
0.025591, 0.088656,-0.075759, 0.102605,-0.043815, 
0.098726,-0.172410,-0.058015, 0.136373, 0.073529, 
-0.267444, -0.089580, -0.132521, -0.121546, 0.030034, 

15 0.125941, -0.115521, 0.218909, 0.161758, 0.013384, 
0.090387,-0.053082,-0.045271, 0.031092, 0.002709, 
-0.093612, 0.150086,-0.043744, 0.207734, 0.059490, 
0.013707, -0.009697, -0.101506, 0.130092, -0.106058}, 
{-0.031557,-0.216984,-0.117630, 0.043260, 0.010493, 

20 -0.077562, -0.011722, -0.012750, -0.006706, -0.116933, 
-0.037242, 0.043246, 0.189936,-0.001128, 0.348653, 
-0.114783, 0.103494, 0.065052, 0.017331, 0.216982, 
-0.124355, 0.116175, 0.021859, 0.140445,-0.080528, 
-0.021540, -0.059484, -0.039156, -0.003790, -0.013488, 

25 0.024023, 0.127027,-0.085937, 0.029984, 0.005821, 
0.113871, -0.155281, -0.188480, -0.138627, 0.038015}, 
{-0.055477, -0.078725, -0.227185, -0.069835, -0.083334, 
-0.103103, 0.126817, 0.097232,-0.148670,-0.003821, 
-0.014695,-0.006567, 0.220706, 0.003373,-0.233583, 

30 -0.059080, 0.096967, 0.105144, 0.074281, 0.062384, 
-0.238312,-0.011260,-0.087787, 0.053234, 0.114154, 
-0.087050,-0.067738, 0.054583, 0.087169, 0.026215, 
0.022347, -0.002260, 0.024900, -0.085700, 0.274932, 
-0.029898, 0.187180, 0.083484,-0.032945, 0.011922}, 

35 { 0.060811,-0.013551, 0.132393, 0.173236,-0.134129, 
-0.025827, 0.146442, -0.144697, -0.165687, -0.041179, 
-0.069049, 0.065456, 0.066934,-0.111799,-0.155041, 
0.017693, 0.018106, 0.011958,-0.101361, 0.135540, 
-0.026952,-0.072444,-0.099615, 0.048850, 0.074227, 

40 -0.006388, 0.274960,-0.180664,-0.035351, 0.147379, 
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0.031356, 0.072274, 0.090069,-0.072320,-0.068152, 
-0.102144, 0.113796,-0.002896,-0.084489, 0.211787}, 
{-0.004676, 0.012451,-0.068412,-0.050948, 0.094113, 
-0.137877, 0.163079, 0.072970,-0.073769,-0.001954, 
5 -0.079508, 0.132505, 0.085707,-0.066978,-0.009364, 
0.139783, -0,035495, -0.015433, -0.019735, -0.137403, 
-0.027935, 0.214683,-0.175540, 0.129600, 0.152334, 
-0.171772, 0.110761,-0.080756, 0.109677,-0.064781, 
0.092547, 0.083756, 0.084066,-0.154640,-0.126653, 

10 0.170413, -0.001756, -0.266171, -0.080608, 0.003719}, 
{-0.142812, 0.178916, 0.030481,-0.018707,-0.014087, 
-0.178494, 0.057415,-0.072685, O.O366O0, 0.123870, 
-0.160648, 0.053520,-0.049866,-0.076900, 0.146260, 
0.121778, -0.002098, -0,102769, -0.145513, -0.094709, 

15 0.014600, 0.150337, 0.129071,-0.215866,-0.068744, 
-0.032681, 0.158858,-0.167257, 0.043318, 0.160275, 
-0.149350,, 0.071964, 0.072390, -0.036869, -0.115464, 
-0.033315, 0.218166, 0.003469, 0.039092, 0.068452}, 
{-0.113242, 0.029370, 0.151963,-0.137299, 0.140645, 

20 -0.186259, -O.063780, -0.049865, 0.077783, -0.098684, 
0.105277, -0.131765, -0.040499, 0.187960, -0.060280, 
0.168357,-0.180927,-0.073977, 0.016167, 0.119988, 
0.249310, 0.160828, 0.016432,-0.104951,-0.103452, 
-0.085361, 0.045284, 0.003648,-0.098853, 0.014016, 

25 -0.158963, 0.053626, 0.102125, 0.110043, 0.032758, 
-0.066453, 0.112142,-0.020935, 0.014141,-0.136316}, 
{-0.142626, 0.116170, 0.156714,-0.046193,-0.092763, 
0.059522, 0.095298,-0.191132, 0.171992, 0.089482, 
0.031693, -0.028470, -0.182267, -0.114526, -0.115156, 

30 -0.087294, 0.101460, 0.134756, 0.211311,-0.072667, 
-0.184874, 0.016518, 0.073661, 0.117918,-0.099371, 
-0.169612, 0.094926, 0.043618,-0.113961, 0.139652, 
-0.032290, -0.042327, 0.049550, -0.030139, -0.105134, 
0.165565, -0.024617, -0.008021, -0.081065, 0.094700}, 

35 { 0.096715, 0.073130,-0.192145,-0.024840,-0.033337, 
-0.146108, 0.030637, 0.013074, 0.053903, 0.179474, 
-0.092141, -0.136250, -0.021751, -0.075464, 0.041988, 
0.123680, 0.164398,-0.098024, 0.143563, 0.257533, 
0.011460,-0.139854,-0.170764, 0.002622, 0.077216, 

40 -0.098878, 0.013664, 0.192634,-0.168319,-0.019956, 
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-0.048908,-0.102843,-0.041116, 0.193840, 0.068291, 
-0.231657, -0.087831, -0.039631, -0.108096, -0.031144}, 
{-0.067140, 0.115233,-0.056616,-0.133510, 0.037545, 
-0.141381, 0.016872, 0.159134, 0.023496, 0.094566, 
5 0.028914,-0.039531, 0.140349,-0.185376, 0.329690, 
0.027097, p.079849, -0.040461, -0.119043, -0.198733, 
0.161095, -0.155212, -0.082065, -0.014902, -0.116972, 
0.026419, 0.009974,-0.071289, 0.056791,-0.111439, 
-0.068277, 0.095871, 0.021713, 0.050967, 0.148007, 
10 0.056072,-0.006431, 0.039573, 0.077210,-0.188060}, 
{-0.021627,-0.127239, 0.057710, 0.094173, 0.114361, 
-0.093565,-0.053670, 0.119475, 0.019379,-0.038257, 
-0.019357, 0.016154, 0.080195,-0.048479,-0.084186, 
0.005792, 0.017708,-0.006798, 0.067724, 0.259880, 
15 0.119032, -0.133580, -0.042929, -0.189572, -0.092819, 
0.118637, 0.163395, 0.235459, -0.084208, 0.085962, 
-0.059652, 0.137989, 0.116113,-0.039734,-0.243977, 
-0.009411, -0.125925, -0.111694, -0.046045, -0.156416}, 
{ 0.202529, -0.022764, -0.087492, -0.001779, -0.180078, 
20 0.144326, -0.070131, 0.052585, -0.014719, -0.180407, 
-0.105484, 0.022611, 0.112231, 0.048219, 0.096614, 
-0.100258, 0.182341, 0.259642, 0.139998,-0.161151, 
0.057568, 0.049277, -0.053023, -0.002871, -0.071218, 
0.032438, 0.019060, 0.092027, 0.018050, 0.007029, 
25 0.038061, -0.044412, -0.205987, 0.069402, -0.034018, 
0.024287, 0.102516, -0.065164, -0.132652, -0.237199}, 
{-0.086428, 0.126977, 0.015658, 0.078085, 0.169923, 
-0.042330, 0.080504, 0.184454,-0.116599,-0.101825, 
-0.019898, 0.029187, -0.086805, -0.065623, -0.227098, 
30 -0.161420, 0.020457, 0.178183,-0.054298, 0.217385, 
-0.023337,-0.090671, 0.092256,-0.118044, 0.226933, 
-0.067590,-0.013062, 0.009296,-0.133427, 0.089791, 
-0.016346, 0.227444,-0.105377, 0.011219,-0.103441, 
-0.063450, -0.008793, -0.016484, -0.086660, 0.051254}, 
35 { 0.288967,-0.037760,-0.002823,-0.181016, 0.139797, 
-0.058906,-0.107586,-0.145766, 0.093240, 0.029793, 
-0.217238, 0.181808, -0.058832, -0.080496, -0.060148, 
0.044365, -0.080336, 0.044204, 0.092757, 0.053558, 
0.068310, 0.054278, 0.069427,-0.185461,-0.034244, 
40 -0.020880, 0.144972,-0.173171,-0.003225,-0.046869, 
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-0.031403, 0.269853,-0.035512,-0.029505, 0.028640, 
-0.138673,-0.043852,-0.180966, 0.095736, 0.017216}, 
{-0.156350,-0.007272,-0.060885, 0.144463, 0.141658, 
0.060423, 0.041233, 0.076823,-0.103529. 0.026638, 
5 -0.061046, 0.084132,-0.035707, 0.200313, 0.004552, 
0.130998. -O.Q19343, -0.187960, 0.026747, -0.038128, 
-0.175123, 0.011099, 0.015914,-0.057416, 0.143100, 
-0.107010,-0.123022,-0.015558, 0.030280, -0.073788, 
-0.046136,-0.139745, 0.216388, 0.208324,-0.190284, 

10 0.207782, -0.118317, -0.050262, 0.048587, -0.052573}, 
{ 0.165122, 0.151676, -0.173564, -0.112602, -0.077080, 
0.059202,-0.039395, 0.092122, 0.036914,-0.106747, 
0.026758, -0.075714, -0.061968, 0.171587, -0.179532, 
-0.221919, 0.067364,-0.168832,-0.005609, 0.038886, 

15 -0.020248, -0.055190, -0.010993, O.150O90, -0.063108, 
0.080500,-0.061449, 0.076655,-0.072982, 0.148202, 
0.032169, 0.194680, 0.047698, 0.110655, 0.159702, 
0.060739, -0.033952, -0.002372, -0.100670, -0.226797}, 
{-0.004884, 0.039917, 0.007048, -0.057134, -0.069690, 

20 0.107883, 0.022693, 0.161403, 0.072354, 0.146004, 
-0.179598,-0.051756, 0.091652, 0.187559,-0.218109, 
-0.012090, 0.201459, -0.003574, -0.093868, -0.186445, 
-0.029635, 0.020643, 0.002809,-0.042532,-0.019091, 
0.051347, 0.083461,-0.199734, 0.053807,-0.091675, 

25 0.042568,-0.091821, 0.118660, 0.091599,-0.113841, 
-0.089584, 0.171276, 0.086920,-0.242580, 0.036581}, 
{ 0.063443, -0.111705, -0.161460, 0.057088, -0.150777, 
0.100319, 0.001226,-0.223638, 0.119079,-0.112969, 
-0.058934, 0.266023,-0.023775,-0.013164, 0.142328, 

30 0.184226, -0.061167, -0.083061, -0.105554, 0.081692, 
-0.020353, 0.061163, 0.175058, 0.158439,-0.104639, 
-0.111540, 0.104562, 0.075431, 0.119800, 0.054572, 
-0.203585, -0.113775, -0.072451, -0.034755, 0.021198, 
0.003955,-0.072513, 0.042772, 0.027221,-0.019781}, 

35 {-0.035894,-0.147947, 0.130019, 0.151861, 0.063417, 
-0.099816, 0.059408,-0.133444, 0.037317, 0.055950, 
0.126182, 0.145038, 0.096625,-0.125091, 0.121556, 
-0.107565, -0.111177, 0.334839, -0.021953, -0.046918, 
0.055746, -0.075661, 0.073101, -0.007925, -0.009413, 

40 -0.060847, 0.019674,-0.117516, 0.116550.-0.057020, 
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-0.044183, 0.106015, 0.106175, 0.129473, 0.006966, 
O.O48202, -0.140265, -0.066978, 0.141637, 0.096585}, 
{ 0.032834,-0.117642, 0.022656, 0.028494,-0.042477, 
0.019769, 0.222683, -0.047178, -0.150082, -0.244569, 
5 -0.074121,-0.066537,-0.110890, 0.175115, 0.080115, 
0.053503, .0.031178, -0.262706, 0.144141,-0.003827, 
-0.086824,-0.189568, 0.001631, 0.179950, 0.026267, 
0.069194,-0.022789, 0.085670,-0.142656, 0.079799, 
0.040639,-0.022782, 0.011422, 0.135623,-0.003446, 
10 0.073037,-0.122266, 0.099223 , 0.155886,-0.058467}, 
{-0.119203, -0.113097, 0.087872, -0.088533, -0.008026, 
-0.167421, 0.129201,-0.088686, 0.110136, 0.096386, 
-0.016415, 0.040387,-0.035463,-0.041054, 0.143447, 
0.008815,-0-129834, 0.194409,-0.123796, 0.055210, 
15 -0.098973,-0.034145, 0.052178, 0.131509,-0.037693, 
0.044694, -0.023161, 0.005800, -0.141310, -0.012245, 
0.184772,-0.098049,-0.154527, 0.195311, 0.145655, 
0.099465, -0.174075, 0.192918, -O.068933, -0.143525}, 
{-0.060778, 0.055740, 0.088327, 0.040254,-0.012506, 
20 0.214823, -0.054211, 0.028580, -O.062578, 0.062803, 
-0.195928, 0.089170,-0.104766, 0.005199,-0.100068, 
-0.119735,-0.191318,-0.090582, 0.039863, 0.070813, 
0.186740, 0.087480,-0.219826,-0.096662, 0.000951, 
-0.261450,-0.017906,-0.048780, 0.053088, 0.078009, 
25 0.115528,-0.005575,-0.009188, 0.176039, 0.218530, 
-0.025600, 0.033588, -0.089599, 0.020791, 0.100739}, 
{-0.076643, -0.003437, -0.013056, -0.079689, -0.071113, 
0.173296, -0.117988, -0.066838, -0.168547, -0.026234, 
0.023480,-0.069835, 0.018212,-0.089650, 0.111504, 
30 -O.019748, 0.062012, 0.203651, 0.027630, 0.118083, 
0.008768, -0.047952, -0.109822, -0.055457, 0.100392, 
0.070526, -0. 12 1105, -0.036054, -0.147873, 0.014376, 
0.081282,-0.092077,-0.299010, 0.053782, 0.307327, 
0.037548, 0.013553, 0.012098, 0.080340, 0.194269}, 
35 { 0.145778,-0.035171,-0.012813, 0.011288,-0.104526, 
0.107178, 0.002405, 0.149185,-0.034991, 0.159099, 
-0.214392, 0.177113, -0.174376, -0.125208, -0.009375, 
-0.167677, 0.034455, 0.042755, 0.124278,-0.057184, 
0.029397, 0.011394, 0.059449, 0.051856,-0.119031, 
40 0.171241,-0.054828,-0.110516,-0.119424, 0.111108, 
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/* Conexant System Inc. */ 
/* 43 1 1 Jamboree Road */ 
5 /* Newport Beach, CA 92660 */ 
/* „ */ 

/* Copyright(C) 2000 Conexant System Inc. */ 

/* */ 

/* ALL RIGHTS RESERVED: */ 
10 /* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 


/* FILE: double bv 

15 /* ~ : 


double bv[32]f40]={ 

{0.129991, 0.064760,-0.002124, 0.031397,-0.095657, 

20 0.194382,-0.004066, 0.206616, 0.020785, 0.094439, 
-0.186531,-0.096221, 0.139813,-0.088682, 0.058761, 
-0.054868, -0.027660, -0.174793, -0.165230, 0.108125, 
-0.016666, -0.108074, -0.103980, 0.093234, -0.018041, 
0.051019, 0.036860, 0.080444, 0.037322,-0.173828, 

25 0.034237, 0.125167, 0.077101,-0.299421,-0.044413, 
-0.050372, 0.027321,-0.073190,-0.011473, 0.183516}, 
{0.097175, 0.029658,-0.109162,-0.009789, 0.015654, 
-0.066477,-0.040802, 0.046798, 0.179909,-0.286337, 
-0.129516, 0.129213, 0.066188,-0.033189, 0.046677, 

30 -0.115491,-0.120577, 0.035435, 0.175051, 0.085733, 
-0.060723, 0.101562, -0.030479, -0.086184, -0.053423, 
-0.072980,-0.025941, 0.063914,-0.125523, 0.039384, 
0.130419, 0.015899, 0.080340,-0.007682, 0.233579, 
0.106089,-0.212920, 0.002499,-0.212192, 0.118209}, 

35 {0.035485, 0.065157, 0.093618, 0.200062,-0.051137, 
-0.029000, 0.062292, 0.106185,-0.147534,-0.079012, 
-0.007510,-0.313287, 0.128095,-0.136738, 0.127468, 
-0.107670, 0.064600, 0.087097,-0.033680, 0.055832, 
-0.027791, 0.054826,-0.145352,-0.100984, 0.157922, 

40 -0.087520, 0.016400, -0.204684, -0.061008, -0.105759, 
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/* Conexant System Inc. */ 
5 /* 431 1 Jamboree Road */ 
/* Newport Beach, CA 92660 */ 

/* */ 

/* Copyright(C) 2000 Conexant System Inc. */ 

/* */ 

10 /* ALL RIGHTS RESERVED: */ 


/* No part of this software may be reproduced in any form or by any */ 
/* means or used to make any derivative work (such as transformation */ 
/* or adaptation) without the authorisation of Conexant System Inc. */ 


15 /* LIBRARY: gauss_bv.tab 


*/ 

TABLES */ 


*/ 

-*/ 

M ===============:* 


/*- 

20 /*- 
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